paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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);

6
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;
@ -1471,7 +1471,7 @@ implementation
if assigned(hsym) then
begin
if hsym.typ=symconst.namespacesym then
begin
begin
case sym.typ of
symconst.namespacesym:;
symconst.unitsym:
@ -1486,7 +1486,7 @@ implementation
else
{ 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>.<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 }
if (hsym.typ=symconst.unitsym) and
((m_delphi in current_settings.modeswitches) or (sym.typ=symconst.namespacesym)) then