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

* some aint -> tcgint changes to avoid range check errors on systems with sizeof(aint)<4

Browse Source 
git-svn-id: trunk@18966 -
This commit is contained in:
florian 2011-09-04 14:26:27 +00:00
parent 4204cfe271
commit a1381c1240
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncon.pas
View File

@ -342,7 +342,7 @@ implementation
constructor tdataconstnode.ppuload(t:tnodetype;ppufile:tcompilerppufile); constructor tdataconstnode.ppuload(t:tnodetype;ppufile:tcompilerppufile);
var var
len : aint; len : tcgint;
buf : array[0..255] of byte; buf : array[0..255] of byte;
begin begin
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
@ -378,7 +378,7 @@ implementation
procedure tdataconstnode.ppuwrite(ppufile:tcompilerppufile); procedure tdataconstnode.ppuwrite(ppufile:tcompilerppufile);
var var
len : aint; len : tcgint;
buf : array[0..255] of byte; buf : array[0..255] of byte;
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
@ -406,7 +406,7 @@ implementation
function tdataconstnode.dogetcopy : tnode; function tdataconstnode.dogetcopy : tnode;
var var
n : tdataconstnode; n : tdataconstnode;
len : aint; len : tcgint;
buf : array[0..255] of byte; buf : array[0..255] of byte;
begin begin
n:=tdataconstnode(inherited dogetcopy); n:=tdataconstnode(inherited dogetcopy);

2
compiler/symtable.pas
View File

@ -1149,7 +1149,7 @@ implementation
i : integer; i : integer;
varalignrecord,varalign, varalignrecord,varalign,
storesize,storealign : aint; storesize,storealign : aint;
bitsize: aint; bitsize: tcgint;
begin begin
storesize:=_datasize; storesize:=_datasize;
storealign:=fieldalignment; storealign:=fieldalignment;