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

compiler: cleanup old code

Browse Source 
git-svn-id: trunk@19458 -
This commit is contained in:
paul 2011-10-11 03:58:13 +00:00
parent a99ffb3097
commit 9bc540e1c2
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncnv.pas
View File

@ -2992,13 +2992,7 @@ implementation
end end
{ encoding parameter required? } { encoding parameter required? }
else if (tstringdef(resultdef).stringtype=st_ansistring) and else if (tstringdef(resultdef).stringtype=st_ansistring) and
((tstringdef(left.resultdef).stringtype in [st_widestring,st_unicodestring,st_shortstring]) or (tstringdef(left.resultdef).stringtype in [st_widestring,st_unicodestring,st_shortstring,st_ansistring]) then
{ ansistring to ansistring and no RawByteString envolved? }
(//(tstringdef(resultdef).encoding<>65535) and
(tstringdef(left.resultdef).stringtype=st_ansistring)
//(tstringdef(left.resultdef).encoding<>65535)
)
) then
result:=ccallnode.createinternres(procname, result:=ccallnode.createinternres(procname,
ccallparanode.create(cordconstnode.create(tstringdef(resultdef).encoding,u16inttype,true), ccallparanode.create(cordconstnode.create(tstringdef(resultdef).encoding,u16inttype,true),
ccallparanode.create(left,nil)),resultdef) ccallparanode.create(left,nil)),resultdef)