+ Forgot to commit some changes

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

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