62 lines
912 B
Plaintext
62 lines
912 B
Plaintext
import stdlib.sl
|
|
|
|
word alloc
|
|
0 # addr hint (NULL)
|
|
swap # size
|
|
3 # prot (PROT_READ | PROT_WRITE)
|
|
34 # flags (MAP_PRIVATE | MAP_ANON)
|
|
-1 # fd
|
|
0 # offset
|
|
mmap
|
|
swap drop
|
|
end
|
|
|
|
word free
|
|
munmap drop
|
|
end
|
|
|
|
word memcpy #(dst_addr src_addr len -- dst_addr len)
|
|
dup
|
|
>r
|
|
swap
|
|
dup c@
|
|
3 pick swap
|
|
c!
|
|
swap
|
|
for
|
|
1 + dup
|
|
c@
|
|
swap
|
|
-rot
|
|
swap
|
|
1 +
|
|
dup
|
|
rot
|
|
c!
|
|
swap
|
|
end
|
|
swap
|
|
nip
|
|
r> dup -rot - swap
|
|
end
|
|
|
|
word memset #( value len addr -- )
|
|
swap
|
|
0 swap for
|
|
-rot swap 2 pick + 2dup swap ! 1 + -rot swap
|
|
end
|
|
2drop drop
|
|
end
|
|
|
|
word memdump #( len addr -- addr )
|
|
for
|
|
dup c@ puti cr 1 +
|
|
end
|
|
end
|
|
|
|
word realloc #( addr old_len new_len -- new_addr )
|
|
2 pick swap alloc
|
|
rot rot swap
|
|
memcpy
|
|
swap -rot free
|
|
end |