From 62b810700a33e3e053f82418208440695243d3a1 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 7 Feb 2007 21:00:14 +0000
Subject: [PATCH]  * fix for webbug 8270

git-svn-id: trunk@6369 -
---
 compiler/pmodules.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index d402ca4a0d..b435749153 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -715,6 +715,7 @@ implementation
       var
         ps  : tprocsym;
         pd  : tprocdef;
+        store_pocall : tproccalloption;
       begin
         { there should be no current_procinfo available }
         if assigned(current_procinfo) then
@@ -734,7 +735,12 @@ implementation
         pd.forwarddef:=false;
         pd.setmangledname(target_info.cprefix+name);
         pd.aliasnames.insert(pd.mangledname);
+        { We should leave it as pocall_default
+          see webbug 8270 PM }
+        store_pocall:=current_settings.defproccall;
+        current_settings.defproccall:=pocall_default;
         handle_calling_convention(pd);
+        current_settings.defproccall:=store_pocall;
         { We don't need is a local symtable. Change it into the static
           symtable }
         pd.localst.free;