paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-20 14:36:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix alignrecord fieldoffset size

Browse Source 
git-svn-id: trunk@10548 -
This commit is contained in:
micha 2008-03-24 09:57:28 +00:00
parent 4b8486e55b
commit 3e1149f740
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symtable.pas
View File

@ -85,7 +85,7 @@ interface
constructor create(const n:string;usealign:shortint); constructor create(const n:string;usealign:shortint);
procedure ppuload(ppufile:tcompilerppufile);override; procedure ppuload(ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure alignrecord(fieldoffset,varalign:shortint); procedure alignrecord(fieldoffset:aint;varalign:shortint);
procedure addfield(sym:tfieldvarsym); procedure addfield(sym:tfieldvarsym);
procedure insertfield(sym:tfieldvarsym); procedure insertfield(sym:tfieldvarsym);
procedure addalignmentpadding; procedure addalignmentpadding;
@ -787,7 +787,7 @@ implementation
result:=1; result:=1;
end; end;
procedure tabstractrecordsymtable.alignrecord(fieldoffset,varalign:shortint); procedure tabstractrecordsymtable.alignrecord(fieldoffset:aint;varalign:shortint);
var var
varalignrecord: shortint; varalignrecord: shortint;
begin begin