paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 11:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Peter to fix strlcomp

Browse Source
This commit is contained in:
michael 2003-12-19 09:28:00 +00:00
parent 78aeec22ca
commit 71da578b33
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/i386/strings.inc
View File

@ -240,14 +240,18 @@ asm
repne
scasb
not %ecx
{$ifdef REGCALL}
cmpl saveecx,%ecx
jl .LSTRLCOMP1
movl saveecx,%ecx
.LSTRLCOMP1:
{$ifdef REGCALL}
movl saveedx,%edi
movl saveeax,%esi
{$else}
cmpl l,%ecx
jl .LSTRLCOMP1
movl l,%ecx
.LSTRLCOMP1:
movl str2,%edi
movl str1,%esi
{$endif}
@ -333,14 +337,18 @@ asm
repne
scasb
not %ecx
{$ifdef REGCALL}
cmpl saveecx,%ecx
jl .LSTRLICOMP5
movl saveecx,%ecx
.LSTRLICOMP5:
{$ifdef REGCALL}
movl saveedx,%edi
movl saveeax,%esi
{$else}
cmpl l,%ecx
jl .LSTRLICOMP5
movl l,%ecx
.LSTRLICOMP5:
movl str2,%edi
movl str1,%esi
{$endif}
@ -599,7 +607,10 @@ end;
{
$Log$
Revision 1.12 2003-12-17 21:56:33 peter
Revision 1.13 2003-12-19 09:28:00 michael
+ Patch from Peter to fix strlcomp
Revision 1.12 2003/12/17 21:56:33 peter
* win32 regcall patches
Revision 1.11 2003/11/23 16:50:49 peter