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

Bug fix.

Browse Source
This commit is contained in:
ceriel 1987-01-16 13:59:02 +00:00
parent a071ceb425
commit 9b8d7d1231
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mach/ns/ncg/mach.c
View File

@ -68,12 +68,12 @@ i_regsave() {
f_regsave(){
register i;
register int c = '[';
fprintf(codefile, "enter [");
if (n_regvars>=1){
fprintf(codefile,"%s",regadm[0].ra_str);
for (i=1; i<n_regvars; i++)
fprintf(codefile,",%s",regadm[0].ra_str);
fprintf(codefile, "enter ");
for (i=0; i<n_regvars; i++) {
fprintf(codefile,"%c%s", c, regadm[i].ra_str);
c = ',';
}
fprintf(codefile, "], %d\n", lbytes);
for (i=0;i<n_regvars;i++)
@ -92,12 +92,12 @@ regsave(regstr,off,size) char *regstr; long off; {
regreturn() {
register int i;
register int c = '[';
fprintf(codefile, "exit [");
if (n_regvars>=1){
fprintf(codefile,"%s",regadm[0].ra_str);
for (i=1; i<n_regvars; i++)
fprintf(codefile,",%s",regadm[0].ra_str);
fprintf(codefile, "exit ");
for (i=1; i<n_regvars; i++) {
fprintf(codefile,"%c%s", c, regadm[i].ra_str);
c = ',';
}
fprintf(codefile, "]\n");
}