|
@@ -170,7 +170,6 @@ begin
|
|
|
{$ifdef excdebug}
|
|
{$ifdef excdebug}
|
|
|
writeln ('In reraise');
|
|
writeln ('In reraise');
|
|
|
{$endif}
|
|
{$endif}
|
|
|
- PopAddrStack;
|
|
|
|
|
If ExceptAddrStack=Nil then
|
|
If ExceptAddrStack=Nil then
|
|
|
DoUnHandledException;
|
|
DoUnHandledException;
|
|
|
longjmp(ExceptAddrStack^.Buf^,FPC_Exception);
|
|
longjmp(ExceptAddrStack^.Buf^,FPC_Exception);
|
|
@@ -213,7 +212,10 @@ begin
|
|
|
end;
|
|
end;
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.11 1999-06-14 00:47:35 peter
|
|
|
|
|
|
|
+ Revision 1.12 1999-07-26 12:11:28 florian
|
|
|
|
|
+ * reraise doesn't call popaddrstack anymode
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.11 1999/06/14 00:47:35 peter
|
|
|
* merged
|
|
* merged
|
|
|
|
|
|
|
|
Revision 1.10.2.1 1999/06/14 00:38:18 peter
|
|
Revision 1.10.2.1 1999/06/14 00:38:18 peter
|
florian