ppindirect.asm 650 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. ;Testname=test; Arguments=-E -o ppindirect.out; Files=ppindirect.out
  2. ; Fun tests of the preprocessor indirection mode...
  3. %assign foo1 11
  4. %assign foo11 1111
  5. %assign foo2 22
  6. %assign foo22 2222
  7. %assign foo3 33
  8. %assign foo33 3333
  9. %assign n 2
  10. foo%[foo%[n]]*100
  11. foo%[n]*100
  12. %assign foo%[foo%[n]] foo%[foo%[n]]*100
  13. ;%assign foo%[n] foo%[n]*100
  14. foo1
  15. foo2
  16. foo3
  17. foo11
  18. foo22
  19. foo33
  20. %define foo33bar 999999
  21. %[foo%[foo3]bar]
  22. %assign bctr 0
  23. %macro bluttan 0
  24. %assign bctr bctr+1
  25. %assign bluttan%[bctr] bctr
  26. %defstr bstr bluttan%[bctr]
  27. bluttan%[bctr]
  28. bstr
  29. %endmacro
  30. %rep 20
  31. bluttan
  32. %endrep
  33. %rep 20
  34. bluttan%[bctr]
  35. %assign bctr bctr-1
  36. %endrep