From 837c1582a3674ea97c3c199d6a2fe3dbf818a1de Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 8 Jun 1998 19:35:02 +0000
Subject: [PATCH] Some changes to integrate in system unit

---
 rtl/inc/astrings.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/astrings.pp b/rtl/inc/astrings.pp
index 798fb00484..67cebac2f1 100644
--- a/rtl/inc/astrings.pp
+++ b/rtl/inc/astrings.pp
@@ -121,7 +121,7 @@ begin
 end;
 
 
-Procedure Decr_Ansi_Ref (Var S : AnsiString);
+Procedure Decr_Ansi_Ref (Var S : AnsiString);[alias : 'DECR_ANSI_REF'];
 {
  Decreases the ReferenceCount of a non constant ansistring; 
  If the reference count is zero, deallocate the string;
@@ -672,7 +672,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-06-08 12:38:22  michael
+  Revision 1.4  1998-06-08 19:35:02  michael
+  Some changes to integrate in system unit
+
+  Revision 1.3  1998/06/08 12:38:22  michael
   Implemented rtti, inserted ansistrings again
 
   Revision 1.2  1998/05/12 10:42:44  peter