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

+ Adjusted typeinfo constants

Browse Source
This commit is contained in:
michael 1998-11-30 10:07:34 +00:00
parent a1f1003555
commit 5f21062312
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/i386/rttip.inc
View File

@ -27,11 +27,12 @@ asm
# decide what type it is
movl 12(%ebp),%ebx
movb (%ebx),%al
subb $10,%al
# This is MANIFESTLY wrong
subb $9,%al
jz .DoAnsiStringInit
decb %al
jz .DoAnsiStringInit
subb $2,%al
subb $3,%al
jz .DoArrayInit
decb %al
jz .DoRecordInit
@ -386,7 +387,10 @@ end;
{
$Log$
Revision 1.11 1998-11-17 00:41:10 peter
Revision 1.12 1998-11-30 10:07:34 michael
+ Adjusted typeinfo constants
Revision 1.11 1998/11/17 00:41:10 peter
* renamed string functions
Revision 1.10 1998/11/16 12:21:47 peter