snapshots

grain-lang · Apr 21, 2022 · 7dfc921 · 7dfc921
1 parent 0f96764
commit 7dfc921
Show file tree

Hide file tree

Showing 126 changed files with 1,839 additions and 2,899 deletions.
diff --git a/compiler/test/__snapshots__/basic_functionality.0996c5f7.0.snapshot b/compiler/test/__snapshots__/basic_functionality.0996c5f7.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › modulo4
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$%\" (global $gimport_pervasives_% (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"%\" (func $gimport_pervasives_% (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_%)
- )
+ (call $gimport_pervasives_%
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_%)
  )
  (i32.const -33)
  (i32.const 35)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.0a230f18.0.snapshot b/compiler/test/__snapshots__/basic_functionality.0a230f18.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › land4
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$&\" (global $gimport_pervasives_& (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"&\" (func $gimport_pervasives_& (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_&)
- )
+ (call $gimport_pervasives_&
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_&)
  )
  (i32.const 1)
  (i32.const 1)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.0a2e4afa.0.snapshot b/compiler/test/__snapshots__/basic_functionality.0a2e4afa.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › lxor1
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$^\" (global $gimport_pervasives_^ (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"^\" (func $gimport_pervasives_^ (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_^)
- )
+ (call $gimport_pervasives_^
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_^)
  )
  (i32.const 3)
  (i32.const 3)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.0c0b170b.0.snapshot b/compiler/test/__snapshots__/basic_functionality.0c0b170b.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › lor1
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$|\" (global $gimport_pervasives_| (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"|\" (func $gimport_pervasives_| (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_|)
- )
+ (call $gimport_pervasives_|
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_|)
  )
  (i32.const 3)
  (i32.const 3)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.0c400bde.0.snapshot b/compiler/test/__snapshots__/basic_functionality.0c400bde.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › modulo6
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$%\" (global $gimport_pervasives_% (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"%\" (func $gimport_pervasives_% (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_%)
- )
+ (call $gimport_pervasives_%
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_%)
  )
  (i32.const 35)
  (i32.const 35)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.1ad0f349.0.snapshot b/compiler/test/__snapshots__/basic_functionality.1ad0f349.0.snapshot
@@ -1,18 +1,19 @@
 basic functionality › precedence3
 (module
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_i32 (func (result i32)))
  (type $none_=>_none (func))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$decRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$decRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$%\" (global $gimport_pervasives_% (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$+\" (global $gimport_pervasives_+ (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"decRef\" (func $wimport_GRAIN$MODULE$runtime/gc_decRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"%\" (func $gimport_pervasives_% (param i32 i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"+\" (func $gimport_pervasives_+ (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
@@ -24,18 +25,13 @@ basic functionality › precedence3
  (local.set $0
  (tuple.extract 0
  (tuple.make
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_%)
- )
+ (call $gimport_pervasives_%
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_%)
  )
  (i32.const 9)
  (i32.const 13)
- (i32.load offset=8
- (local.get $0)
- )
  )
  (call $wimport_GRAIN$MODULE$runtime/gc_decRef
  (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$decRef)
@@ -45,21 +41,16 @@ basic functionality › precedence3
  )
  )
  (local.set $1
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $1
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_+)
- )
+ (call $gimport_pervasives_+
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_+)
  )
  (i32.const 7)
  (call $wimport_GRAIN$MODULE$runtime/gc_incRef
  (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
  (local.get $0)
  )
- (i32.load offset=8
- (local.get $1)
- )
  )
  )
  (drop

diff --git a/compiler/test/__snapshots__/basic_functionality.1b68c8db.0.snapshot b/compiler/test/__snapshots__/basic_functionality.1b68c8db.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › lsl1
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$<<\" (global $gimport_pervasives_<< (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"<<\" (func $gimport_pervasives_<< (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_<<)
- )
+ (call $gimport_pervasives_<<
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_<<)
  )
  (i32.const 15)
  (i32.const 3)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.1e4b1f39.0.snapshot b/compiler/test/__snapshots__/basic_functionality.1e4b1f39.0.snapshot
@@ -1,34 +1,28 @@
 basic functionality › land1
 (module
  (type $none_=>_i32 (func (result i32)))
- (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (type $none_=>_none (func))
  (type $i32_i32_=>_i32 (func (param i32 i32) (result i32)))
+ (type $i32_i32_i32_=>_i32 (func (param i32 i32 i32) (result i32)))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$&\" (global $gimport_pervasives_& (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"&\" (func $gimport_pervasives_& (param i32 i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
- (call_indirect (type $i32_i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_&)
- )
+ (call $gimport_pervasives_&
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_&)
  )
  (i32.const 3)
  (i32.const 3)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (func $_start (; has Stack IR ;)

diff --git a/compiler/test/__snapshots__/basic_functionality.1f787365.0.snapshot b/compiler/test/__snapshots__/basic_functionality.1f787365.0.snapshot
@@ -4,30 +4,24 @@ basic functionality › orshort2
  (type $none_=>_i32 (func (result i32)))
  (type $none_=>_none (func))
  (import \"_grainEnv\" \"mem\" (memory $0 0))
- (import \"_grainEnv\" \"tbl\" (table $tbl 0 funcref))
  (import \"_grainEnv\" \"relocBase\" (global $wimport__grainEnv_relocBase i32))
  (import \"GRAIN$MODULE$runtime/gc\" \"GRAIN$EXPORT$incRef\" (global $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef (mut i32)))
  (import \"GRAIN$MODULE$pervasives\" \"GRAIN$EXPORT$print\" (global $gimport_pervasives_print (mut i32)))
  (import \"GRAIN$MODULE$runtime/gc\" \"incRef\" (func $wimport_GRAIN$MODULE$runtime/gc_incRef (param i32 i32) (result i32)))
+ (import \"GRAIN$MODULE$pervasives\" \"print\" (func $gimport_pervasives_print (param i32 i32) (result i32)))
  (global $global_1 i32 (i32.const 0))
  (export \"memory\" (memory $0))
  (export \"_gmain\" (func $_gmain))
  (export \"_start\" (func $_start))
  (export \"GRAIN$TABLE_SIZE\" (global $global_1))
  (func $_gmain (; has Stack IR ;) (result i32)
- (local $0 i32)
  (drop
- (call_indirect (type $i32_i32_=>_i32)
- (local.tee $0
- (call $wimport_GRAIN$MODULE$runtime/gc_incRef
- (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
- (global.get $gimport_pervasives_print)
- )
+ (call $gimport_pervasives_print
+ (call $wimport_GRAIN$MODULE$runtime/gc_incRef
+ (global.get $wimport_GRAIN$MODULE$runtime/gc_GRAIN$EXPORT$incRef)
+ (global.get $gimport_pervasives_print)
  )
  (i32.const 3)
- (i32.load offset=8
- (local.get $0)
- )
  )
  )
  (i32.const 2147483646)