From 504b4faf620d3584adca05d87e329a13d1e24393 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 10 Jun 1998 07:46:45 +0000
Subject: [PATCH] + Forgot to commit some changes

---
 rtl/i386/rttip.inc | 9 ++++++---
 rtl/inc/system.inc | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/rtl/i386/rttip.inc b/rtl/i386/rttip.inc
index ddb7fefe3e..1e8b37b870 100644
--- a/rtl/i386/rttip.inc
+++ b/rtl/i386/rttip.inc
@@ -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
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 5418d3afce..5b9ae922d3 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -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