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

cosmetic: comment wrap

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-04 14:47:59 +01:00
parent cbb4e47d00
commit e4e3bc64bc
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/alloc_2.d
View file

@ -1220,8 +1220,7 @@ si_set_finalizer(cl_object o, cl_object finalizer)
}
/* If we do not build our own version of the library, we do not have
* control over the existence of this variable.
*/
* control over the existence of this variable. */
#if GBC_BOEHM == 0
extern int GC_print_stats;
#else
@ -1279,10 +1278,9 @@ gather_statistics()
cl_core.bytes_consed->big.big_num,
GC_get_bytes_since_gc());
#else
/* This is not accurate and may wrap around. We try
to detect this assuming that an overflow in an
unsigned integer will produce an smaller
integer.*/
/* This is not accurate and may wrap around. We try to detect this
assuming that an overflow in an unsigned integer will produce
a smaller integer.*/
static cl_index bytes = 0;
cl_index new_bytes = GC_get_total_bytes();
if (bytes > new_bytes) {