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

Successfully added mutexes protecting freelist access. No behaviour change.

Browse source
This commit is contained in:
Simon Brooke 2026-04-20 13:59:47 +01:00
parent c59825d7fe
commit f05d1af9d6
14 changed files with 132 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/io/io.c
View file

@ -167,7 +167,7 @@ struct pso_pointer initialise_default_streams( struct pso_pointer env ) {
env );
lisp_stdin = lock_object( make_read_stream( file_to_url_file( stdin ),
c_cons( c_cons
make_cons( make_cons
( c_string_to_lisp_keyword
( L"url" ),
c_string_to_lisp_string
@ -182,7 +182,7 @@ struct pso_pointer initialise_default_streams( struct pso_pointer env ) {
lisp_stdout =
lock_object( make_write_stream
( file_to_url_file( stdout ),
c_cons( c_cons
make_cons( make_cons
( c_string_to_lisp_keyword( L"url" ),
c_string_to_lisp_string
( L"::system:standard-output" ) ),
@ -195,7 +195,7 @@ struct pso_pointer initialise_default_streams( struct pso_pointer env ) {
lisp_stderr =
lock_object( make_write_stream
( file_to_url_file( stderr ),
c_cons( c_cons
make_cons( make_cons
( c_string_to_lisp_keyword( L"url" ),
c_string_to_lisp_string
( L"::system:standard-output" ) ),
@ -422,7 +422,7 @@ struct pso_pointer add_meta_integer( struct pso_pointer meta, char32_t *key,
long int value ) {
// todo: issue #21: must have stack frame passed in.
return
c_cons( c_cons
make_cons( make_cons
( c_string_to_lisp_keyword( key ), make_integer( value ) ),
meta );
}
@ -435,7 +435,7 @@ struct pso_pointer add_meta_string( struct pso_pointer meta, char32_t *key,
mbstowcs( buffer, value, strlen( value ) + 1 );
return
c_cons( c_cons
make_cons( make_cons
( c_string_to_lisp_keyword( key ),
c_string_to_lisp_string( buffer ) ), meta );
}