paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* strpas is again slightly slower, but won't crash anymore if a pchar

Browse Source 
is passed to it that starts less than 4 bbytes from the heap end
This commit is contained in:
Jonas Maebe 2000-06-30 12:20:20 +00:00
parent bfe30b974e
commit d0b7a84ef6
1 changed files with 31 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
rtl/i386/stringss.inc
View File

@ -19,67 +19,55 @@ function strpas(p : pchar) : string;
begin
asm
movl __RESULT,%edi
movl p,%esi
// at the end, add 255 to cl to get the string length (byte(1+255) = 0)
movb $1,%cl
movl p,%esi
// skip length byte -> align dest to multiple of 4
movl (%esi),%eax
testl $0x0ff,%eax
jz .LStrPasDone
// we only need the first 3 chars currently
shll $8,%eax
.LStrCopyAlignLoop:
movb (%esi),%al
incl %edi
incl %esi
testb %al,%al
jz .LStrCopyDone
incb %cl
addl $3,%esi
// Store everything already, since the temp string = 255 chars anyway
// The length byte will contain zero this way, but it will be
// overwritten at the end, so it doesn't matter
movl %eax,(%edi)
// test the second char (we shifted left 8 bits)
testl $0x0ff0000,%eax
jz .LStrPasDone
// for pairing, add 4 to edi here already
addl $4,%edi
incb %cl
// test the third char (we shifted left 8 bits)
testl $0x0ff000000,%eax
jz .LStrPasDone
incb %cl
.balign 16
.LStrPasLoop:
movb %al,(%edi)
cmpb $4,%cl
jne .LStrCopyAlignLoop
incl %edi
.align 16
.LStrCopyAligned:
movl (%esi),%eax
addl $4,%esi
// this won't overwrite data since the result = 255 char string
movl %eax,(%edi)
testl $0x0ff,%eax
jz .LStrPasDone
jz .LStrCopyDone
testl $0x0ff00,%eax
jz .LStrPasByte
jz .LStrCopyByte
testl $0x0ff0000,%eax
jz .LStrPasWord
jz .LStrCopyWord
testl $0x0ff000000,%eax
jz .LStrPas3Bytes
jz .LStrCopy3Bytes
addl $4,%edi
addb $4,%cl
// since cl = 4 at the start of the loop, it will always count
// since ecx = 4 at the start of the loop, it will always count
// upto exactly 0
jnz .LStrPasLoop
jmp .LStrPasDone
.LStrPas3Bytes:
jnz .LStrCopyAligned
jmp .LStrCopyDone
.LStrCopy3Bytes:
addb $3,%cl
jmp .LStrPasDone
.LStrPasWord:
jmp .LStrCopyDone
.LStrCopyWord:
addb $2,%cl
jmp .LStrPasDone
.LStrPasByte:
jmp .LStrCopyDone
.LStrCopyByte:
incb %cl
.LStrPasDone:
.LStrCopyDone:
movl __RESULT,%edi
addb $255,%cl
movb %cl,(%edi)
end ['EAX','ECX','ESI','EDI'];
end;
function strpcopy(d : pchar;const s : string) : pchar;assembler;
asm
pushl %esi // Save ESI
@ -98,7 +86,11 @@ end ['EDI','EAX','ECX'];
{
$Log$
Revision 1.13 2000-06-12 19:53:32 peter
Revision 1.14 2000-06-30 12:20:20 jonas
* strpas is again slightly slower, but won't crash anymore if a pchar
is passed to it that starts less than 4 bbytes from the heap end
Revision 1.13 2000/06/12 19:53:32 peter
* change .align to .balign
Revision 1.12 2000/06/12 13:17:56 jonas