paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* aint -> asizeint changes

Browse Source 
git-svn-id: trunk@17018 -
This commit is contained in:
florian 2011-02-26 20:16:14 +00:00
parent fcd3872d88
commit 5abdfb6f7e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmtai.pas
View File

@ -401,9 +401,9 @@ interface
tai_datablock = class(tailineinfo) tai_datablock = class(tailineinfo)
is_global : boolean; is_global : boolean;
sym : tasmsymbol; sym : tasmsymbol;
size : aint; size : asizeint;
constructor Create(const _name : string;_size : aint); constructor Create(const _name : string;_size : aint);
constructor Create_global(const _name : string;_size : aint); constructor Create_global(const _name : string;_size : asizeint);
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override; constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure derefimpl;override; procedure derefimpl;override;
@ -883,7 +883,7 @@ implementation
end; end;
constructor tai_datablock.Create_global(const _name : string;_size : aint); constructor tai_datablock.Create_global(const _name : string;_size : asizeint);
begin begin
inherited Create; inherited Create;
typ:=ait_datablock; typ:=ait_datablock;

2
compiler/ncgutil.pas
View File

@ -2448,7 +2448,7 @@ implementation
procedure insertbssdata(sym : tstaticvarsym); procedure insertbssdata(sym : tstaticvarsym);
var var
l : aint; l : asizeint;
varalign : shortint; varalign : shortint;
storefilepos : tfileposinfo; storefilepos : tfileposinfo;
list : TAsmList; list : TAsmList;

2
compiler/ptconst.pas
View File

@ -171,7 +171,7 @@ implementation
threc = record threc = record
list : tasmlist; list : tasmlist;
origsym: tstaticvarsym; origsym: tstaticvarsym;
offset: aint; offset: asizeint;
end; end;
{ this procedure reads typed constants } { this procedure reads typed constants }