123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210 |
- #ifndef NORCSID
- static char rcsid[] = "$Header$";
- #endif
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Hans van Staveren
- */
- /*
- * machine dependent back end routines for the PDP-11
- */
- /* #define REGPATCH /* save all registers in markblock */
- con_part(sz,w) register sz; word w; {
- while (part_size % sz)
- part_size++;
- if (part_size == TEM_WSIZE)
- part_flush();
- if (sz == 1) {
- w &= 0xFF;
- if (part_size)
- w <<= 8;
- part_word |= w;
- } else {
- assert(sz == 2);
- part_word = w;
- }
- part_size += sz;
- }
- con_mult(sz) word sz; {
- long l, atol();
- if (sz != 4)
- fatal("bad icon/ucon size");
- l = atol(str);
- #ifdef ACK_ASS
- fprintf(codefile,".data2 0%o, 0%o !%s\n",(int)(l>>16),(int)l, str);
- #else
- fprintf(codefile,"\t%o;%o\n",(int)(l>>16),(int)l);
- #endif
- }
- #define PDPFLOAT
- #define FL_MSL_AT_LOW_ADDRESS 1
- #define FL_MSW_AT_LOW_ADDRESS 1
- #define FL_MSB_AT_LOW_ADDRESS 0
- #define CODE_GENERATOR
- #include <con_float>
- #ifdef REGVARS
- char Rstring[10];
- full lbytes;
- struct regadm {
- char *ra_str;
- long ra_off;
- } regadm[2];
- int n_regvars;
- regscore(off,size,typ,score,totyp) long off; {
- if (size != 2)
- return(-1);
- score -= 1; /* allow for save/restore */
- if (off>=0)
- score -= 2;
- if (typ==reg_pointer)
- score *= 17;
- else if (typ==reg_loop)
- score = 10*score+50; /* Guestimate */
- else
- score *= 10;
- return(score); /* estimated # of words of profit */
- }
- i_regsave() {
- Rstring[0] = 0;
- n_regvars=0;
- }
- f_regsave() {
- register i;
- if (n_regvars==0 || lbytes==0) {
- #ifdef REGPATCH
- fprintf(codefile,"mov r2,-(sp)\nmov r4,-(sp)\n");
- #endif
- fprintf(codefile,"mov r5,-(sp)\nmov sp,r5\n");
- if (lbytes == 2)
- fprintf(codefile,"tst -(sp)\n");
- else if (lbytes!=0)
- fprintf(codefile,"sub $0%o,sp\n",lbytes);
- for (i=0;i<n_regvars;i++)
- fprintf(codefile,"mov %s,-(sp)\n",regadm[i].ra_str);
- } else {
- if (lbytes>6) {
- fprintf(codefile,"mov $0%o,r0\n",lbytes);
- fprintf(codefile,"jsr r5,PR%s\n",Rstring);
- } else {
- fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring);
- }
- }
- for (i=0;i<n_regvars;i++)
- if (regadm[i].ra_off>=0)
- fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off,
- regadm[i].ra_str);
- }
- regsave(regstr,off,size) char *regstr; long off; {
- fprintf(codefile,"%c Local %ld into %s\n",COMMENTCHAR,off,regstr);
- /* commented away
- #ifndef REGPATCH
- fprintf(codefile,"mov %s,-(sp)\n",regstr);
- #endif
- strcat(Rstring,regstr);
- if (off>=0)
- fprintf(codefile,"mov 0%lo(r5),%s\n",off,regstr);
- end of commented away */
- strcat(Rstring,regstr);
- regadm[n_regvars].ra_str = regstr;
- regadm[n_regvars].ra_off = off;
- n_regvars++;
- }
- regreturn() {
- #ifdef REGPATCH
- fprintf(codefile,"jmp eret\n");
- #else
- fprintf(codefile,"jmp RT%s\n",Rstring);
- #endif
- }
- #endif
- prolog(nlocals) full nlocals; {
- #ifndef REGVARS
- #ifdef REGPATCH
- fprintf(codefile,"mov r2,-(sp)\nmov r4,-(sp)\n");
- #endif
- fprintf(codefile,"mov r5,-(sp)\nmov sp,r5\n");
- if (nlocals == 0)
- return;
- if (nlocals == 2)
- fprintf(codefile,"tst -(sp)\n");
- else
- fprintf(codefile,"sub $0%o,sp\n",nlocals);
- #else
- lbytes = nlocals;
- #endif
- }
- dlbdlb(as,ls) string as,ls; {
- if (strlen(as)+strlen(ls)+2<sizeof(labstr)) {
- strcat(ls,":");
- strcat(ls,as);
- } else
- fatal("too many consecutive labels");
- }
- mes(type) word type; {
- int argt ;
- switch ( (int)type ) {
- case ms_ext :
- for (;;) {
- switch ( argt=getarg(
- ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
- case sp_cend :
- return ;
- default:
- strarg(argt) ;
- #ifdef ACK_ASS
- fprintf(codefile,".define %s\n",argstr) ;
- #else
- fprintf(codefile,".globl %s\n",argstr) ;
- #endif
- break ;
- }
- }
- default :
- while ( getarg(any_ptyp) != sp_cend ) ;
- break ;
- }
- }
- char *segname[] = {
- #ifdef ACK_ASS
- ".sect .text", /* SEGTXT */
- ".sect .data", /* SEGCON */
- ".sect .rom", /* SEGROM */
- ".sect .bss" /* SEGBSS */
- #else
- ".text", /* SEGTXT */
- ".data", /* SEGCON */
- ".data", /* SEGROM */
- ".bss" /* SEGBSS */
- #endif
- };
|