* fpc_pchar_length: fixed exit without restoring EDI register if argument is nil, bug #21135.

git-svn-id: trunk@20156 -

rtl/i386/i386.inc

@@ -936,12 +936,12 @@ asm
         pop   %edx
         pop   %eax
 {$endif FPC_PROFILE}
+        test    %eax,%eax
+        jz      .LStrLenDone
         movl    %edi,saveedi
         movl    %eax,%edi
         movl    $0xffffffff,%ecx
         xorl    %eax,%eax
-	test    %edi,%edi
-	jz      .LStrLenDone
         cld
         repne
         scasb