Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #5 from nineties/add_free

Browse source 
Add 'free'
This commit is contained in:
Koichi NAKAMURA 2021-01-17 20:23:18 +09:00 committed by GitHub
commit 6050e60671
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bootstrap.fs
View file

@ -2399,6 +2399,9 @@ BLOCK-SIZE remaining-size !
then then
; ;
\ Bootstrapping version of free do nothing.
: (free) ( addr -- ) ;
( === File I/O === ) ( === File I/O === )
3 constant SYS-READ 3 constant SYS-READ
@ -2440,11 +2443,16 @@ BLOCK-SIZE remaining-size !
( === Heap Memory === ) ( === Heap Memory === )
need-defined (allocate) need-defined (allocate)
need-defined (free)
: allocate ( size -- addr e ) : allocate ( size -- addr e )
(allocate) dup 0<> if success else ALLOCATE-ERROR then (allocate) dup 0<> if success else ALLOCATE-ERROR then
; ;
: free ( addr -- )
(free)
;
\ allocate heap memory \ allocate heap memory
: %allocate ( align size -- addr e ) : %allocate ( align size -- addr e )
over + allocate ?dup unless over + allocate ?dup unless
@ -2604,7 +2612,7 @@ need-defined (read)
2rot -2rot 2tuck 2over 2nip 2swap 2dup 2drop 3dup 3drop depth 2rot -2rot 2tuck 2over 2nip 2swap 2dup 2drop 3dup 3drop depth
rp0 rp@ rp! r> >r r@ rdrop rpick rdepth rp0 rp@ rp! r> >r r@ rdrop rpick rdepth
allocate allot memcpy strlen streq strneq strcpy strcpy, allocate free allot memcpy strlen streq strneq strcpy strcpy,
cell cell+ cell- cells char+ char- chars align aligned +! -! cell cell+ cell- cells char+ char- chars align aligned +! -!
if else then unless begin until again while repeat if else then unless begin until again while repeat

1
others/planck.c
View file

@ -207,5 +207,6 @@ defcode("(allocate)", allocate) {
push((cell) p); push((cell) p);
next(); next();
} }
defcode("(free)", free_) { free((void*) pop()); }
#endif #endif

3
others/planck.py
View file

@ -281,7 +281,10 @@ def allocate():
addr = len(memory) * CELL addr = len(memory) * CELL
memory.extend([0]*n) memory.extend([0]*n)
push(addr) push(addr)
def free():
pop() # Bootstrap version do nothing
add_simple_operator('(allocate)', allocate) add_simple_operator('(allocate)', allocate)
add_simple_operator('(free)', free)
start = read(HERE_CELL) start = read(HERE_CELL)
comma(find('k')) comma(find('k'))