paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also use an 8-bit zero constant for string comparisons with the empty string.

Browse Source 
This avoids the unnecessary 32-bit comparison on 16-bit and 8-bit CPUs

git-svn-id: trunk@32103 -
This commit is contained in:
nickysn 2015-10-20 15:50:02 +00:00
parent 9437d0e4d8
commit 8eceb73dd4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nadd.pas
View File

@ -2359,7 +2359,7 @@ implementation
{ compare the length with 0 }
result := caddnode.create(nodetype,
cinlinenode.create(in_length_x,false,left),
cordconstnode.create(0,s32inttype,false))
cordconstnode.create(0,s8inttype,false))
else
begin
(*