소스 검색

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;