Add long long support for the ! operator.

2021-02-04 17:53:10 -06:00 · 2021-02-04 17:53:10 -06:00 · d2fb8cc27e
parent 5e5434987b
commit d2fb8cc27e
1 changed files with 5 additions and 0 deletions
--- 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);