From d2fb8cc27eb32a1eb6aae839c0280a1976261b49 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Thu, 4 Feb 2021 17:53:10 -0600
Subject: [PATCH] Add long long support for the ! operator.

---
 Expression.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Expression.pas b/Expression.pas
index ec5228a..0c22708 100644
--- a/Expression.pas
+++ b/Expression.pas
@@ -3685,6 +3685,11 @@ case tree^.token.kind of
             Gen0t(pc_equ, cgLong);
             end;
 
+         cgQuad,cgUQuad: begin
+            GenLdcQuad(longlong0);
+            Gen0t(pc_equ, cgQuad);
+            end;
+
          cgExtended: begin
             GenLdcReal(0.0);
             Gen0t(pc_equ, cgExtended);