Files
FasmOnDelphi/fasmw172/TOOLS/LIBC/CCALL.INC
2018-03-10 23:33:07 +03:00

24 lines
318 B
Plaintext

macro ccall proc,[arg]
{ common
push ebp
mov ebp,esp
local size
size = 0
if ~ arg eq
forward
size = size + 4
common
sub esp,size
end if
and esp,-16
if ~ arg eq
add esp,size
reverse
pushd arg
common
end if
call proc
leave }