paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 02:39:11 +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

5
compiler/defcmp.pas
View File

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