* fixed offset to procedure/function parameters

git-svn-id: branches/z80@44674 -

compiler/systems/i_embed.pas

@@ -776,7 +776,7 @@ unit i_embed;
                 recordalignmax       : 1;
                 maxCrecordalign      : 1
               );
-            first_parm_offset : 0;
+            first_parm_offset : 4;
             stacksize    : 1024;
             stackalign   : 1;
             abi : abi_default;

compiler/z80/cpupara.pas

@@ -376,7 +376,7 @@ unit cpupara;
                      if paraloc^.loc=LOC_REFERENCE then
                        begin
                          paraloc^.reference.index:=NR_FRAME_POINTER_REG;
-                         inc(paraloc^.reference.offset,2);
+                         inc(paraloc^.reference.offset,target_info.first_parm_offset);
                        end;
                    end;
                  firstparaloc:=false;