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

Merge pull request #168 from davidgiven/dtrg-i167

Browse source 
i80: fix large stack frames
This commit is contained in:
David Given 2019-02-15 23:12:12 +01:00 • committed by GitHub
commit d4d5eee1cd
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 10 additions and 7 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)
{
if (nlocals == 0)
int16_t adjustment = -nlocals;
if (adjustment == 0)
fprintf(codefile, "\tcall .pro0\n");
else if (nlocals == 2)
else if (adjustment == -2)
fprintf(codefile, "\tcall .pro2\n");
else if (nlocals == 4)
else if (adjustment == -4)
fprintf(codefile, "\tcall .pro4\n");
else if (nlocals < 0x100)
fprintf(codefile, "\tcall .probyte\n\t.data1 %d\n", -nlocals);
else if ((adjustment >= -128) && (adjustment <= 127))
fprintf(codefile, "\tcall .probyte\n\t.data1 %d\n", adjustment);
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;

3
mach/i80/ncg/table
View file

@ -350,12 +350,13 @@ pat lol ($1<0) && ($1>=0-STACKHELPERS)
yields de
pat lol
uses dereg
uses dereg, hlreg={const2, $1}
gen
dad lb
mov e, {m}
inx hl
mov d, {m}
yields de
pat loe
uses hlreg