Explorar o código

* Fixed issue where Val shortcutting would not compile under 32-bit systems

J. Gareth "Curious Kit" Moreton hai 1 ano
pai
achega
01246e4d30
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/ncal.pas

+ 1 - 1
compiler/ncal.pas

@@ -2735,7 +2735,7 @@ implementation
         MaxStrLen: Int64;
         StringLiteral: string;
         ValOutput: TConstExprInt;
-        ValCode: TCGInt;
+        ValCode: Word;
         NewStatements: TStatementNode;
       begin
         result := nil;