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

* Use two parameter get_caller_frame function to get correct result on mips

Browse Source 
git-svn-id: trunk@21888 -
This commit is contained in:
pierre 2012-07-11 22:17:37 +00:00
parent 324c5ad29d
commit bf8ec92b5c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fv/src/views.pas
View File

@ -2111,7 +2111,8 @@ BEGIN
Tp := Last; { Set temporary ptr }
Repeat
Tp := Tp^.Next; { Get next view }
IF Byte(Longint(CallPointerMethodLocal(P,get_caller_frame(get_frame),@self,Tp)))<>0 THEN
IF Byte(Longint(CallPointerMethodLocal(P,get_caller_frame(
get_frame,get_pc_addr),@self,Tp)))<>0 THEN
Begin { Test each view }
FirstThat := Tp; { View returned true }
Exit; { Now exit }
@ -2306,7 +2307,8 @@ BEGIN
if tp=nil then
exit;
Hp:=Tp^.Next; { Get next view }
CallPointerMethodLocal(P,get_caller_frame(get_frame),@self,Tp);
CallPointerMethodLocal(P,get_caller_frame(
get_frame,get_pc_addr),@self,Tp);
Until (Tp=L0); { Until last }
End;
END;