Initial project import

tools/v/vlib/builtin/wasm/builtin.v

@@ -0,0 +1,119 @@
+module builtin
+
+// vwasm_heap_base returns the base address of the heap.
+pub fn vwasm_heap_base() voidptr {
+	mut rval := unsafe { nil }
+	asm wasm {
+		global.get __heap_base
+		local.set rval
+		; =r (rval)
+	}
+	return rval
+}
+
+// vwasm_heap_size returns the size of the main wasm memory in pages.
+// Analogous to the `memory.size` instruction.
+pub fn vwasm_memory_size() int {
+	mut rval := 0
+	asm wasm {
+		memory.size
+		local.set rval
+		; =r (rval)
+	}
+	return rval
+}
+
+// vwasm_memory_grow grows the main wasm memory by `size` pages.
+// Analogous to the `memory.grow` instruction.
+pub fn vwasm_memory_grow(size int) int {
+	mut rval := 0
+	asm wasm {
+		local.get size
+		memory.grow
+		local.set rval
+		; =r (rval)
+		; r (size)
+	}
+	return rval
+}
+
+// vcalloc dynamically allocates a zeroed `n` bytes block of memory on the heap.
+// vcalloc returns a `byteptr` pointing to the memory address of the allocated space.
+// vcalloc checks for negative values given in `n`.
+@[unsafe]
+pub fn vcalloc(n isize) &u8 {
+	if n <= 0 {
+		$if no_imports ? {
+			return unsafe { nil }
+		} $else {
+			panic('valloc(n <= 0)')
+		}
+	}
+
+	res := unsafe { malloc(n) }
+
+	asm wasm {
+		local.get res
+		i32.const 0x0
+		local.get n
+		memory.fill
+		; ; r (res)
+		  r (n)
+	}
+
+	return res
+}
+
+// isnil returns true if an object is nil (only for C objects).
+@[inline]
+pub fn isnil(v voidptr) bool {
+	return v == 0
+}
+
+// vmemcpy copies n bytes from memory area src to memory area dest.
+// The memory areas **CAN** overlap. vmemcpy returns a pointer to `dest`.
+@[unsafe]
+pub fn vmemcpy(dest voidptr, const_src voidptr, n isize) voidptr {
+	asm wasm {
+		local.get dest
+		local.get const_src
+		local.get n
+		memory.copy
+		; ; r (dest)
+		  r (const_src)
+		  r (n)
+	}
+	return dest
+}
+
+// vmemmove copies n bytes from memory area src to memory area dest.
+// The memory areas **CAN** overlap. vmemmove returns a pointer to `dest`.
+@[unsafe]
+pub fn vmemmove(dest voidptr, const_src voidptr, n isize) voidptr {
+	asm wasm {
+		local.get dest
+		local.get const_src
+		local.get n
+		memory.copy
+		; ; r (dest)
+		  r (const_src)
+		  r (n)
+	}
+	return dest
+}
+
+// vmemset fills the first `n` bytes of the memory area pointed to by `s`,
+// with the constant byte `c`. It returns a pointer to the memory area `s`.
+@[unsafe]
+pub fn vmemset(s voidptr, c int, n isize) voidptr {
+	asm wasm {
+		local.get s
+		local.get c
+		local.get n
+		memory.fill
+		; ; r (s)
+		  r (c)
+		  r (n)
+	}
+	return s
+}