paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Pierre Muller 2025-05-25 22:08:54 +00:00
parent aed26f7aed
commit ae74e9f8cd
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/regexpr/src/regexpr.pas
View File

@ -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;