Unify allocator tests even more, also test arena

This commit is contained in:
dcodeIO
2018-03-04 17:25:32 +01:00
parent 4257273d42
commit 00c4f6fa52
36 changed files with 3463 additions and 2977 deletions

View File

@@ -7,10 +7,10 @@
(type $iv (func (param i32)))
(type $v (func))
(import "env" "abort" (func $abort (param i32 i32 i32 i32)))
(global "$(lib)/allocator/arena/ALIGN_LOG2" i32 (i32.const 3))
(global "$(lib)/allocator/arena/ALIGN_SIZE" i32 (i32.const 8))
(global "$(lib)/allocator/arena/ALIGN_MASK" i32 (i32.const 7))
(global "$(lib)/allocator/arena/HEAP_OFFSET" (mut i32) (i32.const 0))
(global "$(lib)/allocator/arena/AL_BITS" i32 (i32.const 3))
(global "$(lib)/allocator/arena/AL_SIZE" i32 (i32.const 8))
(global "$(lib)/allocator/arena/AL_MASK" i32 (i32.const 7))
(global "$(lib)/allocator/arena/OFFSET" (mut i32) (i32.const 0))
(global $std/allocator_arena/size i32 (i32.const 42))
(global $std/allocator_arena/ptr1 (mut i32) (i32.const 0))
(global $std/allocator_arena/ptr2 (mut i32) (i32.const 0))
@@ -26,6 +26,8 @@
(local $3 i32)
(local $4 i32)
(local $5 i32)
(local $6 i32)
(local $7 i32)
(if
(i32.eqz
(get_local $0)
@@ -35,7 +37,7 @@
)
)
(set_local $1
(get_global "$(lib)/allocator/arena/HEAP_OFFSET")
(get_global "$(lib)/allocator/arena/OFFSET")
)
(set_local $2
(i32.and
@@ -53,62 +55,69 @@
)
)
(set_local $3
(i32.shl
(current_memory)
(i32.const 16)
)
(current_memory)
)
(if
(i32.and
(if (result i32)
(tee_local $4
(i32.gt_u
(get_local $2)
(i32.gt_u
(get_local $2)
(i32.shl
(get_local $3)
(i32.const 16)
)
)
(block
(set_local $4
(i32.shr_u
(i32.and
(i32.add
(i32.sub
(get_local $2)
(get_local $1)
)
(i32.const 65535)
)
(i32.xor
(i32.const 65535)
(i32.const -1)
)
)
(i32.const 16)
)
)
(set_local $7
(select
(tee_local $5
(get_local $3)
)
(tee_local $6
(get_local $4)
)
(i32.gt_s
(get_local $5)
(get_local $6)
)
)
)
(if
(i32.lt_s
(grow_memory
(select
(tee_local $4
(i32.shr_u
(i32.sub
(i32.and
(i32.add
(get_local $2)
(i32.const 65535)
)
(i32.xor
(i32.const 65535)
(i32.const -1)
)
)
(get_local $3)
)
(i32.const 16)
)
)
(tee_local $5
(i32.shr_u
(get_local $3)
(i32.const 16)
)
)
(i32.gt_u
(get_local $4)
(get_local $5)
)
)
(get_local $7)
)
(i32.const 0)
)
(get_local $4)
(if
(i32.lt_s
(grow_memory
(get_local $4)
)
(i32.const 0)
)
(unreachable)
)
)
(i32.const 1)
)
(unreachable)
)
(set_global "$(lib)/allocator/arena/HEAP_OFFSET"
(set_global "$(lib)/allocator/arena/OFFSET"
(get_local $2)
)
(return
@@ -2653,13 +2662,31 @@
(func "$(lib)/allocator/arena/free_memory" (; 6 ;) (type $iv) (param $0 i32)
)
(func "$(lib)/allocator/arena/reset_memory" (; 7 ;) (type $v)
(set_global "$(lib)/allocator/arena/HEAP_OFFSET"
(get_global $HEAP_BASE)
(set_global "$(lib)/allocator/arena/OFFSET"
(i32.and
(i32.add
(get_global $HEAP_BASE)
(i32.const 7)
)
(i32.xor
(i32.const 7)
(i32.const -1)
)
)
)
)
(func $start (; 8 ;) (type $v)
(set_global "$(lib)/allocator/arena/HEAP_OFFSET"
(get_global $HEAP_BASE)
(set_global "$(lib)/allocator/arena/OFFSET"
(i32.and
(i32.add
(get_global $HEAP_BASE)
(i32.const 7)
)
(i32.xor
(i32.const 7)
(i32.const -1)
)
)
)
(set_global $std/allocator_arena/ptr1
(call "$(lib)/allocator/arena/allocate_memory"
@@ -2823,7 +2850,16 @@
(i32.eqz
(i32.eq
(get_global $std/allocator_arena/ptr1)
(get_global $HEAP_BASE)
(i32.and
(i32.add
(get_global $HEAP_BASE)
(i32.const 7)
)
(i32.xor
(i32.const 7)
(i32.const -1)
)
)
)
)
(block