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

* fixed web bug #983 (array name wasn't skipped in add/decref)

Browse Source
This commit is contained in:
Jonas Maebe 2000-06-07 08:55:30 +00:00
parent c246def634
commit 2689404afd
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/i386/rttip.inc
View File

@ -254,6 +254,11 @@ asm
jmp .LMyRecordAddRefLoop
// Array handling
.LDoArrayAddRef:
// Skip array name !!
incl %ebx
movzbl (%ebx),%eax
incl %eax
addl %eax,%ebx
// %ebx points to size. Put size in ecx
movl (%ebx),%ecx
addl $4, %ebx
@ -340,6 +345,11 @@ asm
jmp .LMyRecordDecRefLoop
// Array handling
.LDoArrayDecRef:
// Skip array name !!
incl %ebx
movzbl (%ebx),%eax
incl %eax
addl %eax,%ebx
// %ebx points to size. Put size in ecx
movl (%ebx),%ecx
addl $4, %ebx
@ -375,7 +385,10 @@ end;
{
$Log$
Revision 1.22 2000-04-01 11:45:34 peter
Revision 1.23 2000-06-07 08:55:30 jonas
* fixed web bug 983 (array name wasn't skipped in add/decref)
Revision 1.22 2000/04/01 11:45:34 peter
* fixed addref/decref for records, the data/type was read in the
wrong order