Rename heap to memory; Allocator strategies

This commit is contained in:
dcodeIO
2018-01-28 15:30:49 +01:00
parent 1b0ed61072
commit 219ee81bc9
15 changed files with 2694 additions and 1235 deletions

View File

@ -1,15 +1,348 @@
(module
(type $ii (func (param i32) (result i32)))
(type $iiiv (func (param i32 i32 i32)))
(type $ii (func (param i32) (result i32)))
(type $iii (func (param i32 i32) (result i32)))
(type $v (func))
(global $std:heap/HEAP_OFFSET (mut i32) (i32.const 0))
(global $std:memory/arena/HEAP_OFFSET (mut i32) (i32.const 0))
(global $std/set/set (mut i32) (i32.const 0))
(global $HEAP_BASE i32 (i32.const 4))
(memory $0 1)
(export "memory" (memory $0))
(start $start)
(func $std:heap/allocate_memory (; 0 ;) (type $ii) (param $0 i32) (result i32)
(func $std:memory/set_memory (; 0 ;) (type $iiiv) (param $0 i32) (param $1 i32) (param $2 i32)
(local $3 i64)
(local $4 i32)
(if
(i32.eqz
(get_local $2)
)
(return)
)
(i32.store8
(get_local $0)
(get_local $1)
)
(i32.store8
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 1)
)
(get_local $1)
)
(if
(i32.le_u
(get_local $2)
(i32.const 2)
)
(return)
)
(i32.store8
(i32.add
(get_local $0)
(i32.const 1)
)
(get_local $1)
)
(i32.store8
(i32.add
(get_local $0)
(i32.const 2)
)
(get_local $1)
)
(i32.store8
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 2)
)
(get_local $1)
)
(i32.store8
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 3)
)
(get_local $1)
)
(if
(i32.le_u
(get_local $2)
(i32.const 6)
)
(return)
)
(i32.store8
(i32.add
(get_local $0)
(i32.const 3)
)
(get_local $1)
)
(i32.store8
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 4)
)
(get_local $1)
)
(if
(i32.le_u
(get_local $2)
(i32.const 8)
)
(return)
)
(i32.store
(tee_local $0
(i32.add
(get_local $0)
(tee_local $4
(i32.and
(i32.sub
(i32.const 0)
(get_local $0)
)
(i32.const 3)
)
)
)
)
(tee_local $1
(i32.mul
(get_local $1)
(i32.const 16843009)
)
)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(tee_local $2
(i32.and
(i32.sub
(get_local $2)
(get_local $4)
)
(i32.const -4)
)
)
)
(i32.const 4)
)
(get_local $1)
)
(if
(i32.le_u
(get_local $2)
(i32.const 8)
)
(return)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 4)
)
(get_local $1)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 8)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 12)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 8)
)
(get_local $1)
)
(if
(i32.le_u
(get_local $2)
(i32.const 24)
)
(return)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 12)
)
(get_local $1)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 16)
)
(get_local $1)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 20)
)
(get_local $1)
)
(i32.store
(i32.add
(get_local $0)
(i32.const 24)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 28)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 24)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 20)
)
(get_local $1)
)
(i32.store
(i32.sub
(i32.add
(get_local $0)
(get_local $2)
)
(i32.const 16)
)
(get_local $1)
)
(set_local $0
(i32.add
(get_local $0)
(tee_local $4
(i32.add
(i32.and
(get_local $0)
(i32.const 4)
)
(i32.const 24)
)
)
)
)
(set_local $2
(i32.sub
(get_local $2)
(get_local $4)
)
)
(set_local $3
(i64.or
(i64.extend_u/i32
(get_local $1)
)
(i64.shl
(i64.extend_u/i32
(get_local $1)
)
(i64.const 32)
)
)
)
(loop $continue|0
(if
(i32.ge_u
(get_local $2)
(i32.const 32)
)
(block
(i64.store
(get_local $0)
(get_local $3)
)
(i64.store
(i32.add
(get_local $0)
(i32.const 8)
)
(get_local $3)
)
(i64.store
(i32.add
(get_local $0)
(i32.const 16)
)
(get_local $3)
)
(i64.store
(i32.add
(get_local $0)
(i32.const 24)
)
(get_local $3)
)
(set_local $2
(i32.sub
(get_local $2)
(i32.const 32)
)
)
(set_local $0
(i32.add
(get_local $0)
(i32.const 32)
)
)
(br $continue|0)
)
)
)
)
(func $std:memory/arena/allocate_memory (; 1 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(local $2 i32)
(if
@ -26,7 +359,7 @@
(if
(i32.gt_u
(i32.add
(get_global $std:heap/HEAP_OFFSET)
(get_global $std:memory/arena/HEAP_OFFSET)
(get_local $0)
)
(i32.shl
@ -71,39 +404,44 @@
)
)
(set_local $1
(get_global $std:heap/HEAP_OFFSET)
(get_global $std:memory/arena/HEAP_OFFSET)
)
(if
(block (result i32)
(set_global $std:heap/HEAP_OFFSET
(set_global $std:memory/arena/HEAP_OFFSET
(i32.add
(get_global $std:heap/HEAP_OFFSET)
(get_global $std:memory/arena/HEAP_OFFSET)
(get_local $0)
)
)
(i32.and
(get_global $std:heap/HEAP_OFFSET)
(get_global $std:memory/arena/HEAP_OFFSET)
(i32.const 7)
)
)
(set_global $std:heap/HEAP_OFFSET
(set_global $std:memory/arena/HEAP_OFFSET
(i32.add
(i32.or
(get_global $std:heap/HEAP_OFFSET)
(get_global $std:memory/arena/HEAP_OFFSET)
(i32.const 7)
)
(i32.const 1)
)
)
)
(call $std:memory/set_memory
(get_local $1)
(i32.const 0)
(get_local $0)
)
(get_local $1)
)
(func $std:set/Set#get:size (; 1 ;) (type $ii) (param $0 i32) (result i32)
(func $std:set/Set#get:size (; 2 ;) (type $ii) (param $0 i32) (result i32)
(i32.load offset=8
(get_local $0)
)
)
(func $std:heap/copy_memory (; 2 ;) (type $iiiv) (param $0 i32) (param $1 i32) (param $2 i32)
(func $std:memory/copy_memory (; 3 ;) (type $iiiv) (param $0 i32) (param $1 i32) (param $2 i32)
(local $3 i32)
(local $4 i32)
(loop $continue|0
@ -1679,7 +2017,7 @@
)
)
)
(func $std:heap/move_memory (; 3 ;) (type $iiiv) (param $0 i32) (param $1 i32) (param $2 i32)
(func $std:memory/move_memory (; 4 ;) (type $iiiv) (param $0 i32) (param $1 i32) (param $2 i32)
(local $3 i32)
(if
(i32.eq
@ -1712,7 +2050,7 @@
(i32.const 1)
)
(block
(call $std:heap/copy_memory
(call $std:memory/copy_memory
(get_local $0)
(get_local $1)
(get_local $2)
@ -1969,7 +2307,7 @@
)
)
)
(func $std:set/Set#add (; 4 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(func $std:set/Set#add (; 5 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(local $2 i32)
(local $3 i32)
(if
@ -1989,7 +2327,7 @@
)
(block
(set_local $2
(call $std:heap/allocate_memory
(call $std:memory/arena/allocate_memory
(i32.mul
(tee_local $3
(select
@ -2017,7 +2355,7 @@
(get_local $0)
)
(block
(call $std:heap/move_memory
(call $std:memory/move_memory
(get_local $2)
(i32.load
(get_local $0)
@ -2071,7 +2409,7 @@
)
(get_local $0)
)
(func $std:set/Set#has (; 5 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(func $std:set/Set#has (; 6 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(local $2 i32)
(local $3 i32)
(if
@ -2123,7 +2461,7 @@
)
(i32.const 0)
)
(func $std:set/Set#delete (; 6 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(func $std:set/Set#delete (; 7 ;) (type $iii) (param $0 i32) (param $1 i32) (result i32)
(local $2 i32)
(local $3 i32)
(if
@ -2170,7 +2508,7 @@
(get_local $0)
)
)
(call $std:heap/move_memory
(call $std:memory/move_memory
(i32.add
(i32.load
(get_local $0)
@ -2229,13 +2567,13 @@
)
(i32.const 0)
)
(func $start (; 7 ;) (type $v)
(func $start (; 8 ;) (type $v)
(local $0 i32)
(set_global $std:heap/HEAP_OFFSET
(set_global $std:memory/arena/HEAP_OFFSET
(get_global $HEAP_BASE)
)
(set_global $std/set/set
(call $std:heap/allocate_memory
(call $std:memory/arena/allocate_memory
(i32.const 12)
)
)