paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +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);
var
len : aint;
len : tcgint;
buf : array[0..255] of byte;
begin
inherited ppuload(t,ppufile);
@ -378,7 +378,7 @@ implementation
procedure tdataconstnode.ppuwrite(ppufile:tcompilerppufile);
var
len : aint;
len : tcgint;
buf : array[0..255] of byte;
begin
inherited ppuwrite(ppufile);
@ -406,7 +406,7 @@ implementation
function tdataconstnode.dogetcopy : tnode;
var
n : tdataconstnode;
len : aint;
len : tcgint;
buf : array[0..255] of byte;
begin
n:=tdataconstnode(inherited dogetcopy);

2
compiler/symtable.pas
View File

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