mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* fluids.c: Removed use of assert.h (in order to avoid

Browse source 
__eprintf).

* Makefile.am (libguile_la_LDFLAGS): Added -export-dynamic.

* dynl.c (maybe_drag_in_eprintf): Disabled through #ifdef 0.
This commit is contained in:
Mikael Djurfeldt 1998-05-02 22:26:44 +00:00
parent 680ed4a802
commit 104d453328
4 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,5 +1,12 @@
1998-05-02 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* fluids.c: Removed use of assert.h (in order to avoid
__eprintf).
* Makefile.am (libguile_la_LDFLAGS): Added -export-dynamic.
* dynl.c (maybe_drag_in_eprintf): Disabled through #ifdef 0.
* eval.c (SCM_CEVAL): Do more thorough argument checking. This
change makes the evaluator safer at the cost of evaluation speed.
It handles the case when the user has added a non-immediate

2
libguile/Makefile.am
View file

@ -59,7 +59,7 @@ noinst_HEADERS = coop-threads.c coop-threads.h coop.c
libguile_la_DEPENDENCIES = @LIBLOBJS@
libguile_la_LIBADD = @LIBLOBJS@
libguile_la_LDFLAGS = -version-info 3:0
libguile_la_LDFLAGS = -version-info 3:0 -export-dynamic
include_HEADERS = libguile.h

2
libguile/dynl.c
View file

@ -45,6 +45,7 @@
Author: Aubrey Jaffer
Modified for libguile by Marius Vollmer */
#if 0 /* Disabled until we know for sure that it isn't needed */
/* XXX - This is only here to drag in a definition of __eprintf. This
is needed for proper operation of dynamic linking. The real
solution would probably be a shared libgcc. */
@ -57,6 +58,7 @@ maybe_drag_in_eprintf ()
{
assert (!maybe_drag_in_eprintf);
}
#endif
#include <stdio.h>
#include "_scm.h"

6
libguile/fluids.c
View file

@ -39,8 +39,6 @@
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */
#include <assert.h>
#include "_scm.h"
#include "print.h"
#include "smob.h"
@ -71,9 +69,7 @@ grow_fluids (root_state, new_length)
int old_length, i;
old_fluids = root_state->fluids;
assert (SCM_NIMP (old_fluids) && SCM_VECTORP (old_fluids));
old_length = SCM_LENGTH (old_fluids);
assert (old_length <= new_length);
new_fluids = scm_make_vector (SCM_MAKINUM (new_length),
SCM_BOOL_F, SCM_BOOL_F);
i = 0;
@ -169,7 +165,6 @@ scm_fluid_ref (fl)
SCM_ASSERT (SCM_NIMP (fl) && SCM_FLUIDP (fl), fl, SCM_ARG1, s_fluid_ref);
n = SCM_FLUID_NUM (fl);
assert (n >= 0 && n < n_fluids);
if (SCM_LENGTH (scm_root->fluids) <= n)
grow_fluids (scm_root, n+1);
@ -188,7 +183,6 @@ scm_fluid_set_x (fl, val)
SCM_ASSERT (SCM_NIMP (fl) && SCM_FLUIDP (fl), fl, SCM_ARG1, s_fluid_set_x);
n = SCM_FLUID_NUM (fl);
assert (n >= 0 && n < n_fluids);
if (SCM_LENGTH (scm_root->fluids) <= n)
grow_fluids (scm_root, n+1);