+ support for {$calling default} to switch back to the default calling

    convention

git-svn-id: trunk@3192 -

compiler/globals.pas

@@ -1977,6 +1977,12 @@ end;
       begin
         result:=false;
         hs:=upper(s);
+        if (hs = 'DEFAULT') then
+          begin
+            a := pocall_default;
+            result := true;
+            exit;
+          end;
         for t:=low(tproccalloption) to high(tproccalloption) do
          if DefProcCallName[t]=hs then
           begin