mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Cleaned up memory error signalling.

Browse source
This commit is contained in:
Dirk Herrmann 2000-06-29 15:54:58 +00:00
parent 9b166f1273
commit 2500356c67
9 changed files with 29 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/srcprop.c
View file

@ -132,7 +132,8 @@ scm_make_srcprops (int line, int col, SCM filename, SCM copy, SCM plist)
scm_sizet n = sizeof (scm_srcprops_chunk)
+ sizeof (scm_srcprops) * (SRCPROPS_CHUNKSIZE - 1);
SCM_SYSCALL (mem = (scm_srcprops_chunk *) malloc (n));
SCM_ASSERT (mem, SCM_UNDEFINED, SCM_NALLOC, "srcprops");
if (mem == NULL)
scm_memory_error ("srcprops");
scm_mallocated += n;
mem->next = srcprops_chunklist;
srcprops_chunklist = mem;