paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:39:40 +01: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;
var
nodecount : aint;
nodecount : aword;
function donodecount(var n: tnode; arg: pointer): foreachnoderesult;
begin
@ -49,7 +49,7 @@ unit optunrol;
{ rough estimation how large the tree "node" is }
function countnodes(node : tnode) : aint;
function countnodes(node : tnode) : aword;
begin
nodecount:=0;
foreachnodestatic(node,@donodecount,nil);
@ -57,7 +57,7 @@ unit optunrol;
end;
function number_unrolls(node : tnode) : integer;
function number_unrolls(node : tnode) : cardinal;
begin
{$ifdef i386}
{ multiply by 2 for CPUs with a long pipeline }
@ -74,7 +74,7 @@ unit optunrol;
function unroll_loop(node : tnode) : tnode;
var
unrolls,i : integer;
unrolls,i : cardinal;
counts : qword;
unrollstatement : tstatementnode;
unrollblock : tblocknode;

2
compiler/symdef.pas
View File

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