Array of String->String: Unsetable

flat assembler
Message board for the users of flat assembler.

Index > Macroinstructions > Array of String->String: Unsetable

Author

Thread

l4m2

Joined: 15 Jan 2015
Posts: 674

l4m2 06 Aug 2016, 15:32

Code:

macro tmp {
  local type
  macro ucall fun, [arg] \{
    common
    local n
    if defined type#fun
      type#fun arg
    else
      push edi
      n=0
      reverse
      pushd arg
      n=n+4
      common
      lea edi, [esp+n]
      call fun
      mov esp, edi
      pop edi
    end if
  \}
  macro setcall fun, t \{
    type#fun equ t
  \}
}
tmp
purge tmp

setcall fun1, cdecl
use32
ucall fun1, 1
fun1:

I mean to have fun using the calling type when set, and if not, just use the common way. However, the code made a 15-byte bin file, meaning that setcall was ignored.

06 Aug 2016, 15:32

Tomasz Grysztar

Joined: 16 Jun 2003
Posts: 8357
Location: Kraków, Poland

Tomasz Grysztar 06 Aug 2016, 16:24

Your "if defined type#fun" line becomes "if defined cdecl" (because "equ" defines symbolic variable that is replaced text-for-text by the preprocessor), and "defined" only checks for existence of a label / numeric variable, it does not check for the existence of a macro.

06 Aug 2016, 16:24

l4m2

Joined: 15 Jan 2015
Posts: 674

l4m2 06 Aug 2016, 16:59

Tomasz Grysztar wrote:

Your "if defined type#fun" line becomes "if defined cdecl" (because "equ" defines symbolic variable that is replaced text-for-text by the preprocessor), and "defined" only checks for existence of a label / numeric variable, it does not check for the existence of a macro.

Solved.

Code:

    match =type#fun, type#fun \\{
      r equ 0
    \\}
    if ~defined r

works.

06 Aug 2016, 16:59

< Last Thread | Next Thread >

Forum Rules:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum