[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog Makefile.am...
|
From: |
Mikael Djurfeldt |
|
Subject: |
guile/guile-core/libguile ChangeLog Makefile.am... |
|
Date: |
Mon, 27 Jan 2003 06:03:05 -0500 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Mikael Djurfeldt <address@hidden> 03/01/27 06:03:00
Modified files:
guile-core/libguile: ChangeLog Makefile.am evalext.c evalext.h
Log message:
* upstream/Makefile.am (ltdl.h.diff, ltdl.c.diff): Look for ltdl.h
and ltdl.c in "$(srcdir)".
* evalext.c, evalext.h (s_scm_self_evaluating_p): Needed by
syntax-case macro fix.
* Makefile.am (c-tokenize.c): Look for it in $(srcdir).
* syncase.scm, psyntax.ss, psyntax.pp: Imported fixes from trunk.
* boot-9.scm (use-syntax): Return *unspecified*.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1465.2.105&tr2=1.1465.2.106&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/Makefile.am.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.138.2.27&tr2=1.138.2.28&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/evalext.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.35.2.2&tr2=1.35.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/evalext.h.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.7&tr2=1.7.4.1&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -c guile/guile-core/libguile/ChangeLog:1.1774
guile/guile-core/libguile/ChangeLog:1.1775
*** guile/guile-core/libguile/ChangeLog:1.1774 Thu Jan 23 11:04:36 2003
--- guile/guile-core/libguile/ChangeLog Thu Jan 23 15:31:38 2003
***************
*** 1,5 ****
--- 1,10 ----
2003-01-23 Mikael Djurfeldt <address@hidden>
+ * futures.c (mark_futures): Don't need to mark data of recycled
+ futures.
+ (scan_futures, cleanup_undead): Be smarter about marking
+ futures---avoid unnecessary passes through future lists.
+
* futures.h, futures.c: New files; Introduced recycling of
futures. For fine-grained threading this lifts performance to
another level. We can now use parallelization in inner loops of
Index: guile/guile-core/libguile/Makefile.am
diff -c guile/guile-core/libguile/Makefile.am:1.180
guile/guile-core/libguile/Makefile.am:1.181
*** guile/guile-core/libguile/Makefile.am:1.180 Thu Dec 26 10:00:23 2002
--- guile/guile-core/libguile/Makefile.am Thu Jan 23 11:04:37 2003
***************
*** 1,6 ****
## Process this file with Automake to create Makefile.in
##
! ## Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation,
Inc.
##
## This file is part of GUILE.
##
--- 1,6 ----
## Process this file with Automake to create Makefile.in
##
! ## Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software
Foundation, Inc.
##
## This file is part of GUILE.
##
***************
*** 63,69 ****
libguile_la_SOURCES = alist.c arbiters.c async.c backtrace.c boolean.c
\
chars.c continuations.c convert.c debug.c deprecation.c \
dynwind.c environments.c eq.c error.c eval.c evalext.c extensions.c
\
! feature.c fluids.c fports.c
\
gc.c gc-mark.c gc-segment.c gc-malloc.c gc-card.c gc-freelist.c \
gc_os_dep.c gdbint.c gh_data.c gh_eval.c gh_funcs.c gh_init.c \
gh_io.c gh_list.c gh_predicates.c goops.c gsubr.c guardians.c hash.c \
--- 63,69 ----
libguile_la_SOURCES = alist.c arbiters.c async.c backtrace.c boolean.c
\
chars.c continuations.c convert.c debug.c deprecation.c \
dynwind.c environments.c eq.c error.c eval.c evalext.c extensions.c
\
! feature.c fluids.c fports.c futures.c
\
gc.c gc-mark.c gc-segment.c gc-malloc.c gc-card.c gc-freelist.c \
gc_os_dep.c gdbint.c gh_data.c gh_eval.c gh_funcs.c gh_init.c \
gh_io.c gh_list.c gh_predicates.c goops.c gsubr.c guardians.c hash.c \
***************
*** 80,85 ****
--- 80,86 ----
continuations.x debug.x deprecation.x dynl.x dynwind.x \
environments.x eq.x
\
error.x eval.x evalext.x extensions.x feature.x fluids.x fports.x \
+ futures.x \
gc.x gc-mark.x gc-segment.x gc-malloc.x gc-card.x goops.x
\
gsubr.x guardians.x hash.x hashtab.x hooks.x init.x ioext.x iselect.x \
keywords.x lang.x list.x load.x macros.x mallocs.x modules.x \
***************
*** 95,101 ****
DOT_DOC_FILES = alist.doc arbiters.doc async.doc backtrace.doc
\
boolean.doc chars.doc continuations.doc debug.doc dynl.doc
\
dynwind.doc environments.doc eq.doc error.doc eval.doc evalext.doc
\
! extensions.doc feature.doc fluids.doc fports.doc gc.doc goops.doc \
gsubr.doc gc-mark.doc gc-segment.doc gc-malloc.doc gc-card.doc \
guardians.doc hash.doc hashtab.doc hooks.doc init.doc ioext.doc \
iselect.doc keywords.doc lang.doc list.doc load.doc macros.doc \
--- 96,103 ----
DOT_DOC_FILES = alist.doc arbiters.doc async.doc backtrace.doc
\
boolean.doc chars.doc continuations.doc debug.doc dynl.doc
\
dynwind.doc environments.doc eq.doc error.doc eval.doc evalext.doc
\
! extensions.doc feature.doc fluids.doc fports.doc futures.doc \
! gc.doc goops.doc \
gsubr.doc gc-mark.doc gc-segment.doc gc-malloc.doc gc-card.doc \
guardians.doc hash.doc hashtab.doc hooks.doc init.doc ioext.doc \
iselect.doc keywords.doc lang.doc list.doc load.doc macros.doc \
***************
*** 147,154 ****
chars.h continuations.h convert.h debug.h \
debug-malloc.h threads-plugin.h null-threads.h pthread-threads.h \
deprecation.h dynl.h dynwind.h environments.h eq.h error.h eval.h \
! evalext.h extensions.h feature.h filesys.h fluids.h fports.h gc.h \
! gdb_interface.h gdbint.h \
goops.h gsubr.h guardians.h hash.h hashtab.h hooks.h init.h
\
inline.h ioext.h \
iselect.h keywords.h lang.h list.h load.h macros.h mallocs.h modules.h
\
--- 149,156 ----
chars.h continuations.h convert.h debug.h \
debug-malloc.h threads-plugin.h null-threads.h pthread-threads.h \
deprecation.h dynl.h dynwind.h environments.h eq.h error.h eval.h \
! evalext.h extensions.h feature.h filesys.h fluids.h fports.h futures.h
\
! gc.h gdb_interface.h gdbint.h \
goops.h gsubr.h guardians.h hash.h hashtab.h hooks.h init.h
\
inline.h ioext.h \
iselect.h keywords.h lang.h list.h load.h macros.h mallocs.h modules.h
\
Index: guile/guile-core/libguile/evalext.c
diff -c guile/guile-core/libguile/evalext.c:1.40
guile/guile-core/libguile/evalext.c:1.41
*** guile/guile-core/libguile/evalext.c:1.40 Sun Nov 24 13:21:48 2002
--- guile/guile-core/libguile/evalext.c Mon Jan 20 05:12:39 2003
***************
*** 1,4 ****
! /* Copyright (C) 1998,1999,2000,2001,2002 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
--- 1,4 ----
! /* Copyright (C) 1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
***************
*** 145,150 ****
--- 145,200 ----
#endif
SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
+
+ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
+ (SCM obj),
+ "Return #t for objects which Guile considers self-evaluating")
+ #define FUNC_NAME s_scm_self_evaluating_p
+ {
+ switch (SCM_ITAG3 (obj))
+ {
+ case scm_tc3_int_1:
+ case scm_tc3_int_2:
+ /* inum */
+ return SCM_BOOL_T;
+ case scm_tc3_imm24:
+ /* characters, booleans, other immediates */
+ return SCM_BOOL (!SCM_NULLP (obj));
+ case scm_tc3_cons:
+ switch (SCM_TYP7 (obj))
+ {
+ case scm_tcs_closures:
+ case scm_tc7_vector:
+ case scm_tc7_wvect:
+ #ifdef HAVE_ARRAYS
+ case scm_tc7_bvect:
+ case scm_tc7_byvect:
+ case scm_tc7_svect:
+ case scm_tc7_ivect:
+ case scm_tc7_uvect:
+ case scm_tc7_fvect:
+ case scm_tc7_dvect:
+ case scm_tc7_cvect:
+ #ifdef HAVE_LONG_LONGS
+ case scm_tc7_llvect:
+ #endif
+ #endif
+ case scm_tc7_string:
+ case scm_tc7_smob:
+ case scm_tc7_cclo:
+ case scm_tc7_pws:
+ case scm_tcs_subrs:
+ case scm_tcs_struct:
+ return SCM_BOOL_T;
+ default:
+ return SCM_BOOL_F;
+ }
+ }
+ SCM_MISC_ERROR ("Internal error: Object ~S has unknown type",
+ scm_list_1 (obj));
+ return SCM_UNSPECIFIED; /* never reached */
+ }
+ #undef FUNC_NAME
void
scm_init_evalext ()
Index: guile/guile-core/libguile/evalext.h
diff -c guile/guile-core/libguile/evalext.h:1.11
guile/guile-core/libguile/evalext.h:1.12
*** guile/guile-core/libguile/evalext.h:1.11 Sun Nov 24 13:21:48 2002
--- guile/guile-core/libguile/evalext.h Mon Jan 20 05:12:39 2003
***************
*** 3,9 ****
#ifndef SCM_EVALEXT_H
#define SCM_EVALEXT_H
! /* Copyright (C) 1998,1999,2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
--- 3,9 ----
#ifndef SCM_EVALEXT_H
#define SCM_EVALEXT_H
! /* Copyright (C) 1998,1999,2000, 2003 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
***************
*** 52,57 ****
--- 52,58 ----
SCM_API SCM scm_m_generalized_set_x (SCM xorig, SCM env);
SCM_API SCM scm_defined_p (SCM sym, SCM env);
+ SCM_API SCM scm_self_evaluating_p (SCM obj);
SCM_API void scm_init_evalext (void);
#if (SCM_ENABLE_DEPRECATED == 1)