paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:29:37 +01: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 addl $4,%ebx
# push data # push data
pushl %eax pushl %eax
call DecRef call DECREF
jmp .MyRecordDecRefLoop jmp .MyRecordDecRefLoop
# Array handling # Array handling
.DoArrayDecRef: .DoArrayDecRef:
@ -329,7 +329,7 @@ asm
addl 8(%ebp),%eax addl 8(%ebp),%eax
# push data # push data
pushl %eax pushl %eax
call DecRef call DECREF
jmp .MyArrayDecRefLoop jmp .MyArrayDecRefLoop
# AnsiString handling : # AnsiString handling :
.DoAnsiStringDecRef: .DoAnsiStringDecRef:
@ -349,7 +349,10 @@ end;
{ {
$Log$ $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 + Implemented DecRef
Revision 1.1 1998/06/08 15:32:12 michael 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} {$else}
{ Provide dummy procedures needed for rtti} { Provide dummy procedures needed for rtti}
Procedure decr_ansi_ref (P : pointer); Procedure decr_ansi_ref (P : pointer);[Alias : 'DECR_ANSI_REF'];
begin begin
end; end;
Procedure incr_ansi_ref (P : pointer); Procedure incr_ansi_ref (P : pointer);[Alias : 'INCR_ANSI_REF'];
begin begin
end; end;
@ -416,7 +416,10 @@ End;
{ {
$Log$ $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 Implemented rtti, inserted ansistrings again
Revision 1.7 1998/06/04 23:46:01 peter Revision 1.7 1998/06/04 23:46:01 peter