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

Use two parameter version of get_caller_frame

Browse Source 
git-svn-id: trunk@21896 -
This commit is contained in:
pierre 2012-07-12 09:12:02 +00:00
parent c89992f6bb
commit bb7f443c53
4 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/wini.pas
View File

@ -243,7 +243,7 @@ begin
for I:=0 to Sections^.Count-1 do
begin
S:=Sections^.At(I);
CallPointerLocal(EnumProc,get_caller_frame(get_frame),S);
CallPointerLocal(EnumProc,get_caller_frame(get_frame,get_pc_addr),S);
end;
end;
@ -254,7 +254,7 @@ begin
for I:=0 to Entries^.Count-1 do
begin
E:=Entries^.At(I);
CallPointerLocal(EnumProc,get_caller_frame(get_frame),E);
CallPointerLocal(EnumProc,get_caller_frame(get_frame,get_pc_addr),E);
end;
end;

6
ide/wnghelp.pas
View File

@ -251,7 +251,7 @@ begin
Name:=NGDecompressStr(StrPas(P));
FilePos:=SubItemsOfs;
end;
CallPointerLocal(EnumProc,get_caller_frame(get_frame),@CIR);
CallPointerLocal(EnumProc,get_caller_frame(get_frame,get_pc_addr),@CIR);
Inc(I);
end;
end;
@ -280,7 +280,7 @@ begin
begin
S:=StrPas(LineP);
ParamS:=NGDecompressStr(S);
CallPointerLocal(LineEnumProc,get_caller_frame(get_frame),@ParamS);
CallPointerLocal(LineEnumProc,get_caller_frame(get_frame,get_pc_addr),@ParamS);
Inc(Ptrint(LineP),length(S)+1);
end;
if Assigned(LinkEnumProc) and (SeeAlsoOfs>0) then
@ -294,7 +294,7 @@ begin
S:=StrPas(NextLinkNamePtr);
LR.Name:=S;
Move(NextLinkOfsPtr^,LR.FilePos,4);
CallPointerLocal(LinkEnumProc,get_caller_frame(get_frame),@LR);
CallPointerLocal(LinkEnumProc,get_caller_frame(get_frame,get_pc_addr),@LR);
Inc(Ptrint(NextLinkNamePtr),length(S)+1);
Inc(Ptrint(NextLinkOfsPtr),4);
end;

13
ide/wresourc.pas
View File

@ -228,7 +228,8 @@ begin
for I:=0 to Items^.Count-1 do
begin
EP:=Items^.At(I);
if Byte(Longint(CallPointerMethodLocal(Func,get_caller_frame(get_frame),@Self,EP)))<>0 then
if Byte(Longint(CallPointerMethodLocal(Func,
get_caller_frame(get_frame,get_pc_addr),@Self,EP)))<>0 then
begin
P := EP;
Break;
@ -244,7 +245,8 @@ begin
for I:=0 to Items^.Count-1 do
begin
RP:=Items^.At(I);
CallPointerMethodLocal(Func,get_caller_frame(get_frame),@Self,RP);
CallPointerMethodLocal(Func,
get_caller_frame(get_frame,get_pc_addr),@Self,RP);
end;
end;
@ -370,7 +372,8 @@ begin
for I:=0 to Resources^.Count-1 do
begin
RP:=Resources^.At(I);
if Byte(Longint(CallPointerMethodLocal(Func,get_caller_frame(get_frame),@Self,RP)))<>0 then
if Byte(Longint(CallPointerMethodLocal(Func,
get_caller_frame(get_frame,get_pc_addr),@Self,RP)))<>0 then
begin
P := RP;
Break;
@ -386,7 +389,7 @@ begin
for I:=0 to Resources^.Count-1 do
begin
RP:=Resources^.At(I);
CallPointerMethodLocal(Func,get_caller_frame(get_frame),@Self,RP);
CallPointerMethodLocal(Func,get_caller_frame(get_frame,get_pc_addr),@Self,RP);
end;
end;
@ -397,7 +400,7 @@ begin
for I:=0 to Entries^.Count-1 do
begin
E:=Entries^.At(I);
CallPointerMethodLocal(Func,get_caller_frame(get_frame),@Self,E);
CallPointerMethodLocal(Func,get_caller_frame(get_frame,get_pc_addr),@Self,E);
end;
end;

3
ide/wwinhelp.pas
View File

@ -1228,7 +1228,8 @@ begin
TEN.LinkData1:=LinkData1;
TEN.LinkData2Size:=LinkData2Size;
TEN.LinkData2:=LinkData2;
DoCont:=(longint(CallPointerLocal(EnumProc,get_caller_frame(get_frame),@TEN)) and $ff)<>0;
DoCont:=(longint(CallPointerLocal(EnumProc,
get_caller_frame(get_frame,get_pc_addr),@TEN)) and $ff)<>0;
case TL.RecordType of
$02: ;
$20,$23: