* fixed loading parent frame pointer for nested procvars on targets that

    that use explicit parentfp structs (fixes webtbs/tw17379 for llvm)

git-svn-id: trunk@42100 -

compiler/ncgld.pas

@@ -557,7 +557,8 @@ implementation
                        hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
                      { vd will contain the type of the self pointer (self in
                        case of a class/classref, address of self in case of
-                       an object }
+                       an object, frame pointer or pointer to parentfpstruct
+                       in case of nested procsym load  }
                      vd:=nil;
                      case left.location.loc of
                         LOC_CREGISTER,
@@ -573,7 +574,8 @@ implementation
                         LOC_REFERENCE:
                           begin
                              if is_implicit_pointer_object_type(left.resultdef) or
-                                 (left.resultdef.typ=classrefdef) then
+                                (left.resultdef.typ=classrefdef) or
+                                is_nested_pd(procdef) then
                                begin
                                  vd:=left.resultdef;
                                  location.registerhi:=hlcg.getaddressregister(current_asmdata.CurrAsmList,left.resultdef);

tests/webtbs/tw17379.pp

@@ -1,22 +1,34 @@
-{ %norun }
-
 {$mode macpas}
 {$warnings off}
 program recursivefunctionparam;
 
 function first( function test( theint: integer): boolean): integer;
-begin {not implemented} end;
+begin
+  test(2);
+end;
 
 function find: integer;
+  var
+    l: longint;
 
   function test( theint: integer): boolean;
   begin
-    first( test)
+    if (theint = 1) then
+      first( test)
+    else
+      begin
+        writeln('nested procvar call, l = ', l);
+        if l<>1234567890 then
+          halt(1);
+      end;
+    find:=0;
   end;
 
 begin
-  {not implemented}
+  l:=1234567890;
+  test(1)
 end;
 
 begin
+  find;
 end.