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

* nil check for strpas

Browse Source
This commit is contained in:
peter 1999-04-22 10:52:40 +00:00
parent de533ed2cc
commit 62effc73d7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/i386.inc
View File

@ -546,10 +546,16 @@ begin
cld
movl p,%edi
movl $0xff,%ecx
orl %edi,%edi
jnz .LStrPasNotNil
decl %ecx
jmp .LStrPasNil
.LStrPasNotNil:
xorl %eax,%eax
movl %edi,%esi
repne
scasb
.LStrPasNil:
movl %ecx,%eax
{$ifdef NEWATT}
movl __RESULT,%edi
@ -794,7 +800,10 @@ end;
{
$Log$
Revision 1.44 1999-04-19 06:13:28 florian
Revision 1.45 1999-04-22 10:52:40 peter
* nil check for strpas
Revision 1.44 1999/04/19 06:13:28 florian
* the class helper routines doesn't store the registers properly,
fixed