Use two parameter version of get_caller_frame

git-svn-id: trunk@21896 -

ide/wini.pas

@@ -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;
 

ide/wnghelp.pas

@@ -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;

ide/wresourc.pas

@@ -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;
 

ide/wwinhelp.pas

@@ -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: