paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for overflow in sort_movelist (by Paul Ishenin, mantis #15204), and

Browse Source 
made a similar change in sort_simplify_worklist

git-svn-id: trunk@14296 -
This commit is contained in:
Jonas Maebe 2009-12-03 11:07:37 +00:00
parent 1cd32f5327
commit 93523c7767
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -260,7 +260,7 @@ unit rgobj;
{Ok, sorting pointers is silly, but it does the job to make Trgobj.combine {Ok, sorting pointers is silly, but it does the job to make Trgobj.combine
faster.} faster.}
var h,i,p:word; var h,i,p:longword;
t:Tlinkedlistitem; t:Tlinkedlistitem;
begin begin
@ -790,7 +790,7 @@ unit rgobj;
registers in it cause. This allows simplify to execute in registers in it cause. This allows simplify to execute in
constant time.} constant time.}
var p,h,i,leni,lent:word; var p,h,i,leni,lent:longword;
t:Tsuperregister; t:Tsuperregister;
adji,adjt:Psuperregisterworklist; adji,adjt:Psuperregisterworklist;