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

Add support for real to long long conversions.

This commit is contained in:
Stephen Heumann 2021-02-16 18:47:28 -06:00
parent e38be489df
commit e3b24fb50b
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Gen.pas
View File

@ -1610,8 +1610,10 @@ else if op^.q in [longToQuad,longToUQuad] then begin
GenImplied(m_pha);
end; {else}
end {else if}
else if op^.q in [realToQuad, realToUQuad] then
Error(cge1) {TODO: implement}
else if op^.q = realToQuad then
GenCall(89)
else if op^.q = realToUQuad then
GenCall(90)
else if op^.q in [quadToWord,uquadToWord,quadToUWord,uquadToUWord] then begin
GenImplied(m_pla);
GenImplied(m_plx);

2
Native.pas
View File

@ -2043,6 +2043,8 @@ case callNum of
86: sp := @'~ASHR8';
87: sp := @'~LSHR8';
88: sp := @'~SCMP8';
89: sp := @'~CNVREALLONGLONG';
90: sp := @'~CNVREALULONGLONG';
otherwise:
Error(cge1);
end; {case}