mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove references to heap_{start,end}. They do not exist when linking against Boehm's GC.

Browse source
This commit is contained in:
jjgarcia 2001-07-29 16:33:34 +00:00
parent 77c8cc4ebf
commit ef28e8a279
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/load.d
View file

@ -63,15 +63,10 @@ cl_object @'si::*source-pathname*';
@(return make_string_copy(dlerror())) @(return make_string_copy(dlerror()))
} }
if (1 || !Null(verbose)) { if (1 || !Null(verbose)) {
extern char * heap_start, * heap_end;
setupPRINT(filename, symbol_value(@'*standard-output*')); setupPRINT(filename, symbol_value(@'*standard-output*'));
write_str(";;; Address = "); write_str(";;; Address = ");
PRINTescape = FALSE; PRINTescape = FALSE;
write_addr(block->cblock.handle); write_addr(block->cblock.handle);
write_str(", heap = ");
write_addr(heap_start);
write_str(", heap end = ");
write_addr(heap_end);
write_str("\n"); write_str("\n");
cleanupPRINT(); cleanupPRINT();
flush_stream(PRINTstream); flush_stream(PRINTstream);