Sfoglia il codice sorgente

Set MaxBracesArg constant value to $7FFF - 1 to fit into a 16-bit signed integer, for a 16-bit CPU

Pierre Muller 3 mesi fa
parent
commit
ae74e9f8cd
1 ha cambiato i file con 4 aggiunte e 0 eliminazioni
  1. 4 0
      packages/regexpr/src/regexpr.pas

+ 4 - 0
packages/regexpr/src/regexpr.pas

@@ -959,7 +959,11 @@ const
   RegExprLineSeparatorsSet = [$d, $a, $b, $c] {$IFDEF UnicodeRE} + [$85] {$ENDIF};
   RegExprHorzSeparatorsSet = [9, $20, $A0];
 
+{$ifdef CPU16}
+  MaxBracesArg = $7FFF - 1;
+{$else}
   MaxBracesArg = $7FFFFFFF - 1; // max value for {n,m} arguments
+{$endif}
 
 type
   TRENextOff = PtrInt;