From 2ec08b84f3e6c570f0f04768a548fafb88f66716 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 15 Sep 1998 17:12:32 +0000
Subject: [PATCH] + Merged changes from fixes branch

---
 rtl/inc/system.inc | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 7eaab5878a..f81efb38f4 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -1,5 +1,6 @@
 {
     $Id$
+
     This file is part of the Free Pascal Run time library.
     Copyright (c) 1993,97 by the Free Pascal development team
 
@@ -286,7 +287,13 @@ begin
 end;
 
 
-function IOResult:Word;
+procedure abstracterror;[public,alias : 'ABSTRACTERROR'];
+
+begin
+  Runerror(211);
+end;
+  
+Function IOResult:Word;
 Begin
   IOResult:=InOutRes;
   InOutRes:=0;
@@ -462,10 +469,17 @@ end;
 
 {
   $Log$
-  Revision 1.30  1998-09-14 10:48:20  peter
+  Revision 1.31  1998-09-15 17:12:32  michael
+  + Merged changes from fixes branch
+
+
+  Revision 1.30  1998/09/14 10:48:20  peter
     * FPC_ names
     * Heap manager is now system independent
 
+  Revision 1.29.2.1  1998/09/15 17:08:43  michael
+  + Added abstracterror call
+
   Revision 1.29  1998/09/01 17:36:21  peter
     + internconst