From e3b24fb50ba24599d8f70b212acd2148fa0dff08 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Tue, 16 Feb 2021 18:47:28 -0600
Subject: [PATCH] Add support for real to long long conversions.

---
 Gen.pas    | 6 ++++--
 Native.pas | 2 ++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Gen.pas b/Gen.pas
index 3d53abf..4277bdd 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -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);
diff --git a/Native.pas b/Native.pas
index 67a77d7..1aef324 100644
--- a/Native.pas
+++ b/Native.pas
@@ -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}