瀏覽代碼

* fix alignrecord fieldoffset size

git-svn-id: trunk@10548 -
micha 17 年之前
父節點
當前提交
3e1149f740
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/symtable.pas

+ 2 - 2
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