Add support for real to long long conversions.
This commit is contained in:
parent
e38be489df
commit
e3b24fb50b
6
Gen.pas
6
Gen.pas
|
@ -1610,8 +1610,10 @@ else if op^.q in [longToQuad,longToUQuad] then begin
|
||||||
GenImplied(m_pha);
|
GenImplied(m_pha);
|
||||||
end; {else}
|
end; {else}
|
||||||
end {else if}
|
end {else if}
|
||||||
else if op^.q in [realToQuad, realToUQuad] then
|
else if op^.q = realToQuad then
|
||||||
Error(cge1) {TODO: implement}
|
GenCall(89)
|
||||||
|
else if op^.q = realToUQuad then
|
||||||
|
GenCall(90)
|
||||||
else if op^.q in [quadToWord,uquadToWord,quadToUWord,uquadToUWord] then begin
|
else if op^.q in [quadToWord,uquadToWord,quadToUWord,uquadToUWord] then begin
|
||||||
GenImplied(m_pla);
|
GenImplied(m_pla);
|
||||||
GenImplied(m_plx);
|
GenImplied(m_plx);
|
||||||
|
|
|
@ -2043,6 +2043,8 @@ case callNum of
|
||||||
86: sp := @'~ASHR8';
|
86: sp := @'~ASHR8';
|
||||||
87: sp := @'~LSHR8';
|
87: sp := @'~LSHR8';
|
||||||
88: sp := @'~SCMP8';
|
88: sp := @'~SCMP8';
|
||||||
|
89: sp := @'~CNVREALLONGLONG';
|
||||||
|
90: sp := @'~CNVREALULONGLONG';
|
||||||
otherwise:
|
otherwise:
|
||||||
Error(cge1);
|
Error(cge1);
|
||||||
end; {case}
|
end; {case}
|
||||||
|
|
Loading…
Reference in New Issue