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

Add release-array

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-03 21:28:41 +09:00
parent 71bb8bcaae
commit 4bb6829378
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/array.fs
View file

@ -39,6 +39,11 @@ s" Index out of range" exception constant OUT-OF-RANGE export
allocate-array allocate-array
; export ; export
: release-array ( arr -- )
dup array>buf @ free
free
; export
: array-size ( arr -- n ) array>size @ ; export : array-size ( arr -- n ) array>size @ ; export
: check-index ( i arr -- ) : check-index ( i arr -- )
@ -135,3 +140,4 @@ T{ 1 0 A array! -> }T
T{ 0 A array@ -> 1 }T T{ 0 A array@ -> 1 }T
T{ 2 99 A array! -> }T T{ 2 99 A array! -> }T
T{ 99 A array@ -> 2 }T T{ 99 A array@ -> 2 }T
T{ A release-array -> }T