mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 15:20:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Update sources to accomodate the new cl_dealloc() macro

Browse source
This commit is contained in:
jgarcia 2008-05-19 07:44:09 +00:00
parent 8f28327ddf
commit c642a2e789
7 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/big.d
View file

@ -278,7 +278,7 @@ mp_free(void *ptr, size_t size)
char *x = ptr;
if (x < (char *)(cl_env.big_register_limbs) ||
x > (char *)(cl_env.big_register_limbs+2))
cl_dealloc(x,size);
cl_dealloc(x);
}
void init_big_registers(void)

2
src/c/ffi.d
View file

@ -130,7 +130,7 @@ si_free_foreign_data(cl_object f)
FEwrong_type_argument(@'si::foreign-data', f);
}
if (f->foreign.size) {
cl_dealloc(f->foreign.data, f->foreign.size);
cl_dealloc(f->foreign.data);
}
f->foreign.size = 0;
f->foreign.data = NULL;

4
src/c/file.d
View file

@ -550,7 +550,7 @@ static void flush_output_stream_binary(cl_object strm);
if (fclose(fp) != 0)
FElibc_error("Cannot close stream ~S.", 1, strm);
#if !defined(GBC_BOEHM)
cl_dealloc(strm->stream.buffer, BUFSIZ);
cl_dealloc(strm->stream.buffer);
strm->stream.file = NULL;
#endif
break;
@ -561,7 +561,7 @@ static void flush_output_stream_binary(cl_object strm);
if ( closesocket( ( int )strm->stream.file ) != 0 )
wsock_error( "Cannot close Windows Socket ~S~%~A.", strm );
#if !defined(GBC_BOEHM)
cl_dealloc(strm->stream.buffer, BUFSIZ);
cl_dealloc(strm->stream.buffer);
strm->stream.file = NULL;
#endif
break;

2
src/c/gbc.d
View file

@ -721,7 +721,7 @@ contblock_sweep_phase(void)
q = p + 4;
while (q < e && !get_mark_bit((int *)q))
q += 4;
cl_dealloc(p, q - p);
cl_dealloc(p);
p = q + 4;
}
i = j + 1;

2
src/c/interpreter.d
View file

@ -46,7 +46,7 @@ cl_stack_set_size(cl_index new_size)
#ifdef BOEHM_GBC
GC_free(cl_env.stack);
#else
cl_dealloc(cl_env.stack, cl_env.stack_size);
cl_dealloc(cl_env.stack);
#endif
cl_env.stack_size = new_size;
cl_env.stack = new_stack;

4
src/c/read.d
View file

@ -514,7 +514,7 @@ ecl_parse_number(cl_object str, cl_index start, cl_index end,
output = OBJNULL;
}
OUTPUT:
cl_dealloc(buffer, length+1);
cl_dealloc(buffer);
return output;
}
}
@ -2140,7 +2140,7 @@ read_VV(cl_object block, void (*entry_point)(cl_object))
block->cblock.temp_data = NULL;
block->cblock.temp_data_size = 0;
memset(VVtemp, 0, bytes);
cl_dealloc(VVtemp, bytes);
cl_dealloc(VVtemp);
}
bds_unwind1();
} CL_UNWIND_PROTECT_EXIT {

2
src/c/unixfsys.d
View file

@ -276,7 +276,7 @@ ecl_backup_fopen(const char *filename, const char *option)
if (rename(filename, backupfilename))
FElibc_error("Cannot rename the file ~S to ~S.", 2,
make_constant_base_string(filename), make_simple_base_string(backupfilename));
cl_dealloc(backupfilename, 0);
cl_dealloc(backupfilename);
return fopen(filename, option);
}