From 3e1149f740d46ff78ccd992ea4c9ae2415e5721c Mon Sep 17 00:00:00 2001
From: micha <micha@idefix.freepascal.org>
Date: Mon, 24 Mar 2008 09:57:28 +0000
Subject: [PATCH] * fix alignrecord fieldoffset size

git-svn-id: trunk@10548 -
---
 compiler/symtable.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index 222e65aa50..17a81f75e5 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -85,7 +85,7 @@ interface
           constructor create(const n:string;usealign:shortint);
           procedure ppuload(ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
-          procedure alignrecord(fieldoffset,varalign:shortint);
+          procedure alignrecord(fieldoffset:aint;varalign:shortint);
           procedure addfield(sym:tfieldvarsym);
           procedure insertfield(sym:tfieldvarsym);
           procedure addalignmentpadding;
@@ -787,7 +787,7 @@ implementation
           result:=1;
       end;
 
-    procedure tabstractrecordsymtable.alignrecord(fieldoffset,varalign:shortint);
+    procedure tabstractrecordsymtable.alignrecord(fieldoffset:aint;varalign:shortint);
       var
         varalignrecord: shortint;
       begin