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

* Prevent some operations between qwords and signed types.

Browse Source 
git-svn-id: trunk@7796 -
This commit is contained in:
daniel 2007-06-24 18:40:07 +00:00
parent 1f5b7b9836
commit e542a502c6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optunrol.pas
View File

@ -39,7 +39,7 @@ unit optunrol;
nbas,nflw,ncon,ninl,ncal; nbas,nflw,ncon,ninl,ncal;
var var
nodecount : aint; nodecount : aword;
function donodecount(var n: tnode; arg: pointer): foreachnoderesult; function donodecount(var n: tnode; arg: pointer): foreachnoderesult;
begin begin
@ -49,7 +49,7 @@ unit optunrol;
{ rough estimation how large the tree "node" is } { rough estimation how large the tree "node" is }
function countnodes(node : tnode) : aint; function countnodes(node : tnode) : aword;
begin begin
nodecount:=0; nodecount:=0;
foreachnodestatic(node,@donodecount,nil); foreachnodestatic(node,@donodecount,nil);
@ -57,7 +57,7 @@ unit optunrol;
end; end;
function number_unrolls(node : tnode) : integer; function number_unrolls(node : tnode) : cardinal;
begin begin
{$ifdef i386} {$ifdef i386}
{ multiply by 2 for CPUs with a long pipeline } { multiply by 2 for CPUs with a long pipeline }
@ -74,7 +74,7 @@ unit optunrol;
function unroll_loop(node : tnode) : tnode; function unroll_loop(node : tnode) : tnode;
var var
unrolls,i : integer; unrolls,i : cardinal;
counts : qword; counts : qword;
unrollstatement : tstatementnode; unrollstatement : tstatementnode;
unrollblock : tblocknode; unrollblock : tblocknode;

2
compiler/symdef.pas
View File

@ -546,7 +546,7 @@ interface
elementdefderef : tderef; elementdefderef : tderef;
settype : tsettype; settype : tsettype;
setbase, setbase,
setmax : aint; setmax : aword;
constructor create(def:tdef;high : aint); constructor create(def:tdef;high : aint);
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);
function getcopy : tstoreddef;override; function getcopy : tstoreddef;override;