mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +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> 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 * eval.c (SCM_CEVAL): Do more thorough argument checking. This
change makes the evaluator safer at the cost of evaluation speed. change makes the evaluator safer at the cost of evaluation speed.
It handles the case when the user has added a non-immediate 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_DEPENDENCIES = @LIBLOBJS@
libguile_la_LIBADD = @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 include_HEADERS = libguile.h

2
libguile/dynl.c
View file

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

6
libguile/fluids.c
View file

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