paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 13:09:38 +01: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);

6
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;
@ -1471,7 +1471,7 @@ implementation
if assigned(hsym) then if assigned(hsym) then
begin begin
if hsym.typ=symconst.namespacesym then if hsym.typ=symconst.namespacesym then
begin begin
case sym.typ of case sym.typ of
symconst.namespacesym:; symconst.namespacesym:;
symconst.unitsym: symconst.unitsym:
@ -1486,7 +1486,7 @@ implementation
else else
{ In delphi (contrary to TP) you can have a symbol with the same name as the { In delphi (contrary to TP) you can have a symbol with the same name as the
unit, the unit can then not be accessed anymore using unit, the unit can then not be accessed anymore using
<unit>.<id>, so we can hide the symbol. <unit>.<id>, so we can hide the symbol.
Do the same if we add a namespace and there is a unit with the same name } Do the same if we add a namespace and there is a unit with the same name }
if (hsym.typ=symconst.unitsym) and if (hsym.typ=symconst.unitsym) and
((m_delphi in current_settings.modeswitches) or (sym.typ=symconst.namespacesym)) then ((m_delphi in current_settings.modeswitches) or (sym.typ=symconst.namespacesym)) then