* convert extended to double when passing it to automation dispatchers

* fix code generation for automation dispatching of doubles

git-svn-id: trunk@7184 -

compiler/ncal.pas

@@ -245,6 +245,7 @@ implementation
         currargpos,
         namedparacount,
         paracount : longint;
+        assignmenttype,
         vardatadef,
         pvardatadef : tdef;
         dispatchbyref : boolean;
@@ -318,6 +319,12 @@ implementation
               begin
                 para.value:=ctypeconvnode.create_internal(para.value,bool16type);
                 typecheckpass(para.value);
+              end
+            { force automatable float type }
+            else if is_extended(para.value.resultdef) then
+              begin
+                para.value:=ctypeconvnode.create_internal(para.value,s64floattype);
+                typecheckpass(para.value);
               end;
 
             if assigned(para.parametername) then
@@ -375,12 +382,22 @@ implementation
                   )),voidpointertype),
                   ctypeconvnode.create_internal(caddrnode.create_internal(para.value),voidpointertype)))
               else
-                addstatement(statements,cassignmentnode.create(
-                  ctypeconvnode.create_internal(cderefnode.create(caddnode.create(addn,
-                    caddrnode.create(ctemprefnode.create(params)),
-                    cordconstnode.create(paramssize,ptruinttype,false)
-                  )),voidpointertype),
-                  ctypeconvnode.create_internal(para.value,voidpointertype)));
+                begin
+                  case para.value.resultdef.size of
+                    1..4:
+                      assignmenttype:=u32inttype;
+                    8:
+                      assignmenttype:=u64inttype;
+                    else
+                      internalerror(2007042801);
+                  end;
+                  addstatement(statements,cassignmentnode.create(
+                    ctypeconvnode.create_internal(cderefnode.create(caddnode.create(addn,
+                      caddrnode.create(ctemprefnode.create(params)),
+                      cordconstnode.create(paramssize,ptruinttype,false)
+                    )),assignmenttype),
+                    ctypeconvnode.create_internal(para.value,assignmenttype)));
+                end;
 
             if is_ansistring(para.value.resultdef) then
               calldesc.argtypes[currargpos]:=varStrArg
@@ -2674,7 +2691,7 @@ implementation
         if not(assigned(hp)) or
            (hp.left.nodetype <> tempdeleten) then
           exit;
-        
+
         { the function result once more }
         hp:=tstatementnode(hp.right);
         if not(assigned(hp)) or