diff options
Diffstat (limited to 'rope.c')
| -rw-r--r-- | rope.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -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. */ |