Element Memory

Vars
  Self#.value dd ?

Create
  local res
  if Self#.prop.Default.type = data_null
    mov [Self#.value],empty_data
  else
    ToData res,Self#.prop.Default,Self#.prop.Default.type
    mov_ex eax,res
    lea edx,[Self#.value]
    call __datadup
  end if

PointWork doValue
  \local res
  ToData res,data,data.type
  mov_ex eax,res
  lea edx,[Self#.value]
  call __datadup
  Self#.onData eax,data_data,exit
EndPoint

PointWork doClear
  \local res
  ToData res,Self#.prop.Default,Self#.prop.Default.type
  mov_ex eax,res
  lea edx,[Self#.value]
  call __datadup
  Self#.onData eax,data_data,exit
EndPoint

PointVar Value,data_data
  mov eax,[Self#.value]
  result equ eax
EndPoint

EndElement