[Jcl-checkins-diff] SF.net SVN: jcl:[2903] trunk/jcl/source/common/JclWideStrings.pas

[<ou...@us...>]

Revision: 2903
          http://jcl.svn.sourceforge.net/jcl/?rev=2903&view=rev
Author:   outchy
Date:     2009-07-31 08:30:15 +0000 (Fri, 31 Jul 2009)

Log Message:
-----------
Bug fix: StrLen is a 32 bit parameter, the entire ECX should be tested.

Modified Paths:
--------------
    trunk/jcl/source/common/JclWideStrings.pas

Modified: trunk/jcl/source/common/JclWideStrings.pas
===================================================================
--- trunk/jcl/source/common/JclWideStrings.pas	2009-07-31 08:24:07 UTC (rev 2902)
+++ trunk/jcl/source/common/JclWideStrings.pas	2009-07-31 08:30:15 UTC (rev 2903)
@@ -765,7 +765,7 @@
 asm
        TEST    EAX, EAX
        JZ      @@Exit        // get out if the string is nil or StrLen is 0
-       JCXZ    @@Exit
+       JECXZ   @@Exit
 @@Loop:
        CMP     [EAX], DX     // this unrolled loop is actually faster on modern processors
        JE      @@Exit        // than REP SCASW


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.