git-svn-id: trunk@12463 -
@@ -1037,15 +1037,12 @@ asm
{$endif}
movl $0xffffffff,%ecx
xorl %eax,%eax
- cmp %edi,%edi
- jz .LStrLenDone
cld
repne
scasb
movl $0xfffffffe,%eax
subl %ecx,%eax
movl saveedi,%edi
-.LStrLenDone:
end;
{$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}