Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-03-11 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Generate code for long long to real conversions.

Browse Source
This commit is contained in:
Stephen Heumann 2021-02-11 12:41:58 -06:00
parent b07c8a1ad8
commit 30f2eda4f3
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

@ -1575,8 +1575,10 @@ else if op^.q in [quadToVoid,uquadToVoid] then begin
GenNative(m_adc_imm, immediate, 8, nil, 0);
GenImplied(m_tcs);
end {else if}
else if op^.q in [quadToReal, uquadToReal] then
Error(cge1) {TODO: implement}
else if op^.q = quadToReal then
GenCall(83)
else if op^.q = uquadToReal then
GenCall(84)
else if (op^.q & $000F) = cVoid then
{do nothing}
else if (op^.q & $000F) in [cLong,cULong] then

2
Native.pas
View File

@ -2037,6 +2037,8 @@ case callNum of
80: sp := @'~UMUL8';
81: sp := @'~CDIV8';
82: sp := @'~UDIV8';
83: sp := @'~CNVLONGLONGREAL';
84: sp := @'~CNVULONGLONGREAL';
otherwise:
Error(cge1);
end; {case}