|
@@ -91,7 +91,7 @@ var
|
|
|
Newobj : PExceptObject;
|
|
Newobj : PExceptObject;
|
|
|
_ExceptObjectStack : ^PExceptObject;
|
|
_ExceptObjectStack : ^PExceptObject;
|
|
|
framebufsize,
|
|
framebufsize,
|
|
|
- framecount : longint;
|
|
|
|
|
|
|
+ framecount : PtrInt;
|
|
|
frames : PCodePointer;
|
|
frames : PCodePointer;
|
|
|
prev_frame,
|
|
prev_frame,
|
|
|
curr_frame : Pointer;
|
|
curr_frame : Pointer;
|
|
@@ -113,8 +113,8 @@ begin
|
|
|
curr_frame:=AFrame;
|
|
curr_frame:=AFrame;
|
|
|
curr_addr:=AnAddr;
|
|
curr_addr:=AnAddr;
|
|
|
frames:=nil;
|
|
frames:=nil;
|
|
|
- framebufsize:=0;
|
|
|
|
|
framecount:=0;
|
|
framecount:=0;
|
|
|
|
|
+ framebufsize:=0;
|
|
|
{ The frame pointer of this procedure is used as initial stack bottom value. }
|
|
{ The frame pointer of this procedure is used as initial stack bottom value. }
|
|
|
prev_frame:=get_frame;
|
|
prev_frame:=get_frame;
|
|
|
while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and
|
|
while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and
|
florian