瀏覽代碼

+ Merged changes from fixes branch

michael 27 年之前
父節點
當前提交
2ec08b84f3
共有 1 個文件被更改,包括 16 次插入2 次删除
  1. 16 2
      rtl/inc/system.inc

+ 16 - 2
rtl/inc/system.inc

@@ -1,5 +1,6 @@
 {
 {
     $Id$
     $Id$
+
     This file is part of the Free Pascal Run time library.
     This file is part of the Free Pascal Run time library.
     Copyright (c) 1993,97 by the Free Pascal development team
     Copyright (c) 1993,97 by the Free Pascal development team
 
 
@@ -286,7 +287,13 @@ begin
 end;
 end;
 
 
 
 
-function IOResult:Word;
+procedure abstracterror;[public,alias : 'ABSTRACTERROR'];
+
+begin
+  Runerror(211);
+end;
+  
+Function IOResult:Word;
 Begin
 Begin
   IOResult:=InOutRes;
   IOResult:=InOutRes;
   InOutRes:=0;
   InOutRes:=0;
@@ -462,10 +469,17 @@ end;
 
 
 {
 {
   $Log$
   $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
     * FPC_ names
     * Heap manager is now system independent
     * 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
   Revision 1.29  1998/09/01 17:36:21  peter
     + internconst
     + internconst