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

* Some register allocation fixes. for stricomp and strilcomp

Browse Source
This commit is contained in:
marco 2001-01-21 10:12:32 +00:00
parent ee51dcc980
commit f936d45210
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/strings.inc
View File

@ -223,7 +223,7 @@ asm
subl %ebx,%eax subl %ebx,%eax
jz .LSTRICOMP2 // If still equal, compare again jz .LSTRICOMP2 // If still equal, compare again
.LSTRICOMP3: .LSTRICOMP3:
end ['EAX','ECX','ESI','EDI']; end ['EAX','EBX','ECX','ESI','EDI'];
function strlicomp(str1,str2 : pchar;l : longint) : longint;assembler; function strlicomp(str1,str2 : pchar;l : longint) : longint;assembler;
@ -262,7 +262,7 @@ asm
subl %ebx,%eax subl %ebx,%eax
jz .LSTRLICOMP2 jz .LSTRLICOMP2
.LSTRLICOMP3: .LSTRLICOMP3:
end ['EAX','ECX','ESI','EDI']; end ['EAX','EBX','ECX','ESI','EDI'];
function strscan(p : pchar;c : char) : pchar;assembler; function strscan(p : pchar;c : char) : pchar;assembler;
@ -415,7 +415,10 @@ end ['EAX','ESI','EDI'];
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:42 michael Revision 1.3 2001-01-21 10:12:32 marco
* Some register allocation fixes. for stricomp and strilcomp
Revision 1.2 2000/07/13 11:33:42 michael
+ removed logs + removed logs
} }