test/tls.ssa

   1 thread data $i = align 4 {w 42}
   2 data $fmt = align 1 {b "i%d==%d\n", b 0}
   3
   4 export
   5 function w $main() {
   6 @start
   7         %pthr =l alloc8 8
   8         %rval =l alloc8 8
   9         call $pthread_create(l %pthr, l 0, l $thread, l 0)
  10         %t =l load %pthr
  11         call $pthread_join(l %t, l %rval)
  12         %i0 =w loadw thread $i
  13         call $printf(l $fmt, ..., w 0, w %i0)
  14         %i1 =w load %rval
  15         call $printf(l $fmt, ..., w 1, w %i1)
  16         ret 0
  17 }
  18
  19 function l $thread(l %arg) {
  20 @start
  21         %i3 =l add thread $i, 3
  22         storeb 24, %i3
  23         %ret =l loadsw thread $i
  24         ret %ret
  25 }
  26
  27 # >>> output
  28 # i0==42
  29 # i1==402653226
  30 # <<<