Import Debian changes 5d6-3.2debian/5d6-3.2

scm (5d6-3.2) unstable; urgency=low

  * Fix hppa compile.  Closes: #144062

scm (5d6-3.1) unstable; urgency=low

  * NMU with patch from James Troup, to fix FTBFS on sparc. Closes: #191171

scm (5d6-3) unstable; urgency=low

  * Add build depend on xlibs-dev (Closes: #148020)

scm (5d6-2) unstable; urgency=low

  * Remove libregexx-dev from build-depends.
  * Change build to use ./scmlit rather than scmlit (should fix some build
    problems) (looks like alpha is mostly building)
  * New release (Closes: #140175)
  * Built with turtlegraphics last time (Closes: #58515)

scm (5d6-1) unstable; urgency=low

  * New upstream.
  * Add xlib and turtlegr to requested list of features. (closes
    some bug)
  * Make clean actually clean most everything up.
  * Remove hacks renaming build to something else and just set build as a
    .PHONY target in debian/rules.
  * Add the turtlegr code.

scm (5d5-1) unstable; urgency=low

  * New upstream
  * Has fixes for 64 bit archs.  May fix alpha compile problem.  Does fix
    (Closes: #140175)
  * Take out -O2 arg.

scm (5d4-3) unstable; urgency=low

  * Don't link with regexx, but just use libc6's regular expression
    functions.
  * Define (terms) to output /usr/share/common-licenses/GPL (Closes:
    #119321) 

scm (5d4-2) unstable; urgency=low

  * Add texinfo to build depends (Closes: #107011)

scm (5d4-1) unstable; urgency=low

  * New upstream release.
  * Move install-info --remove to prerm.

scm (5d3-5) unstable; urgency=low

  * Move scm info files to section "The Algorithmic Language Scheme" to
    match up with guile.

scm (5d3-4) unstable; urgency=low

  * Fix build depends (Closes: #76691)

scm (5d3-3) unstable; urgency=low

  * Fix path in scm dhelp file.

scm (5d3-2) unstable; urgency=low

  * Actually put the header files in the package.  Oops.

scm (5d3-1) unstable; urgency=low

  * New upstream. (Closes: #74761)
  * Make (terms) use new license location.
  * Make use libregexx rather than librx.
  * Fix build depends for above.
  * Using new regex lib seems to fix crash (Closes: #66787)
  * Consider adding scm-dev package with headers, but instead just add the
    headers to the scm package. (Closes: #70787)
  * Add doc-base support.

1 files changed, 29 insertions, 15 deletions

diff --git a/rope.c b/rope.c
index 671279a..af62c41 100644
--- a/rope.c
+++ b/rope.c
@@ -15,26 +15,26 @@
  * the Free Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111, USA.
  *
  * As a special exception, the Free Software Foundation gives permission
- * for additional uses of the text contained in its release of GUILE.
+ * for additional uses of the text contained in its release of SCM.
  *
- * The exception is that, if you link the GUILE library with other files
+ * The exception is that, if you link the SCM library with other files
  * to produce an executable, this does not by itself cause the
  * resulting executable to be covered by the GNU General Public License.
  * Your use of that executable is in no way restricted on account of
- * linking the GUILE library code into it.
+ * linking the SCM library code into it.
  *
  * This exception does not however invalidate any other reasons why
  * the executable file might be covered by the GNU General Public License.
  *
  * This exception applies only to the code released by the
- * Free Software Foundation under the name GUILE.  If you copy
+ * Free Software Foundation under the name SCM.  If you copy
  * code from other Free Software Foundation releases into a copy of
- * GUILE, as the General Public License permits, the exception does
+ * SCM, as the General Public License permits, the exception does
  * not apply to the code that you add in this way.  To avoid misleading
  * anyone as to the status of such modified files, you must delete
  * this exception notice from them.
  *
- * If you write modifications of your own for GUILE, it is your choice
+ * If you write modifications of your own for SCM, it is your choice
  * whether to permit this exception to apply to your modifications.
  * If you do not wish that, delete this exception notice.
  */
@@ -85,7 +85,7 @@ unsigned char num2uchar(num, pos, s_caller)
      char *pos, *s_caller;
 {
   unsigned long res = INUM(num);
-  ASSERT(INUMP(num) && (255L >= res),num,pos,s_caller);
+  ASSERT(INUMP(num) && (255L >= res), num, pos, s_caller);
   return (unsigned char) res;
 }
 unsigned short num2ushort(num, pos, s_caller)
@@ -93,7 +93,7 @@ unsigned short num2ushort(num, pos, s_caller)
      char *pos, *s_caller;
 {
   unsigned long res = INUM(num);
-  ASSERT(INUMP(num) && (65535L >= res),num,pos,s_caller);
+  ASSERT(INUMP(num) && (65535L >= res), num, pos, s_caller);
   return (unsigned short) res;
 }
 unsigned long num2ulong(num, pos, s_caller)
@@ -251,7 +251,7 @@ SCM scm_evstr(str)
 {
   SCM lsym;
   NEWCELL(lsym);
-  SETLENGTH(lsym, strlen(str)+0L, tc7_ssymbol);
+  SETLENGTH(lsym, strlen(str), tc7_ssymbol);
   SETCHARS(lsym, str);
   return scm_eval_string(lsym);
 }
@@ -260,7 +260,7 @@ void scm_ldstr(str)
 {
   SCM lsym;
   NEWCELL(lsym);
-  SETLENGTH(lsym, strlen(str)+0L, tc7_ssymbol);
+  SETLENGTH(lsym, strlen(str), tc7_ssymbol);
   SETCHARS(lsym, str);
   scm_load_string(lsym);
 }
@@ -269,7 +269,7 @@ int scm_ldfile(path)
 {
   SCM name = makfrom0str(path);
   *loc_errobj = name;
-  return BOOL_F==tryload(name);
+  return BOOL_F==tryload(name, UNDEFINED);
 }
 int scm_ldprog(path)
      char *path;
@@ -381,15 +381,14 @@ unsigned long scm_base_addr(v, s_name)
 }
 #endif /* ARRAYS */
 
+extern sizet hplim_ind;
+extern CELLPTR *hplims;
+
 /* scm_cell_p() returns !0 if the SCM argument `x' is cell-aligned and
    points into a valid heap segment.  This code is duplicated from
    mark_locations() and obunhash() in "sys.c", which means that
    changes to these routines must be coordinated. */
 
-#include "continue.h"
-extern sizet hplim_ind;
-extern CELLPTR *hplims;
-
 int scm_cell_p(x)
      SCM x;
 {
@@ -413,6 +412,21 @@ int scm_cell_p(x)
 	return 0;
 }
 
+long scm_protidx = 0;
+
+SCM scm_gc_protect(obj)
+     SCM obj;
+{
+  long len;
+  ASSERT(NIMP(scm_uprotects), MAKINUM(20), NALLOC, "protects");
+  if IMP(obj) return obj;
+  len = LENGTH(scm_uprotects);
+  if (scm_protidx >= len) resizuve(scm_uprotects, MAKINUM(len + (len>>2)));
+  VELTS(scm_uprotects)[scm_protidx++] = obj;
+  return obj;
+}
+
 void init_rope()
 {
+  scm_uprotects = make_vector(MAKINUM(20), UNDEFINED);
 }