test/many-locals.voo

   1 #### Test using many locals
   2
   3 section data
   4 align
   5 format:
   6 string "many_locals %d: %d\n\x00"
   7
   8 section functions
   9 import printf
  10 export main
  11
  12 align
  13 many_locals:
  14 function x
  15     let a x
  16     let b add x 1
  17     let c add x 2
  18     let d add x 3
  19     let e add x 4
  20     let f add x 5
  21     let g add x 6
  22     let h add x 7
  23     let i add x 8
  24     let j add x 9
  25     let k add x 10
  26     let l add x 11
  27     let m add x 12
  28     let n add x 13
  29     let o add x 14
  30     let p add x 15
  31     let q add x 16
  32     let r add x 17
  33     let s add x 18
  34     let t add x 19
  35
  36     let sum add a b
  37     set sum add sum c
  38     set sum add sum d
  39     set sum add sum e
  40     set sum add sum f
  41     set sum add sum g
  42     set sum add sum h
  43     set sum add sum i
  44     set sum add sum j
  45     set sum add sum k
  46     set sum add sum l
  47     set sum add sum m
  48     set sum add sum n
  49     set sum add sum o
  50     set sum add sum p
  51     set sum add sum q
  52     set sum add sum r
  53     set sum add sum s
  54     set sum add sum t
  55
  56     return sum
  57 end function
  58
  59 align
  60 main:
  61 function argc argv
  62     let x call many_locals 1
  63     call printf format 1 x
  64
  65     set x call many_locals -20
  66     call printf format -20 x
  67
  68     return 0
  69 end function