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

* typo error if previous commit

Browse Source
This commit is contained in:
pierre 1999-12-21 11:48:09 +00:00
parent 23008671b0
commit 5f6f1fd669
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/i386/i386.inc
View File

@ -659,17 +659,17 @@ function strchararray(p:pchar; l : longint):shortstring;[public,alias:'FPC_CHARA
begin
asm
cld
movl p,%edi
movl p,%esi
movl l,%ecx
orl %edi,%edi
jnz .LStrPasNotNil
orl %esi,%esi
jnz .LStrCharArrayNotNil
movl $0,%ecx
.LStrPasNotNil:
.LStrCharArrayNotNil:
movl %ecx,%eax
movl __RESULT,%edi
stosb
cmpl $7,%eax
jl .LStrPas2
jl .LStrCharArray2
movl %edi,%ecx { Align on 32bits }
negl %ecx
andl $3,%ecx
@ -681,7 +681,7 @@ begin
shrl $2,%ecx
rep
movsl
.LStrPas2:
.LStrCharArray2:
movl %eax,%ecx
rep
movsb
@ -918,7 +918,10 @@ end;
{
$Log$
Revision 1.62 1999-12-21 11:13:34 pierre
Revision 1.63 1999-12-21 11:48:09 pierre
* typo error if previous commit
Revision 1.62 1999/12/21 11:13:34 pierre
+ FPC_CHARARRAY_TO_SHORTSTRING added
Revision 1.61 1999/12/11 18:59:44 jonas