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

* bug fix in defutil.get_common_intdef

Browse Source 
git-svn-id: branches/i8086@24115 -
This commit is contained in:
nickysn 2013-04-01 19:25:11 +00:00
parent 8a1178e4e9
commit a8d72cc11a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/defutil.pas
View File

@ -1221,7 +1221,7 @@ implementation
llow, lhigh: tconstexprint; llow, lhigh: tconstexprint;
begin begin
llow:=rd.low; llow:=rd.low;
if llow<ld.low then if llow>ld.low then
llow:=ld.low; llow:=ld.low;
lhigh:=rd.high; lhigh:=rd.high;
if lhigh<ld.high then if lhigh<ld.high then