d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Generate the proper function prologues for big stack frames.

Browse source
This commit is contained in:
David Given 2019-02-15 23:01:33 +01:00
parent e1ddbf969a
commit 34c67698ef
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
mach/i80/ncg/mach.c
View file

@ -49,16 +49,18 @@ void con_mult(sz) word sz;
void prolog(full nlocals) void prolog(full nlocals)
{ {
if (nlocals == 0) int16_t adjustment = -nlocals;
if (adjustment == 0)
fprintf(codefile, "\tcall .pro0\n"); fprintf(codefile, "\tcall .pro0\n");
else if (nlocals == 2) else if (adjustment == -2)
fprintf(codefile, "\tcall .pro2\n"); fprintf(codefile, "\tcall .pro2\n");
else if (nlocals == 4) else if (adjustment == -4)
fprintf(codefile, "\tcall .pro4\n"); fprintf(codefile, "\tcall .pro4\n");
else if (nlocals < 0x100) else if ((adjustment >= -128) && (adjustment <= 127))
fprintf(codefile, "\tcall .probyte\n\t.data1 %d\n", -nlocals); fprintf(codefile, "\tcall .probyte\n\t.data1 %d\n", adjustment);
else else
fprintf(codefile, "\tcall .proword\n\t.data2 %d\n", -nlocals); fprintf(codefile, "\tcall .proword\n\t.data2 %d\n", adjustment);
} }
void mes(type) word type; void mes(type) word type;