From ae74e9f8cd6a28e24be7e4d47b00039bfbfe8a57 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Sun, 25 May 2025 22:08:54 +0000
Subject: [PATCH] Set MaxBracesArg constant value to $7FFF - 1 to fit into a
 16-bit signed integer, for a 16-bit CPU

---
 packages/regexpr/src/regexpr.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/regexpr/src/regexpr.pas b/packages/regexpr/src/regexpr.pas
index 506a016a54..f066a8666a 100644
--- a/packages/regexpr/src/regexpr.pas
+++ b/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;