From 710a97992705d67c3ded0d4b270c5978ce29b11f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:37 -0800
Subject: Import Upstream version 5e4

---
 rope.c | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'rope.c')

diff --git a/rope.c b/rope.c
index 6f48982..d4fc16a 100644
--- a/rope.c
+++ b/rope.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
+/* Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2006 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
@@ -121,7 +121,7 @@ unsigned long num2ulong(num, pos, s_caller)
     sizet l = NUMDIGS(num);
     ASRTGO(DIGSPERLONG >= l, errout);
     res = 0;
-    for(;l--;) res = BIGUP(res) + BDIGITS(num)[l];
+    for (;l--;) res = BIGUP(res) + BDIGITS(num)[l];
     return res;
   }
 #endif
@@ -152,7 +152,7 @@ long num2long(num, pos, s_caller)
     sizet l = NUMDIGS(num);
     ASRTGO(DIGSPERLONG >= l, errout);
     res = 0;
-    for(;l--;) res = BIGUP(res) + BDIGITS(num)[l];
+    for (;l--;) res = BIGUP(res) + BDIGITS(num)[l];
     ASRTGO(0<res, errout);
     return (tc16_bigpos==TYP16(num) ? res : -res);
   }
@@ -219,7 +219,7 @@ SCM makfromstrs(argc, argv)
 {
   int i = argc;
   SCM lst = EOL;
-  if (0 > i) for(i = 0; argv[i]; i++);
+  if (0 > i) for (i = 0; argv[i]; i++);
   while (i--) lst = cons(makfrom0str(argv[i]), lst);
   return lst;
 }
@@ -232,7 +232,7 @@ char **makargvfrmstrs(args, s_name)
   char ** argv;
   int argc = ilength(args);
   argv = (char **)must_malloc((1L+argc)*sizeof(char *), s_vector);
-  for(argc = 0; NNULLP(args); args=CDR(args), ++argc) {
+  for (argc = 0; NNULLP(args); args=CDR(args), ++argc) {
     ASRTER(NIMP(CAR(args)) && STRINGP(CAR(args)), CAR(args), ARG2, s_name);
     {
       sizet len = 1 + LENGTH(CAR(args));
@@ -246,10 +246,10 @@ char **makargvfrmstrs(args, s_name)
   return argv;
 }
 void must_free_argv(argv)
-     const char * const *argv;
+     char **argv;
 {
   sizet i;
-  for(i = 0; argv[i]; i++) {
+  for (i = 0; argv[i]; i++) {
     must_free(argv[i], 1+strlen(argv[i]));
   }
   must_free((char *)argv, i*sizeof(char *));
@@ -295,7 +295,7 @@ int scm_ldprog(path)
 long	aind P((SCM ra, SCM args, const char *what));
 unsigned long scm_addr(args, s_name)
      SCM args;
-     char *s_name;
+     const char *s_name;
 {
   long pos;
   unsigned long ptr = 0;	/* gratuitous assignment squelches cc warn. */
@@ -356,7 +356,7 @@ unsigned long scm_addr(args, s_name)
 }
 unsigned long scm_base_addr(v, s_name)
      SCM v;
-     char *s_name;
+     const char *s_name;
 {
   long pos = 0;
   unsigned long ptr = 0;	/* gratuitous assignment squelches cc warn. */
-- 
cgit v1.2.3