godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added some xtra output for Henk Schouten's debugger.

Browse Source
This commit is contained in:
em 1985-02-26 15:04:08 +00:00
parent 9afbc0ad32
commit bd796849ef
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mach/pdp/cg/mach.c
View File

@ -24,6 +24,8 @@ static char rcsid[] = "$Header$";
* machine dependent back end routines for the PDP-11 * machine dependent back end routines for the PDP-11
*/ */
static char procnam[40] ;
/* #define REGPATCH /* save all registers in markblock */ /* #define REGPATCH /* save all registers in markblock */
con_part(sz,w) register sz; word w; { con_part(sz,w) register sz; word w; {
@ -147,10 +149,14 @@ f_regsave() {
fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring); fprintf(codefile,"jsr r5,PR%d%s\n",lbytes,Rstring);
} }
} }
for (i=0;i<n_regvars;i++) for (i=0;i<n_regvars;i++) {
if (regadm[i].ra_off>=0) if (regadm[i].ra_off>=0)
fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off, fprintf(codefile,"mov 0%lo(r5),%s\n",regadm[i].ra_off,
regadm[i].ra_str); regadm[i].ra_str);
/* generate equates for access to registers */
fprintf(codefile,"~%s%s=%ld.\n",regadm[i].ra_str+1, procnam,
regadm[i].ra_off) ;
}
} }
regsave(regstr,off,size) char *regstr; long off; { regsave(regstr,off,size) char *regstr; long off; {
@ -182,6 +188,13 @@ regreturn() {
#endif #endif
doplb(name) char *name ; {
register char *p, *q ;
p=procnam, q=name ;
while ( *p++ = *q++ ) ;
fprintf(codefile,"%s:\n",name) ;
}
prolog(nlocals) full nlocals; { prolog(nlocals) full nlocals; {
#ifndef REGVARS #ifndef REGVARS