paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +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)
is_global : boolean;
sym : tasmsymbol;
size : aint;
size : asizeint;
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;
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure derefimpl;override;
@ -883,7 +883,7 @@ implementation
end;
constructor tai_datablock.Create_global(const _name : string;_size : aint);
constructor tai_datablock.Create_global(const _name : string;_size : asizeint);
begin
inherited Create;
typ:=ait_datablock;

2
compiler/ncgutil.pas
View File

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

2
compiler/ptconst.pas
View File

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