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

* make framecount and framebufsize dependent on the pointer size

Browse Source 
git-svn-id: trunk@47030 -
This commit is contained in:
florian 2020-10-01 20:33:03 +00:00
parent 1bf58c2a55
commit af20b064ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/except.inc
View File

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