paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added missing register that is destroyed by strecopy

Browse Source 
+ some destroyed register lists for procedures that didn't have one yet
This commit is contained in:
Jonas Maebe 2000-03-28 11:14:33 +00:00
parent e7bb1b59e1
commit 1e8a7f6853
2 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/i386/strings.inc
View File

@ -40,7 +40,7 @@ asm
movsb
.LStrCopyNil:
movl dest,%eax
end;
end ['EAX','ECX','ESI','EDI'];
function strecopy(dest,source : pchar) : pchar;assembler;
@ -65,7 +65,7 @@ asm
movl dest,%eax
decl %edi
movl %edi,%eax
end ['EAX','ESI','EDI'];
end ['EAX','ECX','ESI','EDI'];
function strlcopy(dest,source : pchar;maxlen : longint) : pchar;assembler;
@ -243,7 +243,7 @@ end ['EAX','ECX','ESI','EDI'];
function strscan(p : pchar;c : char) : pchar;assembler;
asm
xorl %eax,%eax
xorl %eax,%eax
movl p,%edi
orl %edi,%edi
jz .LSTRSCAN
@ -261,7 +261,7 @@ asm
movl %edi,%eax
decl %eax
.LSTRSCAN:
end;
end ['EAX','ECX','EDI'];
function strrscan(p : pchar;c : char) : pchar;assembler;
@ -289,7 +289,7 @@ asm
movl %edi,%eax
incl %eax
.LSTRRSCAN:
end;
end ['EAX','ECX','EDI'];
function strupper(p : pchar) : pchar;assembler;
@ -311,7 +311,7 @@ asm
jnz .LSTRUPPER1
.LStrUpperNil:
movl p,%eax
end;
end ['EAX','ESI','EDI'];
function strlower(p : pchar) : pchar;assembler;
@ -333,11 +333,15 @@ asm
jnz .LSTRLOWER1
.LStrLowerNil:
movl p,%eax
end;
end ['EAX','ESI','EDI'];
{
$Log$
Revision 1.7 2000-02-09 16:59:29 peter
Revision 1.8 2000-03-28 11:14:33 jonas
* added missing register that is destroyed by strecopy
+ some destroyed register lists for procedures that didn't have one yet
Revision 1.7 2000/02/09 16:59:29 peter
* truncated log
Revision 1.6 2000/01/07 16:41:33 daniel

11
rtl/i386/stringss.inc
View File

@ -64,20 +64,23 @@ asm
cld
movl d,%edi // load destination address
movl s,%esi // Load Source adress
movl %edi,%ebx // Set return value
lodsb // load length in ECX
movzbl %al,%ecx
rep
movsb
xorb %al,%al // Set #0
stosb
movl %ebx,%eax // return value to EAX
movl d,%eax // return value to EAX
popl %esi
end ['EDI','ESI','EBX','EAX','ECX'];
end ['EDI','EAX','ECX'];
{
$Log$
Revision 1.9 2000-02-09 16:59:29 peter
Revision 1.10 2000-03-28 11:14:33 jonas
* added missing register that is destroyed by strecopy
+ some destroyed register lists for procedures that didn't have one yet
Revision 1.9 2000/02/09 16:59:29 peter
* truncated log
Revision 1.8 2000/01/11 22:56:57 pierre