?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ; this test is based on Omega (CZ demo scener) issue report, when local label defined
  2. ; after structure instance did use as "main" label the last inner-field of structure
  3. ; instead of the main structure name. (ie. ".data" after "test: sss" got expanded as
  4. ; "test.there.data" instead of expected "test.data")
  5. ; - the initial test got extended also with macro emit and structure with local name
  6. ; - and SLD file, as it took some effort to get at least somewhat meaningful output
  7.  
  8.     DEVICE ZXSPECTRUM48
  9.  
  10.     STRUCT nestS
  11. nested1:    byte
  12. nested2:    word
  13.     ENDS
  14.  
  15.     STRUCT sss
  16. what:   db 0
  17. where:  dw 0
  18. how:    nestS {$12, $3456}
  19. there:  db 0
  20.     ENDS
  21.  
  22.     ORG $ABCD
  23. test: sss $23,.data,{,.data},$45
  24. .t2:  sss $56,.t2,{,.t2},$78
  25. .data db $EF
  26.  
  27.     ORG $9876
  28.     MACRO defineStruct naam?
  29. naam?   sss $23,.data,{,.data},$45
  30. .naam?  sss $56,.naam?,{,.naam?},$78
  31. .data   db $DC
  32.     ENDM
  33.  
  34.     defineStruct fromM
  35.