paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 15:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: cleanup

Browse Source 
git-svn-id: trunk@19208 -
This commit is contained in:
paul 2011-09-24 17:41:13 +00:00
parent 3b9fd15af7
commit 00396da30c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/defcmp.pas
View File

@ -378,10 +378,7 @@ implementation
(tstringdef(def_from).len=tstringdef(def_to).len)) and (tstringdef(def_from).len=tstringdef(def_to).len)) and
{ for ansi- and unicodestrings also the encoding must match } { for ansi- and unicodestrings also the encoding must match }
(not(tstringdef(def_from).stringtype in [st_ansistring,st_unicodestring]) or (not(tstringdef(def_from).stringtype in [st_ansistring,st_unicodestring]) or
(tstringdef(def_from).encoding=tstringdef(def_to).encoding) //or (tstringdef(def_from).encoding=tstringdef(def_to).encoding)) then
{ RawByteString is compatible with everything }
{(tstringdef(def_from).encoding=65535) or
(tstringdef(def_to).encoding=65535)}) then
eq:=te_equal eq:=te_equal
else else
begin begin