From 4f2f3e3449fd8d92cdf36214420ea710a1397daf Mon Sep 17 00:00:00 2001
From: Uwe Raabe <uwe@uweraabe.de>
Date: Fri, 5 Jun 2026 23:46:00 +0200
Subject: [PATCH 1/2] Fix parsing expression after record align

---
 Source/SimpleParser/SimpleParser.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
index d7efd2c..50800de 100644
--- a/Source/SimpleParser/SimpleParser.pas
+++ b/Source/SimpleParser/SimpleParser.pas
@@ -4381,7 +4381,10 @@ procedure TmwSimplePasPar.RecordAlign;
   if ExID = ptAlign then
   begin
     NextToken;
-    RecordAlignValue;
+    if TokenID = ptRoundOpen then
+      SimpleExpression
+    else
+      RecordAlignValue;
   end;
 end;
 

From 6d82270eea8742ea1579e8d322d59e300742ebde Mon Sep 17 00:00:00 2001
From: Uwe Raabe <uwe@uweraabe.de>
Date: Sat, 6 Jun 2026 11:24:26 +0200
Subject: [PATCH 2/2] Record align accepts only ConstantExpression

---
 Source/SimpleParser/SimpleParser.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
index 50800de..8600bcc 100644
--- a/Source/SimpleParser/SimpleParser.pas
+++ b/Source/SimpleParser/SimpleParser.pas
@@ -4382,7 +4382,7 @@ procedure TmwSimplePasPar.RecordAlign;
   begin
     NextToken;
     if TokenID = ptRoundOpen then
-      SimpleExpression
+      ConstantExpression
     else
       RecordAlignValue;
   end;