paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +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 for I:=0 to Sections^.Count-1 do
begin begin
S:=Sections^.At(I); 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;
end; end;
@ -254,7 +254,7 @@ begin
for I:=0 to Entries^.Count-1 do for I:=0 to Entries^.Count-1 do
begin begin
E:=Entries^.At(I); 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;
end; end;

6
ide/wnghelp.pas
View File

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

13
ide/wresourc.pas
View File

@ -228,7 +228,8 @@ begin
for I:=0 to Items^.Count-1 do for I:=0 to Items^.Count-1 do
begin begin
EP:=Items^.At(I); 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 begin
P := EP; P := EP;
Break; Break;
@ -244,7 +245,8 @@ begin
for I:=0 to Items^.Count-1 do for I:=0 to Items^.Count-1 do
begin begin
RP:=Items^.At(I); 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;
end; end;
@ -370,7 +372,8 @@ begin
for I:=0 to Resources^.Count-1 do for I:=0 to Resources^.Count-1 do
begin begin
RP:=Resources^.At(I); 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 begin
P := RP; P := RP;
Break; Break;
@ -386,7 +389,7 @@ begin
for I:=0 to Resources^.Count-1 do for I:=0 to Resources^.Count-1 do
begin begin
RP:=Resources^.At(I); 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;
end; end;
@ -397,7 +400,7 @@ begin
for I:=0 to Entries^.Count-1 do for I:=0 to Entries^.Count-1 do
begin begin
E:=Entries^.At(I); 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;
end; end;

3
ide/wwinhelp.pas
View File

@ -1228,7 +1228,8 @@ begin
TEN.LinkData1:=LinkData1; TEN.LinkData1:=LinkData1;
TEN.LinkData2Size:=LinkData2Size; TEN.LinkData2Size:=LinkData2Size;
TEN.LinkData2:=LinkData2; 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 case TL.RecordType of
$02: ; $02: ;
$20,$23: $20,$23: