Browse Source

+ Added support for errorproc. Changed runerror to HandleError

michael 27 năm trước cách đây
mục cha
commit
4fc8eb51af
3 tập tin đã thay đổi với 11 bổ sung5 xóa
  1. 5 2
      rtl/dos/go32v1/system.pp
  2. 1 1
      rtl/os2/sysos2.pas
  3. 5 2
      rtl/win32/syswin32.pp

+ 5 - 2
rtl/dos/go32v1/system.pp

@@ -136,7 +136,7 @@ begin
             popl %ebx
             popl %eax
   end['EAX','EBX'];
-  RunError(202);
+  HandleError(202);
 end;
 {$I386_ATT}
 
@@ -597,7 +597,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.7  1998-07-07 12:30:20  carl
+  Revision 1.8  1998-07-30 13:28:33  michael
+  + Added support for errorproc. Changed runerror to HandleError
+
+  Revision 1.7  1998/07/07 12:30:20  carl
     * 2k buffer for stack shecking to permimt correct io
 
   Revision 1.6  1998/07/02 12:26:55  carl

+ 1 - 1
rtl/os2/sysos2.pas

@@ -152,7 +152,7 @@ begin
     { this needs a local variable }
     { so the function called itself !! }
     { Writeln('low in stack ');}
-    RunError(202);
+    HandleError(202);
 end;
 {no stack check in system }
 

+ 5 - 2
rtl/win32/syswin32.pp

@@ -195,7 +195,7 @@ __short_on_stack:
         popl    %ebx
         popl    %eax
   end['EAX','EBX'];
-  RunError(202);
+  HandleError(202);
 end;
 {$endif dummy}
 
@@ -759,7 +759,10 @@ end.
 
 {
   $Log$
-  Revision 1.13  1998-07-13 21:19:15  florian
+  Revision 1.14  1998-07-30 13:27:19  michael
+  + Added support for errorproc. Changed runerror to HandleError
+
+  Revision 1.13  1998/07/13 21:19:15  florian
     * some problems with ansi string support fixed
 
   Revision 1.12  1998/07/07 12:37:28  carl