浏览代码

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

Pierre Muller 3 月之前
父节点
当前提交
ae74e9f8cd
共有 1 个文件被更改,包括 4 次插入0 次删除
  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;