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

* Finalize fixed, constant for ansistrings is 9, not 10

Browse Source
This commit is contained in:
florian 1998-12-19 00:22:09 +00:00
parent 6585e3e089
commit 9af41247e4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/rttip.inc
View File

@ -118,7 +118,7 @@ asm
# decide what type it is
movl 12(%ebp),%ebx
movb (%ebx),%al
subb $10,%al
subb $9,%al
jz .DoAnsiStringFinal
decb %al
jz .DoAnsiStringFinal
@ -210,7 +210,7 @@ asm
# decide what type it is
movl 12(%ebp),%ebx
movb (%ebx),%al
subb $10,%al
subb $9,%al
jz .DoAnsiStringAddRef
decb %al
jz .DoAnsiStringAddRef
@ -295,7 +295,7 @@ asm
# decide what type it is
movl 12(%ebp),%ebx
movb (%ebx),%al
subb $10,%al
subb $9,%al
jz .DoAnsiStringDecRef
decb %al
jz .DoAnsiStringDecRef
@ -374,7 +374,10 @@ end;
{
$Log$
Revision 1.13 1998-12-15 22:42:59 peter
Revision 1.14 1998-12-19 00:22:09 florian
* Finalize fixed, constant for ansistrings is 9, not 10
Revision 1.13 1998/12/15 22:42:59 peter
* removed temp symbols
Revision 1.12 1998/11/30 10:07:34 michael