macro pushdl double
{
fild qword [double]
sub esp,8
fstp qword [esp]
}
macro glpushv GLfloatVar
{
push dword [GLfloatVar+4]
push dword [GLfloatVar]
}
macro glpush GLfloatVar
{
name = GLfloatVar
virtual at 0
dq GLfloatVar
load name#.l dword from 0
load name#.h dword from 4
end virtual
if name.h=0
push ebx
else
push dword name.h
end if
if name.l=0
push ebx
else
push dword name.l
end if
}
macro glcall procedure,[arg]
{
reverse
if arg eqtype 1.0
glpush arg
else
if arg eqtype eax
push arg
else
addr=arg
glpushv addr
end if
end if
common
call dword [procedure]
}
    

push GL_BLEND
glcall glEnable
    

However fasm returns an error when I try to write something like this

Code:

push GL_BLEND
glcall glEnable    

macro glcall procedure,[arg]
{
common if ~ arg eq
reverse
if arg eqtype 1.0
glpush arg
else
if arg eqtype eax
push arg
else
addr=arg
glpushv addr
end if
end if
common end if
call dword [procedure]
}

Is it from push or glcall line?

 addr=arg
error: invalid value
    

try that

 error: illegal instruction     

Now fasm returns

Code:

 error: illegal instruction     

    

on glcall line

If the error is connected with a specific part of source code, the source line that caused the error will be also displayed. Also placement of this line in the source is given to help you finding this error, for example:

Code:

flat assembler  version 1.73 (16384 kilobytes memory)
example.asm [3]:
        mob     ax,1
error: illegal instruction.
    

It means that in the third line of the example.asm file compiler has encountered an unrecognized instruction. When the line that caused error contains a macroinstruction, also the line in macroinstruction definition that generated the erroneous instruction is displayed:

Code:

flat assembler  version 1.73 (16384 kilobytes memory)
example.asm [6]:
        stoschar 7
example.asm [3] stoschar [1]:
        mob     al,char
error: illegal instruction.
    

It means that the macroinstruction in the sixth line of the example.asm file generated an unrecognized instruction with the first line of its definition.

macro glcall procedure,[arg]
{
common if ~ arg eq
reverse
if arg eqtype 1.0
glpush arg
else
if arg eqtype eax
push arg
else
addr=arg
glpushv addr
end if
end if
common end if
call dword [procedure] ; <- -- -- --
}

1) Added lines to the code of glcall macro simply checks if there are any arguments at all?

2) Could you please explain the line addr=arg ? It looks like it simply renames arg to addr Am I allowed to write simply glpushv arg I've tried on some examples, everything works but I wonder if this line was introduced for pure convenience or really means something conceptually?

2.2.1 Numerical constants

The = directive allows to define the numerical constant. It should be preceded by the name for the constant and followed by the numerical expression providing the value. The value of such constants can be a number or an address, but - unlike labels - the numerical constants are not allowed to hold the register-based addresses. Besides this difference, in their basic variant numerical constants behave very much like labels and you can even forward-reference them (access their values before they actually get defined).

  glpushv qword value

value      dd ?, ?

; then addr = qword value equal to addr = value and then
;  push dword [addr+4]  ; instead push dword [qword label + 4]  <- incorrect
;  push dword [addr+0]  ; instead push dword [qword label + 0]  <- incorrect
    

macro glpushrv raddr
{
local ..test ; local name
..test equ TRUE ; define a symbolic constant
match qword [rel+off], raddr \{ ; check raddr like qword [ecx+1]
push dword [rel+off+4] ; reassemble the argument in the form of "dword [ecx+1+4]"
push dword [rel+off+0] ; reassemble the argument in the form of "dword [ecx+1+0]"
restore ..test ; restore const value, now ..test is undefined
\}
; only if match has worked, the value ..test will be undefined
match =TRUE, ..test \{ push raddr \} ; If the value is still defined, the following line will work -> push dword [ecx+1]
restore ..test ; restore const value, now ..test is undefined (clear)
}
macro glcall procedure,[arg]
{
common if ~ arg eq
reverse
if arg eqtype 1.0
glpush arg
else if arg eqtype eax ; "arg like register"
push arg ; simple command
else if arg relativeto ecx ; arg like "dword [ecx+const]", you can add more "if ..."
glpushrv arg ; apply a new macro for this argument type
else if arg relativeto ebx ; the same thing, but for ebx
glpushrv arg ; apply a new macro for this argument type
else ; otherwise "arg like [label_name]"
addr=arg
glpushv addr
end if
common end if
call dword [procedure]
}