Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Don't bogusly push stuff on the stack for conversions to non-long types. 

This could happen in some cases when converting between signed and unsigned long long (which should not require any code to be generated).
This commit is contained in:
Stephen Heumann 2021-02-06 12:45:44 -06:00
parent 47fdd9e370
commit 446639badc
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
Gen.pas
View File

@ -1177,8 +1177,8 @@ const {note: these constants list all legal }
cComp = $08;
cExtended = $09;
cVoid = $0B;
cQuad = $0C;
cUQuad = $0D;
cLong = $04;
cULong = $05;
byteToWord = $02;
byteToUword = $03;
@ -1579,17 +1579,18 @@ else if op^.q in [quadToReal, uquadToReal] then
Error(cge1) {TODO: implement}
else if (op^.q & $000F) = cVoid then
{do nothing}
else if lLong.preference & gLong.where = 0 then begin
if gLong.where = constant then begin
GenNative(m_pea, immediate, long(gLong.lval).msw, nil, 0);
GenNative(m_pea, immediate, long(gLong.lval).lsw, nil, 0);
end {if}
else if gLong.where = A_X then begin
GenImplied(m_phx);
GenImplied(m_pha);
end; {else if}
gLong.where := onStack;
end; {else if}
else if (op^.q & $000F) in [cLong,cULong] then
if (lLong.preference & gLong.where) = 0 then begin
if gLong.where = constant then begin
GenNative(m_pea, immediate, long(gLong.lval).msw, nil, 0);
GenNative(m_pea, immediate, long(gLong.lval).lsw, nil, 0);
end {if}
else if gLong.where = A_X then begin
GenImplied(m_phx);
GenImplied(m_pha);
end; {else if}
gLong.where := onStack;
end; {if}
end; {GenCnv}