paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 05:50:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added setjmp/longjmp and exception support

Browse Source
This commit is contained in:
michael 1998-07-28 20:37:45 +00:00
parent 11cbb1fd82
commit 8cc8cb80b2
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/system.inc
View File

@ -512,9 +512,25 @@ begin
runerror (227);
end;
{*****************************************************************************
SetJmp/LongJmp support.
*****************************************************************************}
{$i setjump.inc}
{*****************************************************************************
Exception support.
*****************************************************************************}
// No go, because objpas needed :( (MVC)
{ $i except.inc}
{
$Log$
Revision 1.23 1998-07-23 19:53:20 michael
Revision 1.24 1998-07-28 20:37:45 michael
+ added setjmp/longjmp and exception support
Revision 1.23 1998/07/23 19:53:20 michael
+ Adapted assert to Delphi format
Revision 1.22 1998/07/23 13:08:41 michael

10
rtl/inc/systemh.inc
View File

@ -397,10 +397,18 @@ Procedure AddExitProc(Proc:TProcedure);
{$endif RTLLITE}
Procedure halt;
{*****************************************************************************
SetJmp/LongJmp
*****************************************************************************}
{$i setjumph.inc}
{
$Log$
Revision 1.19 1998-07-20 23:36:57 michael
Revision 1.20 1998-07-28 20:37:47 michael
+ added setjmp/longjmp and exception support
Revision 1.19 1998/07/20 23:36:57 michael
changes for ansistrings
Revision 1.18 1998/07/18 17:14:24 florian