Fixed assigning arguments to slots in the frame; also fixed a bug in bind...
But did that by switching away from using Lisp calling convention, because that broke horribly. This is bad news and must be sorted out.
This commit is contained in:
parent
cb3dcb352e
commit
f915a9993f
14 changed files with 158 additions and 112 deletions
|
|
@ -49,14 +49,13 @@ struct pso_pointer initialise_memory( uint32_t node ) {
|
|||
if ( memory_initialised ) {
|
||||
result =
|
||||
make_exception( c_string_to_lisp_string
|
||||
( L"Attenpt to reinitialise memory." ), nil,
|
||||
nil );
|
||||
( L"Attenpt to reinitialise memory." ), nil, nil );
|
||||
} else {
|
||||
for ( uint8_t i = 0; i <= MAX_SIZE_CLASS; i++ ) {
|
||||
freelists[i] = nil;
|
||||
}
|
||||
#ifdef DEBUG
|
||||
debug_print(L"Memory initialised", DEBUG_BOOTSTRAP, 0);
|
||||
debug_print( L"Memory initialised", DEBUG_BOOTSTRAP, 0 );
|
||||
#endif
|
||||
memory_initialised = true;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue