git ssb

1
;; starts with 1000 gas
2
(module
3
  (import $useGas  "ethereum" "useGas" (param i32))
4
  (import $gas "ethereum" "getGasLeft" (result i32))
5
6
  (export "test" 0)
7
  (func 
8
    ;; test adding gas
9
    (block
10
      (call_import $useGas (i32.const 1))
11
      (if (i32.eq  (call_import $gas) (i32.const 997))
12
        (return)
13
      )
14
      (unreachable)
15
    )
16
    (block
17
      (call_import $useGas (i32.const 1))
18
      (if (i32.eq  (call_import $gas) (i32.const 996))
19
        (return)
20
      )
21
      (unreachable)
22
    )
23
  )
24
)
25