invoke function, double 5.0 ;works    

invoke function, double -5.0 ;fails, gives me an error    

  
match pushd =- =double num,pushd value \{ \local ..high,..low
   virtual at 0
    dq -num
    load ..low dword from 0
    load ..high dword from 4
   end virtual
   push ..high
   push ..low
   pushd equ \}
    

include 'win32ax.inc'

.code
start:
  invoke  function, double -5.0
  invoke  MessageBox, 0, "Works Fine", "FASM test", 0
  invoke  ExitProcess, 0

function dd functionLabel

functionLabel: retn 8

.end start    

  start:
        stdcall _test,double -5.0
        invoke  ExitProcess,NULL

  proc  _test, param
        ret
  endp
    

push    40140000
push    0
call    _test
push    0
call    ExitProcess

_test:
push    ebp
mov     ebp,esp
leave
retn    4  <-------- must be 8?
    

section '.idata' data readable writeable

  param         dq 5.0

section '.code' code readable writable executable

  start:
        stdcall _test,double param
        invoke  ExitProcess,NULL

  proc  _test, param:QWORD
        ret
  endp

    

stdcall _test, double [param]    

  match pushd =double num,pushd value \{ \local ..high,..low
   virtual at 0
; ### ADD THIS
    if ~num eqtype 1.0
      display "Floating point value expected"
      err
    end if
; ###
    dq num
    load ..low dword from 0
    load ..high dword from 4
   end virtual
   push ..high
   push ..low
   pushd equ \}
    

If the parameter is preceded by the word double, it is treated as 64-bit value and passed to the procedure as two 32-bit parameters. For example:

invoke glColor3d,double 1.0,double 0.1,double 0.1

will pass the three 64-bit parameters as six double words to procedure. If the parameter following double is the memory operand, it should not have size operator, the double already works as the size override.

double -1.5    

double (-1.5)    

invoke  glutSolidSphere, double [resulta], 20, 16    

  macro invoke proc,[arg]
  \{ \common count@stdcall = 0
             if ~ arg eq
     \forward count@stdcall = count@stdcall+1
              match =double value, arg \\{ count@stdcall = count@stdcall+1 \\}
     \common end if
             if defined proc \# %
              if count@stdcall <> proc \# %
               display "Error: invalid count of parameters for ",\`proc,".",0Dh,0Ah
               ;err  <-[RIGHT HERE]
              end if
             end if
     \reverse pushd <arg>
     \common call [proc] \}