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

gc-stats: handle unsinged int overflow correctly

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

12
src/c/alloc_2.d
View file

@ -1289,11 +1289,15 @@ gather_statistics()
mpz_add_ui(cl_core.bytes_consed->big.big_num,
cl_core.bytes_consed->big.big_num,
wrapped);
bytes = new_bytes;
mpz_add_ui(cl_core.bytes_consed->big.big_num,
cl_core.bytes_consed->big.big_num,
new_bytes);
} else {
mpz_add_ui(cl_core.bytes_consed->big.big_num,
cl_core.bytes_consed->big.big_num,
new_bytes - bytes);
}
mpz_add_ui(cl_core.bytes_consed->big.big_num,
cl_core.bytes_consed->big.big_num,
new_bytes - bytes);
bytes = new_bytes;
#endif
mpz_add_ui(cl_core.gc_counter->big.big_num,
cl_core.gc_counter->big.big_num,