Merged revisions 7555 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7555 | florian | 2007-06-02 22:35:17 +0200 (Sat, 02 Jun 2007) | 2 lines

* fixed regression caused by r7180

........

git-svn-id: branches/fixes_2_2@7576 -

compiler/pdecsub.pas

@@ -1095,7 +1095,9 @@ implementation
                 end;
             end;
         end;
-        if pd.returndef.typ=filedef then
+        { file types can't be function results }
+        if assigned(pd) and
+           (pd.returndef.typ=filedef) then
           message(parser_e_illegal_function_result);
         { support procedure proc stdcall export; }
         if not(check_proc_directive(false)) then