paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Forgot to commit some changes

Browse Source
This commit is contained in:
michael 1998-06-10 07:46:45 +00:00
parent 5ad339b3d8
commit 504b4faf62
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/rttip.inc
View File

@ -306,7 +306,7 @@ asm
addl $4,%ebx
# push data
pushl %eax
call DecRef
call DECREF
jmp .MyRecordDecRefLoop
# Array handling
.DoArrayDecRef:
@ -329,7 +329,7 @@ asm
addl 8(%ebp),%eax
# push data
pushl %eax
call DecRef
call DECREF
jmp .MyArrayDecRefLoop
# AnsiString handling :
.DoAnsiStringDecRef:
@ -349,7 +349,10 @@ end;
{
$Log$
Revision 1.2 1998-06-08 19:31:03 michael
Revision 1.3 1998-06-10 07:46:49 michael
+ Forgot to commit some changes
Revision 1.2 1998/06/08 19:31:03 michael
+ Implemented DecRef
Revision 1.1 1998/06/08 15:32:12 michael

9
rtl/inc/system.inc
View File

@ -108,11 +108,11 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: In_Rewrite_TypedFile];
{$else}
{ Provide dummy procedures needed for rtti}
Procedure decr_ansi_ref (P : pointer);
Procedure decr_ansi_ref (P : pointer);[Alias : 'DECR_ANSI_REF'];
begin
end;
Procedure incr_ansi_ref (P : pointer);
Procedure incr_ansi_ref (P : pointer);[Alias : 'INCR_ANSI_REF'];
begin
end;
@ -416,7 +416,10 @@ End;
{
$Log$
Revision 1.8 1998-06-08 12:38:24 michael
Revision 1.9 1998-06-10 07:46:45 michael
+ Forgot to commit some changes
Revision 1.8 1998/06/08 12:38:24 michael
Implemented rtti, inserted ansistrings again
Revision 1.7 1998/06/04 23:46:01 peter