gas/testsuite/gas/tic54x/subsym.s

   1 *\r
   2 * String substitution symbols\r
   3 *                       \r
   4         ; if no quotes, interpret as subsymbol\r
   5         ; if quotes, interpret as string, and do forced substitution\r
   6         .sslist\r
   7         .asg    value,SYMBOL\r
   8         .asg    SYMBOL,SYMBOL1\r
   9 \r
  10         .global label, x\r
  11         .word   x\r
  12 \r
  13 * Substitution symbol functions \r
  14 label:  .word   $symlen(SYMBOL)         ; 5, substitutes string for symbol\r
  15         .word   $symlen(":SYMBOL:")     ; 5, forced substitution\r
  16         .word   $symlen("SYMBOL")       ; 6, uses string directly\r
  17 \r
  18         .word   $symcmp(SYMBOL,"value")         ; 0\r
  19         \r
  20         ; requires 2nd arg to be a character; zero if not found\r
  21         .word   $firstch(":SYMBOL:",'a')        ; 2\r
  22         .word   $lastch(SYMBOL,'a')             ; 2\r
  23         \r
  24         .word   $isdefed(SYMBOL)                ; 0 (value not in symtab)\r
  25         .word   $isdefed("label")               ; 1 (string contents in symtab)\r
  26         .word   $isdefed("unknown")             ; 0\r
  27 \r
  28         .asg    "1,2,3", list\r
  29         ; both args must be identifiers\r
  30         .word   $ismember(SYMBOL,list)          ; 1\r
  31         .word   SYMBOL                          ; now 1\r
  32         .word   list                            ; now 2,3\r
  33 \r
  34         .word   $iscons("010b")                 ; 1\r
  35         .word   $iscons("11111111B")            ; 1\r
  36         .word   $iscons("011")                  ; 2 (5 -- TI bug)\r
  37         .word   $iscons("0x10")                 ; 3 (0 -- TI bug)\r
  38         .word   $iscons("'a'")                  ; 4\r
  39         .word   $iscons(SYMBOL)                 ; 5 ("1")\r
  40         .word   $iscons("SYMBOL")               ; 0\r
  41         \r
  42         .word   $isname(SYMBOL)                 ; 0\r
  43 \r
  44         .word   $isreg(SYMBOL)                  ; 0\r
  45         .word   $isreg("AR0")                   ;\r
  46 ;       .word   $isreg("AG")                    ; should be 0, but we always \r
  47                                                 ; use mmregs \r
  48         .mmregs\r
  49 x       .word   $isreg("AG")                    ; 1 if .mmregs, 0 otherwise\r
  50 tag     .struct 10\r
  51         .word   1\r
  52         .endstruct\r
  53         .word   $structsz(tag)\r
  54         .word   $structacc(tag)                 ; this op is unspecified\r
  55         .end\r