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

* fixed constants in rtti

Browse Source 
* longjmp does now a finit
This commit is contained in:
florian 2000-02-18 15:23:01 +00:00
parent 374a30f3e6
commit ff96d13e5f
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/i386/rttip.inc
View File

@ -30,11 +30,11 @@ asm
jz .LDoAnsiStringInit
decb %al
jz .LDoAnsiStringInit
subb $3,%al
subb $2,%al
jz .LDoArrayInit
decb %al
jz .LDoRecordInit
decb %al
subb $2,%al
jz .LDoClassInit
decb %al
jz .LDoObjectInit
@ -122,11 +122,11 @@ asm
jz .LDoAnsiStringFinal
decb %al
jz .LDoAnsiStringFinal
subb $3,%al
subb $2,%al
jz .LDoArrayFinal
decb %al
jz .LDoRecordFinal
decb %al
subb $2,%al
jz .LDoClassFinal
decb %al
jz .LDoObjectFinal
@ -219,7 +219,7 @@ asm
jz .LDoArrayAddRef
decb %al
jz .LDoRecordAddRef
decb %al
subb $2,%al
jz .LDoClassAddRef
decb %al
jz .LDoObjectAddRef
@ -305,7 +305,7 @@ asm
jz .LDoArrayDecRef
decb %al
jz .LDoRecordDecRef
decb %al
subb $2,%al
jz .LDoClassDecRef
decb %al
jz .LDoObjectDecRef
@ -375,7 +375,11 @@ end;
{
$Log$
Revision 1.20 2000-02-09 16:59:29 peter
Revision 1.21 2000-02-18 15:23:01 florian
* fixed constants in rtti
* longjmp does now a finit
Revision 1.20 2000/02/09 16:59:29 peter
* truncated log
Revision 1.19 2000/01/11 21:11:34 marco

7
rtl/i386/setjump.inc
View File

@ -38,6 +38,7 @@ asm
jne .Ljnonzero
movl $1,%eax
.Ljnonzero:
fninit
movl (%ecx),%ebx
movl 4(%ecx),%esi
movl 8(%ecx),%edi
@ -50,7 +51,11 @@ end;
{
$Log$
Revision 1.9 2000-02-09 22:12:54 florian
Revision 1.10 2000-02-18 15:23:01 florian
* fixed constants in rtti
* longjmp does now a finit
Revision 1.9 2000/02/09 22:12:54 florian
* longjump does now a finit
Revision 1.8 2000/02/09 16:59:29 peter