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

* fixed merging of identical ansi/widestrings

Browse Source 
git-svn-id: trunk@4552 -
This commit is contained in:
Jonas Maebe 2006-09-04 13:08:20 +00:00
parent 9b33012fe9
commit af538ebde8
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/ncgcon.pas
View File

@ -338,11 +338,11 @@ implementation
if assigned(hp2) and
(hp2.typ=ait_const) and
(tai_const(hp2).consttype=aitconst_aint) and
(tai_const(hp2).value=-1) and
(tai_const(hp2).value=len) and
assigned(hp2.previous) and
(tai(hp2.previous).typ=ait_const) and
(tai_const(hp2.previous).consttype=aitconst_aint) and
(tai_const(hp2.previous).value=len) and
(tai_const(hp2.previous).value=-1) and
assigned(hp2.previous.previous) and
(tai(hp2.previous.previous).typ=ait_const) and
(tai_const(hp2.previous.previous).consttype=aitconst_ptr) and