Merged revisions 6369,6385 via svnmerge from

file:///FPC/svn/fpc/trunk

........
r6369 | pierre | 2007-02-07 22:00:14 +0100 (Wed, 07 Feb 2007) | 1 line

 * fix for webbug 8270
........
r6385 | peter | 2007-02-09 13:34:13 +0100 (Fri, 09 Feb 2007) | 2 lines

  * cleanup r6369

........

git-svn-id: branches/fixes_2_0@6510 -

compiler/pmodules.pas

@@ -885,6 +885,7 @@ implementation
         { set procdef options }
         pd.proctypeoption:=potype;
         pd.proccalloption:=pocall_default;
+        include(pd.procoptions,po_hascallingconvention);
         pd.forwarddef:=false;
         pd.setmangledname(target_info.cprefix+name);
         pd.aliasnames.insert(pd.mangledname);