소스 검색

+ 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