simon/post-scarcity
1
0
Fork 0
Code Issues 14 Pull requests Projects Releases Packages Wiki Activity Actions

Converted everything to the new lisp calling convention.

Browse source 
Fixes #19
This commit is contained in:
Simon Brooke 2026-04-01 17:11:10 +01:00
parent f3a26bc02e
commit b6480aebd5
53 changed files with 590 additions and 520 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/memory/page.c
View file

@ -125,10 +125,10 @@ struct pso_pointer allocate_page( uint8_t size_class ) {
L"Initialised page %d; freelist for size class %x updated.\n",
npages_allocated, size_class );
if (npages_allocated == 0) {
// first page allocated; initialise nil and t
nil = lock_object( allocate(NILTAG, 2));
t = lock_object( allocate(TRUETAG, 2));
if ( npages_allocated == 0 ) {
// first page allocated; initialise nil and t
nil = lock_object( allocate( NILTAG, 2 ) );
t = lock_object( allocate( TRUETAG, 2 ) );
}
npages_allocated++;
@ -164,6 +164,6 @@ struct pso_pointer allocate_page( uint8_t size_class ) {
* @brief allow other files to see the current value of npages_allocated, but not
* change it.
*/
uint32_t get_pages_allocated() {
return npages_allocated;
uint32_t get_pages_allocated( ) {
return npages_allocated;
}