From e86a4a9c1f6e4a406a8353d984c9f8f9b103af63 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 28 Jan 2025 16:10:50 +0100
Subject: [PATCH] * Forgot to commit

---
 packages/fcl-passrc/src/paswrite.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 26ba1e55fd..1fecc5849d 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -872,7 +872,8 @@ procedure TPasWriter.WriteRecordType(AType: TPasRecordType);
 
 Var
   Temp : String;
-
+  i : Integer;
+  
 begin
   Temp:='record';
   If aType.IsPacked then