From c3781fba384c111412e4f136ba0a66255d961e46 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 16 Sep 1998 12:37:07 +0000
Subject: [PATCH] Added FPC_ prefix to abstracterror

---
 compiler/types.pas | 7 +++++--
 rtl/inc/system.inc | 7 +++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/compiler/types.pas b/compiler/types.pas
index d6e4821692..49cfe47589 100644
--- a/compiler/types.pas
+++ b/compiler/types.pas
@@ -882,7 +882,7 @@ unit types;
                                   if (procdefcoll^.data^.options and poabstractmethod)<>0 then
                                     begin
                                        _class^.options:=_class^.options or oois_abstract;
-                                       datasegment^.concat(new(pai_const,init_symbol('ABSTRACTERROR')));
+                                       datasegment^.concat(new(pai_const,init_symbol('FPC_ABSTRACTERROR')));
                                     end
                                   else
                                     begin
@@ -919,7 +919,10 @@ unit types;
 end.
 {
   $Log$
-  Revision 1.28  1998-09-09 16:44:23  florian
+  Revision 1.29  1998-09-16 12:37:31  michael
+  Added FPC_ prefix to abstracterror
+
+  Revision 1.28  1998/09/09 16:44:23  florian
     * I hope, the case bug is fixed now
 
   Revision 1.27  1998/09/07 17:37:07  florian
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index f81efb38f4..6fea94878e 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -287,7 +287,7 @@ begin
 end;
 
 
-procedure abstracterror;[public,alias : 'ABSTRACTERROR'];
+procedure abstracterror;[public,alias : 'FPC_ABSTRACTERROR'];
 
 begin
   Runerror(211);
@@ -469,7 +469,10 @@ end;
 
 {
   $Log$
-  Revision 1.31  1998-09-15 17:12:32  michael
+  Revision 1.32  1998-09-16 12:37:07  michael
+  Added FPC_ prefix to abstracterror
+
+  Revision 1.31  1998/09/15 17:12:32  michael
   + Merged changes from fixes branch