paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 21:07:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added support for errorproc. Changed runerror to HandleError

Browse Source
This commit is contained in:
michael 1998-07-30 13:27:19 +00:00
parent 4e11459938
commit 4fc8eb51af
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/go32v1/system.pp
View File

@ -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

2
rtl/os2/sysos2.pas
View File

@ -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 }

7
rtl/win32/syswin32.pp
View File

@ -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