paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* empty widestrings can also be optimized to the constant '0'

Browse Source
This commit is contained in:
Jonas Maebe 2001-12-31 09:52:02 +00:00
parent f15dbd7bf0
commit d45517d97d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgcon.pas
View File

@ -207,7 +207,8 @@ implementation
i,mylength : longint;
begin
{ for empty ansistrings we could return a constant 0 }
if is_ansistring(resulttype.def) and
if (is_ansistring(resulttype.def) or
is_widestring(resulttype.def)) and
(len=0) then
begin
location.loc:=LOC_MEM;
@ -516,7 +517,10 @@ begin
end.
{
$Log$
Revision 1.2 2001-10-20 19:28:37 peter
Revision 1.3 2001-12-31 09:52:02 jonas
* empty widestrings can also be optimized to the constant '0'
Revision 1.2 2001/10/20 19:28:37 peter
* interface 2 guid support
* guid constants support