16 lines
483 B
Forth
16 lines
483 B
Forth
: STATUS ( obj-addr c-addr u -- obj-addr )
|
|
TYPE ":\n Value: " TYPE DUP @ .
|
|
"\n Object size: " TYPE DUP OBJECT-SIZE U. EOL EOL ;
|
|
|
|
: TEST
|
|
28 ALLOCATE 1234 OVER ! "Allocated 28 bytes" STATUS
|
|
33 RESIZE "Resized to 33 bytes" STATUS
|
|
28 RESIZE "Resized to 28 bytes" STATUS
|
|
256 KB CELL- RESIZE "Resized to 256 KiB - 1 cell" STATUS
|
|
32 RESIZE "Resized to 32 bytes" STATUS
|
|
28 RESIZE "Resized to 28 bytes" STATUS
|
|
4 RESIZE "Resized to 4 bytes" STATUS
|
|
FREE ;
|
|
|
|
TEST
|