paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 11:29:27 +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; 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