external/cde
1
0
Fork 0
mirror of git://git.code.sf.net/p/cdesktopenv/code synced 2025-03-09 15:50:02 +00:00
Code Issues Releases Wiki Activity

dtdocbook: remove register keyword

Browse source
This commit is contained in:
Jon Trulson 2018-06-27 16:26:13 -06:00
parent ca7d34b7ff
commit 55a80f00cf
22 changed files with 316 additions and 306 deletions
Download patch file Download diff file Expand all files Collapse all files

119
cde/programs/dtdocbook/lib/tptregexp/regexp.c
View file

@ -214,10 +214,10 @@ STATIC int strcspn();
regexp * regexp *
tpt_regcomp(char *exp) tpt_regcomp(char *exp)
{ {
register regexp *r; regexp *r;
register char *scan; char *scan;
register char *longest; char *longest;
register int len; int len;
int flags; int flags;
if (exp == NULL) if (exp == NULL)
@ -303,10 +303,10 @@ int paren, /* Parenthesized? */
int *flagp int *flagp
) )
{ {
register char *ret; char *ret;
register char *br; char *br;
register char *ender; char *ender;
register int parno; int parno;
int flags; int flags;
*flagp = HASWIDTH; /* Tentatively. */ *flagp = HASWIDTH; /* Tentatively. */
@ -373,9 +373,9 @@ int *flagp
static char * static char *
regbranch(int *flagp) regbranch(int *flagp)
{ {
register char *ret; char *ret;
register char *chain; char *chain;
register char *latest; char *latest;
int flags; int flags;
*flagp = WORST; /* Tentatively. */ *flagp = WORST; /* Tentatively. */
@ -411,9 +411,9 @@ regbranch(int *flagp)
static char * static char *
regpiece(int *flagp) regpiece(int *flagp)
{ {
register char *ret; char *ret;
register char op; char op;
register char *next; char *next;
int flags; int flags;
ret = regatom(&flags); ret = regatom(&flags);
@ -474,7 +474,7 @@ regpiece(int *flagp)
static char * static char *
regatom(int *flagp) regatom(int *flagp)
{ {
register char *ret; char *ret;
int flags; int flags;
*flagp = WORST; /* Tentatively. */ *flagp = WORST; /* Tentatively. */
@ -491,8 +491,8 @@ regatom(int *flagp)
*flagp |= HASWIDTH|SIMPLE; *flagp |= HASWIDTH|SIMPLE;
break; break;
case '[': { case '[': {
register int class; int class;
register int classend; int classend;
if (*regparse == '^') { /* Complement of range. */ if (*regparse == '^') { /* Complement of range. */
ret = regnode(ANYBUT); ret = regnode(ANYBUT);
@ -550,8 +550,8 @@ regatom(int *flagp)
*flagp |= HASWIDTH|SIMPLE; *flagp |= HASWIDTH|SIMPLE;
break; break;
default: { default: {
register int len; int len;
register char ender; char ender;
regparse--; regparse--;
len = strcspn(regparse, META); len = strcspn(regparse, META);
@ -582,8 +582,8 @@ regatom(int *flagp)
static char * /* Location. */ static char * /* Location. */
regnode(char op) regnode(char op)
{ {
register char *ret; char *ret;
register char *ptr; char *ptr;
ret = regcode; ret = regcode;
if (ret == &regdummy) { if (ret == &regdummy) {
@ -620,9 +620,9 @@ regc(char b)
static void static void
reginsert(char op, char *opnd) reginsert(char op, char *opnd)
{ {
register char *src; char *src;
register char *dst; char *dst;
register char *place; char *place;
if (regcode == &regdummy) { if (regcode == &regdummy) {
regsize += 3; regsize += 3;
@ -647,9 +647,9 @@ reginsert(char op, char *opnd)
static void static void
regtail(char *p, char *val) regtail(char *p, char *val)
{ {
register char *scan; char *scan;
register char *temp; char *temp;
register int offset; int offset;
if (p == &regdummy) if (p == &regdummy)
return; return;
@ -712,9 +712,15 @@ STATIC char *regprop();
- regexec - match a regexp against a string - regexec - match a regexp against a string
*/ */
int int
<<<<<<< ca7d34b7ff5f017e3228714bb583266f7cdf946f
tpt_regexec(register regexp *prog, register char *string) tpt_regexec(register regexp *prog, register char *string)
=======
tpt_regexec(prog, string)
regexp *prog;
char *string;
>>>>>>> dtdocbook: remove register keyword
{ {
register char *s; char *s;
/* Be paranoid... */ /* Be paranoid... */
if (prog == NULL || string == NULL) { if (prog == NULL || string == NULL) {
@ -773,9 +779,9 @@ tpt_regexec(register regexp *prog, register char *string)
static int /* 0 failure, 1 success */ static int /* 0 failure, 1 success */
regtry(regexp *prog, char *string) regtry(regexp *prog, char *string)
{ {
register int i; int i;
register char **sp; char **sp;
register char **ep; char **ep;
reginput = string; reginput = string;
regstartp = prog->startp; regstartp = prog->startp;
@ -808,7 +814,7 @@ regtry(regexp *prog, char *string)
static int /* 0 failure, 1 success */ static int /* 0 failure, 1 success */
regmatch(char *prog) regmatch(char *prog)
{ {
register char *scan; /* Current node. */ char *scan; /* Current node. */
char *next; /* Next node. */ char *next; /* Next node. */
scan = prog; scan = prog;
@ -838,8 +844,8 @@ regmatch(char *prog)
reginput++; reginput++;
break; break;
case EXACTLY: { case EXACTLY: {
register int len; int len;
register char *opnd; char *opnd;
opnd = OPERAND(scan); opnd = OPERAND(scan);
/* Inline the first character, for speed. */ /* Inline the first character, for speed. */
@ -874,8 +880,8 @@ regmatch(char *prog)
case OPEN+7: case OPEN+7:
case OPEN+8: case OPEN+8:
case OPEN+9: { case OPEN+9: {
register int no; int no;
register char *save; char *save;
no = OP(scan) - OPEN; no = OP(scan) - OPEN;
save = reginput; save = reginput;
@ -902,8 +908,8 @@ regmatch(char *prog)
case CLOSE+7: case CLOSE+7:
case CLOSE+8: case CLOSE+8:
case CLOSE+9: { case CLOSE+9: {
register int no; int no;
register char *save; char *save;
no = OP(scan) - CLOSE; no = OP(scan) - CLOSE;
save = reginput; save = reginput;
@ -922,7 +928,7 @@ regmatch(char *prog)
} }
break; break;
case BRANCH: { case BRANCH: {
register char *save; char *save;
if (OP(next) != BRANCH) /* No choice. */ if (OP(next) != BRANCH) /* No choice. */
next = OPERAND(scan); /* Avoid recursion. */ next = OPERAND(scan); /* Avoid recursion. */
@ -941,10 +947,10 @@ regmatch(char *prog)
break; break;
case STAR: case STAR:
case PLUS: { case PLUS: {
register char nextch; char nextch;
register int no; int no;
register char *save; char *save;
register int min; int min;
/* /*
* Lookahead to avoid useless match attempts * Lookahead to avoid useless match attempts
@ -994,9 +1000,9 @@ regmatch(char *prog)
static int static int
regrepeat(char *p) regrepeat(char *p)
{ {
register int count = 0; int count = 0;
register char *scan; char *scan;
register char *opnd; char *opnd;
scan = reginput; scan = reginput;
opnd = OPERAND(p); opnd = OPERAND(p);
@ -1037,9 +1043,14 @@ regrepeat(char *p)
- regnext - dig the "next" pointer out of a node - regnext - dig the "next" pointer out of a node
*/ */
static char * static char *
<<<<<<< ca7d34b7ff5f017e3228714bb583266f7cdf946f
regnext(register char *p) regnext(register char *p)
=======
regnext(p)
char *p;
>>>>>>> dtdocbook: remove register keyword
{ {
register int offset; int offset;
if (p == &regdummy) if (p == &regdummy)
return(NULL); return(NULL);
@ -1064,9 +1075,9 @@ STATIC char *regprop();
void void
regdump(regexp *r) regdump(regexp *r)
{ {
register char *s; char *s;
register char op = EXACTLY; /* Arbitrary non-END op. */ char op = EXACTLY; /* Arbitrary non-END op. */
register char *next; char *next;
s = r->program + 1; s = r->program + 1;
@ -1106,7 +1117,7 @@ regdump(regexp *r)
static char * static char *
regprop(char *op) regprop(char *op)
{ {
register char *p; char *p;
static char buf[50]; static char buf[50];
(void) strcpy(buf, ":"); (void) strcpy(buf, ":");
@ -1197,9 +1208,9 @@ regprop(char *op)
static int static int
strcspn(char *s1, char *s2) strcspn(char *s1, char *s2)
{ {
register char *scan1; char *scan1;
register char *scan2; char *scan2;
register int count; int count;
count = 0; count = 0;
for (scan1 = s1; *scan1 != '\0'; scan1++) { for (scan1 = s1; *scan1 != '\0'; scan1++) {

10
cde/programs/dtdocbook/lib/tptregexp/regsub.c
View file

@ -57,11 +57,11 @@
void void
tpt_regsub(regexp *prog, char *source, char *dest) tpt_regsub(regexp *prog, char *source, char *dest)
{ {
register char *src; char *src;
register char *dst; char *dst;
register char c; char c;
register int no; int no;
register int len; int len;
extern char *strncpy(); extern char *strncpy();
if (prog == NULL || source == NULL || dest == NULL) { if (prog == NULL || source == NULL || dest == NULL) {

4
cde/programs/dtdocbook/lib/tptregexp/timer.c
View file

@ -135,7 +135,7 @@ int lineno = 0;
multiple(ncomp, nexec, nsub) multiple(ncomp, nexec, nsub)
int ncomp, nexec, nsub; int ncomp, nexec, nsub;
{ {
register int i; int i;
extern char *strchr(); extern char *strchr();
errreport = 1; errreport = 1;
@ -151,7 +151,7 @@ int ncomp, nexec, nsub;
{ {
regexp *r; regexp *r;
char dbuf[BUFSIZ]; char dbuf[BUFSIZ];
register int i; int i;
errseen = NULL; errseen = NULL;
r = tpt_regcomp(fields.re); r = tpt_regcomp(fields.re);

4
cde/programs/dtdocbook/sgmls/getopt.c
View file

@ -58,8 +58,8 @@ char *opts;
static char switchar = '\0'; static char switchar = '\0';
#endif #endif
static int sp = 1; static int sp = 1;
register int c; int c;
register char *cp; char *cp;
char *message; char *message;
#ifdef SWITCHAR #ifdef SWITCHAR
if (switchar == '\0') { if (switchar == '\0') {

4
cde/programs/dtdocbook/sgmls/pars1.c
View file

@ -923,9 +923,9 @@ int etag()
*/ */
VOID destack() VOID destack()
{ {
register int ecode = 0; /* Error code (0=o.k.). */ int ecode = 0; /* Error code (0=o.k.). */
UNCH *eparm2 = NULL; /* Second parameter of error message. */ UNCH *eparm2 = NULL; /* Second parameter of error message. */
register int minmsgsw; /* 1=message if tag omitted; 0=no message. */ int minmsgsw; /* 1=message if tag omitted; 0=no message. */
/* If element has a content model (i.e., not a keyword) and there /* If element has a content model (i.e., not a keyword) and there
are required tags left, and no CONREF attribute was specified, are required tags left, and no CONREF attribute was specified,

112
cde/programs/dtdocbook/tcl/regexp.c
View file

@ -260,10 +260,10 @@ static int strcspn _ANSI_ARGS_((char *s1, char *s2));
regexp * regexp *
TclRegComp(char *exp) TclRegComp(char *exp)
{ {
register regexp *r; regexp *r;
register char *scan; char *scan;
register char *longest; char *longest;
register int len; int len;
int flags; int flags;
struct regcomp_state state; struct regcomp_state state;
struct regcomp_state *rcstate= &state; struct regcomp_state *rcstate= &state;
@ -348,10 +348,10 @@ TclRegComp(char *exp)
static char * static char *
reg(int paren /* Parenthesized? */, int *flagp, struct regcomp_state *rcstate) reg(int paren /* Parenthesized? */, int *flagp, struct regcomp_state *rcstate)
{ {
register char *ret; char *ret;
register char *br; char *br;
register char *ender; char *ender;
register int parno = 0; int parno = 0;
int flags; int flags;
*flagp = HASWIDTH; /* Tentatively. */ *flagp = HASWIDTH; /* Tentatively. */
@ -418,9 +418,9 @@ reg(int paren /* Parenthesized? */, int *flagp, struct regcomp_state *rcstate)
static char * static char *
regbranch(int *flagp, struct regcomp_state *rcstate) regbranch(int *flagp, struct regcomp_state *rcstate)
{ {
register char *ret; char *ret;
register char *chain; char *chain;
register char *latest; char *latest;
int flags; int flags;
*flagp = WORST; /* Tentatively. */ *flagp = WORST; /* Tentatively. */
@ -457,9 +457,9 @@ regbranch(int *flagp, struct regcomp_state *rcstate)
static char * static char *
regpiece(int *flagp, struct regcomp_state *rcstate) regpiece(int *flagp, struct regcomp_state *rcstate)
{ {
register char *ret; char *ret;
register char op; char op;
register char *next; char *next;
int flags; int flags;
ret = regatom(&flags,rcstate); ret = regatom(&flags,rcstate);
@ -520,7 +520,7 @@ regpiece(int *flagp, struct regcomp_state *rcstate)
static char * static char *
regatom(int *flagp, struct regcomp_state *rcstate) regatom(int *flagp, struct regcomp_state *rcstate)
{ {
register char *ret; char *ret;
int flags; int flags;
*flagp = WORST; /* Tentatively. */ *flagp = WORST; /* Tentatively. */
@ -537,8 +537,8 @@ regatom(int *flagp, struct regcomp_state *rcstate)
*flagp |= HASWIDTH|SIMPLE; *flagp |= HASWIDTH|SIMPLE;
break; break;
case '[': { case '[': {
register int clss; int clss;
register int classend; int classend;
if (*rcstate->regparse == '^') { /* Complement of range. */ if (*rcstate->regparse == '^') { /* Complement of range. */
ret = regnode(ANYBUT,rcstate); ret = regnode(ANYBUT,rcstate);
@ -598,8 +598,8 @@ regatom(int *flagp, struct regcomp_state *rcstate)
*flagp |= HASWIDTH|SIMPLE; *flagp |= HASWIDTH|SIMPLE;
break; break;
default: { default: {
register int len; int len;
register char ender; char ender;
rcstate->regparse--; rcstate->regparse--;
len = strcspn(rcstate->regparse, META); len = strcspn(rcstate->regparse, META);
@ -630,8 +630,8 @@ regatom(int *flagp, struct regcomp_state *rcstate)
static char * /* Location. */ static char * /* Location. */
regnode(int op, struct regcomp_state *rcstate) regnode(int op, struct regcomp_state *rcstate)
{ {
register char *ret; char *ret;
register char *ptr; char *ptr;
ret = rcstate->regcode; ret = rcstate->regcode;
if (ret == &regdummy) { if (ret == &regdummy) {
@ -668,9 +668,9 @@ regc(int b, struct regcomp_state *rcstate)
static void static void
reginsert(int op, char *opnd, struct regcomp_state *rcstate) reginsert(int op, char *opnd, struct regcomp_state *rcstate)
{ {
register char *src; char *src;
register char *dst; char *dst;
register char *place; char *place;
if (rcstate->regcode == &regdummy) { if (rcstate->regcode == &regdummy) {
rcstate->regsize += 3; rcstate->regsize += 3;
@ -695,9 +695,9 @@ reginsert(int op, char *opnd, struct regcomp_state *rcstate)
static void static void
regtail(char *p, char *val) regtail(char *p, char *val)
{ {
register char *scan; char *scan;
register char *temp; char *temp;
register int offset; int offset;
if (p == &regdummy) if (p == &regdummy)
return; return;
@ -765,9 +765,9 @@ static char *regprop _ANSI_ARGS_((char *op));
- TclRegExec - match a regexp against a string - TclRegExec - match a regexp against a string
*/ */
int int
TclRegExec(register regexp *prog, register char *string, char *start) TclRegExec(regexp *prog, char *string, char *start)
{ {
register char *s; char *s;
struct regexec_state state; struct regexec_state state;
struct regexec_state *restate= &state; struct regexec_state *restate= &state;
@ -829,9 +829,9 @@ TclRegExec(register regexp *prog, register char *string, char *start)
static int /* 0 failure, 1 success */ static int /* 0 failure, 1 success */
regtry(regexp *prog, char *string, struct regexec_state *restate) regtry(regexp *prog, char *string, struct regexec_state *restate)
{ {
register int i; int i;
register char **sp; char **sp;
register char **ep; char **ep;
restate->reginput = string; restate->reginput = string;
restate->regstartp = prog->startp; restate->regstartp = prog->startp;
@ -864,7 +864,7 @@ regtry(regexp *prog, char *string, struct regexec_state *restate)
static int /* 0 failure, 1 success */ static int /* 0 failure, 1 success */
regmatch(char *prog, struct regexec_state *restate) regmatch(char *prog, struct regexec_state *restate)
{ {
register char *scan; /* Current node. */ char *scan; /* Current node. */
char *next; /* Next node. */ char *next; /* Next node. */
scan = prog; scan = prog;
@ -897,8 +897,8 @@ regmatch(char *prog, struct regexec_state *restate)
restate->reginput++; restate->reginput++;
break; break;
case EXACTLY: { case EXACTLY: {
register int len; int len;
register char *opnd; char *opnd;
opnd = OPERAND(scan); opnd = OPERAND(scan);
/* Inline the first character, for speed. */ /* Inline the first character, for speed. */
@ -940,8 +940,8 @@ regmatch(char *prog, struct regexec_state *restate)
case OPEN+7: case OPEN+7:
case OPEN+8: case OPEN+8:
case OPEN+9: { case OPEN+9: {
register int no; int no;
register char *save; char *save;
doOpen: doOpen:
no = OP(scan) - OPEN; no = OP(scan) - OPEN;
@ -969,8 +969,8 @@ regmatch(char *prog, struct regexec_state *restate)
case CLOSE+7: case CLOSE+7:
case CLOSE+8: case CLOSE+8:
case CLOSE+9: { case CLOSE+9: {
register int no; int no;
register char *save; char *save;
doClose: doClose:
no = OP(scan) - CLOSE; no = OP(scan) - CLOSE;
@ -990,7 +990,7 @@ regmatch(char *prog, struct regexec_state *restate)
} }
} }
case BRANCH: { case BRANCH: {
register char *save; char *save;
if (OP(next) != BRANCH) { /* No choice. */ if (OP(next) != BRANCH) { /* No choice. */
next = OPERAND(scan); /* Avoid recursion. */ next = OPERAND(scan); /* Avoid recursion. */
@ -1008,10 +1008,10 @@ regmatch(char *prog, struct regexec_state *restate)
} }
case STAR: case STAR:
case PLUS: { case PLUS: {
register char nextch; char nextch;
register int no; int no;
register char *save; char *save;
register int min; int min;
/* /*
* Lookahead to avoid useless match attempts * Lookahead to avoid useless match attempts
@ -1063,9 +1063,9 @@ regmatch(char *prog, struct regexec_state *restate)
static int static int
regrepeat(char *p, struct regexec_state *restate) regrepeat(char *p, struct regexec_state *restate)
{ {
register int count = 0; int count = 0;
register char *scan; char *scan;
register char *opnd; char *opnd;
scan = restate->reginput; scan = restate->reginput;
opnd = OPERAND(p); opnd = OPERAND(p);
@ -1106,9 +1106,9 @@ regrepeat(char *p, struct regexec_state *restate)
- regnext - dig the "next" pointer out of a node - regnext - dig the "next" pointer out of a node
*/ */
static char * static char *
regnext(register char *p) regnext(char *p)
{ {
register int offset; int offset;
if (p == &regdummy) if (p == &regdummy)
return(NULL); return(NULL);
@ -1133,9 +1133,9 @@ static char *regprop();
void void
regdump(regexp *r) regdump(regexp *r)
{ {
register char *s; char *s;
register char op = EXACTLY; /* Arbitrary non-END op. */ char op = EXACTLY; /* Arbitrary non-END op. */
register char *next; char *next;
s = r->program + 1; s = r->program + 1;
@ -1175,7 +1175,7 @@ regdump(regexp *r)
static char * static char *
regprop(char *op) regprop(char *op)
{ {
register char *p; char *p;
static char buf[50]; static char buf[50];
(void) strcpy(buf, ":"); (void) strcpy(buf, ":");
@ -1275,9 +1275,9 @@ regprop(char *op)
static int static int
strcspn(char *s1, char *s2) strcspn(char *s1, char *s2)
{ {
register char *scan1; char *scan1;
register char *scan2; char *scan2;
register int count; int count;
count = 0; count = 0;
for (scan1 = s1; *scan1 != '\0'; scan1++) { for (scan1 = s1; *scan1 != '\0'; scan1++) {

30
cde/programs/dtdocbook/tcl/tclBasic.c
View file

@ -190,9 +190,9 @@ static CmdInfo builtInCmds[] = {
Tcl_Interp * Tcl_Interp *
Tcl_CreateInterp(void) Tcl_CreateInterp(void)
{ {
register Interp *iPtr; Interp *iPtr;
register Command *cmdPtr; Command *cmdPtr;
register CmdInfo *cmdInfoPtr; CmdInfo *cmdInfoPtr;
Tcl_Channel chan; Tcl_Channel chan;
int i; int i;
@ -1172,7 +1172,7 @@ Tcl_Eval(
int argc; int argc;
int argSize = NUM_ARGS; int argSize = NUM_ARGS;
register char *src; /* Points to current character char *src; /* Points to current character
* in cmd. */ * in cmd. */
char termChar; /* Return when this character is found char termChar; /* Return when this character is found
* (either ']' or '\0'). Zero means * (either ']' or '\0'). Zero means
@ -1180,7 +1180,7 @@ Tcl_Eval(
int flags; /* Interp->evalFlags value when the int flags; /* Interp->evalFlags value when the
* procedure was called. */ * procedure was called. */
int result; /* Return value. */ int result; /* Return value. */
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
Command *cmdPtr; Command *cmdPtr;
char *termPtr; /* Contains character just after the char *termPtr; /* Contains character just after the
@ -1193,7 +1193,7 @@ Tcl_Eval(
* all of offending command is included * all of offending command is included
* in errorInfo. "" means that the * in errorInfo. "" means that the
* command is all there. */ * command is all there. */
register Trace *tracePtr; Trace *tracePtr;
int oldCount = iPtr->cmdCount; /* Used to tell whether any commands int oldCount = iPtr->cmdCount; /* Used to tell whether any commands
* at all were executed. */ * at all were executed. */
@ -1271,7 +1271,7 @@ Tcl_Eval(
*/ */
while (1) { while (1) {
register char c = *src; char c = *src;
if ((CHAR_TYPE(c) != TCL_SPACE) && (c != ';') && (c != '\n')) { if ((CHAR_TYPE(c) != TCL_SPACE) && (c != ';') && (c != '\n')) {
break; break;
@ -1500,7 +1500,7 @@ Tcl_Eval(
if ((result == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) { if ((result == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) {
int numChars; int numChars;
register char *p; char *p;
/* /*
* Compute the line number where the error occurred. * Compute the line number where the error occurred.
@ -1599,8 +1599,8 @@ Tcl_CreateTrace(
ClientData clientData /* Arbitrary one-word value to pass to proc. */ ClientData clientData /* Arbitrary one-word value to pass to proc. */
) )
{ {
register Trace *tracePtr; Trace *tracePtr;
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
tracePtr = (Trace *) ckalloc(sizeof(Trace)); tracePtr = (Trace *) ckalloc(sizeof(Trace));
tracePtr->level = level; tracePtr->level = level;
@ -1636,9 +1636,9 @@ Tcl_DeleteTrace(
* Tcl_CreateTrace). */ * Tcl_CreateTrace). */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
register Trace *tracePtr = (Trace *) trace; Trace *tracePtr = (Trace *) trace;
register Trace *tracePtr2; Trace *tracePtr2;
if (iPtr->tracePtr == tracePtr) { if (iPtr->tracePtr == tracePtr) {
iPtr->tracePtr = tracePtr->nextPtr; iPtr->tracePtr = tracePtr->nextPtr;
@ -1681,7 +1681,7 @@ Tcl_AddErrorInfo(
char *message /* Message to record. */ char *message /* Message to record. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
/* /*
* If an error is already being logged, then the new errorInfo * If an error is already being logged, then the new errorInfo
@ -1788,7 +1788,7 @@ Tcl_GlobalEval(
char *command /* Command to evaluate. */ char *command /* Command to evaluate. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int result; int result;
CallFrame *savedVarFramePtr; CallFrame *savedVarFramePtr;

8
cde/programs/dtdocbook/tcl/tclCmdAH.c
View file

@ -147,7 +147,7 @@ Tcl_CaseCmd(
for (i = 0; i < caseArgc; i += 2) { for (i = 0; i < caseArgc; i += 2) {
int patArgc, j; int patArgc, j;
char **patArgv; char **patArgv;
register char *p; char *p;
if (i == (caseArgc-1)) { if (i == (caseArgc-1)) {
interp->result = "extra case pattern with no body"; interp->result = "extra case pattern with no body";
@ -1383,7 +1383,7 @@ Tcl_FormatCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register char *format; /* Used to read characters from the format char *format; /* Used to read characters from the format
* string. */ * string. */
char newFormat[40]; /* A new format specifier is generated here. */ char newFormat[40]; /* A new format specifier is generated here. */
int width; /* Field width from field specifier, or 0 if int width; /* Field width from field specifier, or 0 if
@ -1445,7 +1445,7 @@ Tcl_FormatCmd(
} }
argIndex = 2; argIndex = 2;
for (format = argv[1]; *format != 0; ) { for (format = argv[1]; *format != 0; ) {
register char *newPtr = newFormat; char *newPtr = newFormat;
width = precision = noPercent = useShort = 0; width = precision = noPercent = useShort = 0;
whichValue = PTR_VALUE; whichValue = PTR_VALUE;
@ -1455,7 +1455,7 @@ Tcl_FormatCmd(
*/ */
if (*format != '%') { if (*format != '%') {
register char *p; char *p;
ptrValue = p = format; ptrValue = p = format;
while ((*format != '%') && (*format != 0)) { while ((*format != '%') && (*format != 0)) {

2
cde/programs/dtdocbook/tcl/tclCmdIL.c
View file

@ -269,7 +269,7 @@ Tcl_InfoCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
size_t length; size_t length;
int c; int c;
Arg *argPtr; Arg *argPtr;

22
cde/programs/dtdocbook/tcl/tclCmdMZ.c
View file

@ -179,7 +179,7 @@ Tcl_RegexpCmd(
*/ */
if (noCase) { if (noCase) {
register char *p; char *p;
Tcl_DStringInit(&patternDString); Tcl_DStringInit(&patternDString);
Tcl_DStringAppend(&patternDString, argPtr[0], -1); Tcl_DStringAppend(&patternDString, argPtr[0], -1);
@ -293,7 +293,7 @@ Tcl_RegsubCmd(
char *string, *pattern, *p, *firstChar, *newValue, **argPtr; char *string, *pattern, *p, *firstChar, *newValue, **argPtr;
int match, flags, code, numMatches; int match, flags, code, numMatches;
char *start, *end, *subStart, *subEnd; char *start, *end, *subStart, *subEnd;
register char *src, c; char *src, c;
Tcl_DString stringDString, patternDString; Tcl_DString stringDString, patternDString;
if (argc < 5) { if (argc < 5) {
@ -539,7 +539,7 @@ Tcl_RenameCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Command *cmdPtr; Command *cmdPtr;
Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
int new; int new;
@ -744,7 +744,7 @@ Tcl_ScanCmd(
} Field; } Field;
Field fields[MAX_FIELDS]; /* Info about all the fields in the Field fields[MAX_FIELDS]; /* Info about all the fields in the
* format string. */ * format string. */
register Field *curField; Field *curField;
int numFields = 0; /* Number of fields actually int numFields = 0; /* Number of fields actually
* specified. */ * specified. */
int suppress; /* Current field is assignment- int suppress; /* Current field is assignment-
@ -755,7 +755,7 @@ Tcl_ScanCmd(
* Malloced; NULL means not allocated * Malloced; NULL means not allocated
* yet. */ * yet. */
int numScanned; /* sscanf's result. */ int numScanned; /* sscanf's result. */
register char *fmt; char *fmt;
int i, widthSpecified, length, code; int i, widthSpecified, length, code;
/* /*
@ -766,7 +766,7 @@ Tcl_ScanCmd(
# define STATIC_SIZE 5 # define STATIC_SIZE 5
char copyBuf[STATIC_SIZE], *fmtCopy; char copyBuf[STATIC_SIZE], *fmtCopy;
register char *dst; char *dst;
if (argc < 3) { if (argc < 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@ -1066,7 +1066,7 @@ Tcl_SplitCmd(
) )
{ {
char *splitChars; char *splitChars;
register char *p, *p2; char *p, *p2;
char *elementStart; char *elementStart;
if (argc == 2) { if (argc == 2) {
@ -1143,7 +1143,7 @@ Tcl_StringCmd(
) )
{ {
size_t length; size_t length;
register char *p; char *p;
int match, c, first; int match, c, first;
int left = 0, right = 0; int left = 0, right = 0;
@ -1282,7 +1282,7 @@ Tcl_StringCmd(
return TCL_OK; return TCL_OK;
} else if ((c == 't') && (strncmp(argv[1], "tolower", length) == 0) } else if ((c == 't') && (strncmp(argv[1], "tolower", length) == 0)
&& (length >= 3)) { && (length >= 3)) {
register char *p; char *p;
if (argc != 3) { if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@ -1298,7 +1298,7 @@ Tcl_StringCmd(
return TCL_OK; return TCL_OK;
} else if ((c == 't') && (strncmp(argv[1], "toupper", length) == 0) } else if ((c == 't') && (strncmp(argv[1], "toupper", length) == 0)
&& (length >= 3)) { && (length >= 3)) {
register char *p; char *p;
if (argc != 3) { if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@ -1315,7 +1315,7 @@ Tcl_StringCmd(
} else if ((c == 't') && (strncmp(argv[1], "trim", length) == 0) } else if ((c == 't') && (strncmp(argv[1], "trim", length) == 0)
&& (length == 4)) { && (length == 4)) {
char *trimChars; char *trimChars;
register char *p, *checkPtr; char *p, *checkPtr;
left = right = 1; left = right = 1;

32
cde/programs/dtdocbook/tcl/tclDate.c
View file

@ -535,9 +535,9 @@ RelativeMonth(time_t Start, time_t RelMonth, time_t *TimePtr)
static int static int
LookupWord(char *buff) LookupWord(char *buff)
{ {
register char *p; char *p;
register char *q; char *q;
register TABLE *tp; TABLE *tp;
int i; int i;
int abbrev; int abbrev;
@ -654,8 +654,8 @@ LookupWord(char *buff)
static int static int
TclDatelex(void) TclDatelex(void)
{ {
register char c; char c;
register char *p; char *p;
char buff[20]; char buff[20];
int Count; int Count;
int sign; int sign;
@ -1039,7 +1039,7 @@ int TclDateparse(void)
int TclDateparse() int TclDateparse()
#endif #endif
{ {
register YYSTYPE *TclDatepvt; /* top of value stack for $vars */ YYSTYPE *TclDatepvt; /* top of value stack for $vars */
#if defined(__cplusplus) || defined(lint) #if defined(__cplusplus) || defined(lint)
/* /*
@ -1078,10 +1078,10 @@ int TclDateparse()
#endif #endif
{ {
register YYSTYPE *TclDate_pv; /* top of value stack */ YYSTYPE *TclDate_pv; /* top of value stack */
register int *TclDate_ps; /* top of state stack */ int *TclDate_ps; /* top of state stack */
register int TclDate_state; /* current state */ int TclDate_state; /* current state */
register int TclDate_n; /* internal state number info */ int TclDate_n; /* internal state number info */
goto TclDatestack; /* moved from 6 lines above to here to please C++ */ goto TclDatestack; /* moved from 6 lines above to here to please C++ */
/* /*
@ -1118,7 +1118,7 @@ int TclDateparse()
*/ */
if ( TclDatedebug ) if ( TclDatedebug )
{ {
register int TclDate_i; int TclDate_i;
printf( "State %d, token ", TclDate_state ); printf( "State %d, token ", TclDate_state );
if ( TclDatechar == 0 ) if ( TclDatechar == 0 )
@ -1202,7 +1202,7 @@ int TclDateparse()
#if YYDEBUG #if YYDEBUG
if ( TclDatedebug && TclDatetmp ) if ( TclDatedebug && TclDatetmp )
{ {
register int TclDate_i; int TclDate_i;
printf( "Received token " ); printf( "Received token " );
if ( TclDatechar == 0 ) if ( TclDatechar == 0 )
@ -1244,7 +1244,7 @@ int TclDateparse()
#if YYDEBUG #if YYDEBUG
if ( TclDatedebug && TclDatetmp ) if ( TclDatedebug && TclDatetmp )
{ {
register int TclDate_i; int TclDate_i;
printf( "Received token " ); printf( "Received token " );
if ( TclDatechar == 0 ) if ( TclDatechar == 0 )
@ -1271,7 +1271,7 @@ int TclDateparse()
** look through exception table ** look through exception table
*/ */
{ {
register int *TclDatexi = TclDateexca; int *TclDatexi = TclDateexca;
while ( ( *TclDatexi != -1 ) || while ( ( *TclDatexi != -1 ) ||
( TclDatexi[1] != TclDate_state ) ) ( TclDatexi[1] != TclDate_state ) )
@ -1356,7 +1356,7 @@ int TclDateparse()
*/ */
if ( TclDatedebug ) if ( TclDatedebug )
{ {
register int TclDate_i; int TclDate_i;
printf( "Error recovery discards " ); printf( "Error recovery discards " );
if ( TclDatechar == 0 ) if ( TclDatechar == 0 )
@ -1416,7 +1416,7 @@ int TclDateparse()
*/ */
{ {
/* length of production doubled with extra bit */ /* length of production doubled with extra bit */
register int TclDate_len = TclDater2[ TclDate_n ]; int TclDate_len = TclDater2[ TclDate_n ];
if ( !( TclDate_len & 01 ) ) if ( !( TclDate_len & 01 ) )
{ {

4
cde/programs/dtdocbook/tcl/tclEnv.c
View file

@ -196,7 +196,7 @@ FindVariable(
) )
{ {
int i; int i;
register CONST char *p1, *p2; CONST char *p1, *p2;
for (i = 0, p1 = environ[i]; p1 != NULL; i++, p1 = environ[i]) { for (i = 0, p1 = environ[i]; p1 != NULL; i++, p1 = environ[i]) {
for (p2 = name; *p2 == *p1; p1++, p2++) { for (p2 = name; *p2 == *p1; p1++, p2++) {
@ -518,7 +518,7 @@ EnvTraceProc(
*/ */
if (name2 == NULL) { if (name2 == NULL) {
register EnvInterp *eiPtr, *prevPtr; EnvInterp *eiPtr, *prevPtr;
if ((flags & (TCL_TRACE_UNSETS|TCL_TRACE_DESTROYED)) if ((flags & (TCL_TRACE_UNSETS|TCL_TRACE_DESTROYED))
!= (TCL_TRACE_UNSETS|TCL_TRACE_DESTROYED)) { != (TCL_TRACE_UNSETS|TCL_TRACE_DESTROYED)) {

10
cde/programs/dtdocbook/tcl/tclEvent.c
View file

@ -340,7 +340,7 @@ Tcl_CreateFileHandler(
ClientData clientData /* Arbitrary data to pass to proc. */ ClientData clientData /* Arbitrary data to pass to proc. */
) )
{ {
register FileHandler *filePtr; FileHandler *filePtr;
if (!fileEventSourceCreated) { if (!fileEventSourceCreated) {
fileEventSourceCreated = 1; fileEventSourceCreated = 1;
@ -647,7 +647,7 @@ Tcl_CreateTimerHandler(
ClientData clientData /* Arbitrary data to pass to proc. */ ClientData clientData /* Arbitrary data to pass to proc. */
) )
{ {
register TimerHandler *timerHandlerPtr, *tPtr2, *prevPtr; TimerHandler *timerHandlerPtr, *tPtr2, *prevPtr;
static int id = 0; static int id = 0;
if (!timerEventSourceCreated) { if (!timerEventSourceCreated) {
@ -727,7 +727,7 @@ Tcl_DeleteTimerHandler(
* Tcl_DeleteTimerHandler. */ * Tcl_DeleteTimerHandler. */
) )
{ {
register TimerHandler *timerHandlerPtr, *prevPtr; TimerHandler *timerHandlerPtr, *prevPtr;
for (timerHandlerPtr = firstTimerHandlerPtr, prevPtr = NULL; for (timerHandlerPtr = firstTimerHandlerPtr, prevPtr = NULL;
timerHandlerPtr != NULL; prevPtr = timerHandlerPtr, timerHandlerPtr != NULL; prevPtr = timerHandlerPtr,
@ -1102,7 +1102,7 @@ Tcl_DoWhenIdle(
ClientData clientData /* Arbitrary value to pass to proc. */ ClientData clientData /* Arbitrary value to pass to proc. */
) )
{ {
register IdleHandler *idlePtr; IdleHandler *idlePtr;
idlePtr = (IdleHandler *) ckalloc(sizeof(IdleHandler)); idlePtr = (IdleHandler *) ckalloc(sizeof(IdleHandler));
idlePtr->proc = proc; idlePtr->proc = proc;
@ -1141,7 +1141,7 @@ Tcl_CancelIdleCall(
ClientData clientData /* Arbitrary value to pass to proc. */ ClientData clientData /* Arbitrary value to pass to proc. */
) )
{ {
register IdleHandler *idlePtr, *prevPtr; IdleHandler *idlePtr, *prevPtr;
IdleHandler *nextPtr; IdleHandler *nextPtr;
for (prevPtr = NULL, idlePtr = idleList; idlePtr != NULL; for (prevPtr = NULL, idlePtr = idleList; idlePtr != NULL;

14
cde/programs/dtdocbook/tcl/tclExpr.c
View file

@ -458,14 +458,14 @@ static int
ExprLex( ExprLex(
Tcl_Interp *interp, /* Interpreter to use for error Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */ * reporting. */
register ExprInfo *infoPtr, /* Describes the state of the parse. */ ExprInfo *infoPtr, /* Describes the state of the parse. */
register Value *valuePtr /* Where to store value, if that is Value *valuePtr /* Where to store value, if that is
* what's parsed from string. Caller * what's parsed from string. Caller
* must have initialized pv field * must have initialized pv field
* correctly. */ * correctly. */
) )
{ {
register char *p; char *p;
char *var, *term; char *var, *term;
int result; int result;
@ -736,7 +736,7 @@ static int
ExprGetValue( ExprGetValue(
Tcl_Interp *interp, /* Interpreter to use for error Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */ * reporting. */
register ExprInfo *infoPtr, /* Describes the state of the parse ExprInfo *infoPtr, /* Describes the state of the parse
* just before the value (i.e. ExprLex * just before the value (i.e. ExprLex
* will be called to get first token * will be called to get first token
* of value). */ * of value). */
@ -1345,7 +1345,7 @@ static void
ExprMakeString( ExprMakeString(
Tcl_Interp *interp, /* Interpreter to use for precision Tcl_Interp *interp, /* Interpreter to use for precision
* information. */ * information. */
register Value *valuePtr /* Value to be converted. */ Value *valuePtr /* Value to be converted. */
) )
{ {
int shortfall; int shortfall;
@ -1678,11 +1678,11 @@ static int
ExprMathFunc( ExprMathFunc(
Tcl_Interp *interp, /* Interpreter to use for error Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */ * reporting. */
register ExprInfo *infoPtr, /* Describes the state of the parse. ExprInfo *infoPtr, /* Describes the state of the parse.
* infoPtr->expr must point to the * infoPtr->expr must point to the
* first character of the function's * first character of the function's
* name. */ * name. */
register Value *valuePtr /* Where to store value, if that is Value *valuePtr /* Where to store value, if that is
* what's parsed from string. Caller * what's parsed from string. Caller
* must have initialized pv field * must have initialized pv field
* correctly. */ * correctly. */

4
cde/programs/dtdocbook/tcl/tclFileName.c
View file

@ -947,7 +947,7 @@ Tcl_TranslateFileName(
* not even be initialized. */ * not even be initialized. */
) )
{ {
register char *p; char *p;
/* /*
* Handle tilde substitutions, if needed. * Handle tilde substitutions, if needed.
@ -1301,7 +1301,7 @@ SkipToChar(
) )
{ {
int quoted, level; int quoted, level;
register char *p; char *p;
quoted = 0; quoted = 0;
level = 0; level = 0;

52
cde/programs/dtdocbook/tcl/tclHash.c
View file

@ -100,7 +100,7 @@ static Tcl_HashEntry * OneWordCreate _ANSI_ARGS_((Tcl_HashTable *tablePtr,
void void
Tcl_InitHashTable( Tcl_InitHashTable(
register Tcl_HashTable *tablePtr, /* Pointer to table record, which Tcl_HashTable *tablePtr, /* Pointer to table record, which
* is supplied by the caller. */ * is supplied by the caller. */
int keyType /* Type of keys to use in table: int keyType /* Type of keys to use in table:
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS, * TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
@ -152,7 +152,7 @@ Tcl_DeleteHashEntry(
Tcl_HashEntry *entryPtr Tcl_HashEntry *entryPtr
) )
{ {
register Tcl_HashEntry *prevPtr; Tcl_HashEntry *prevPtr;
if (*entryPtr->bucketPtr == entryPtr) { if (*entryPtr->bucketPtr == entryPtr) {
*entryPtr->bucketPtr = entryPtr->nextPtr; *entryPtr->bucketPtr = entryPtr->nextPtr;
@ -190,10 +190,10 @@ Tcl_DeleteHashEntry(
void void
Tcl_DeleteHashTable( Tcl_DeleteHashTable(
register Tcl_HashTable *tablePtr /* Table to delete. */ Tcl_HashTable *tablePtr /* Table to delete. */
) )
{ {
register Tcl_HashEntry *hPtr, *nextPtr; Tcl_HashEntry *hPtr, *nextPtr;
int i; int i;
/* /*
@ -282,7 +282,7 @@ Tcl_FirstHashEntry(
Tcl_HashEntry * Tcl_HashEntry *
Tcl_NextHashEntry( Tcl_NextHashEntry(
register Tcl_HashSearch *searchPtr /* Place to store information about Tcl_HashSearch *searchPtr /* Place to store information about
* progress through the table. Must * progress through the table. Must
* have been initialized by calling * have been initialized by calling
* Tcl_FirstHashEntry. */ * Tcl_FirstHashEntry. */
@ -330,7 +330,7 @@ Tcl_HashStats(
#define NUM_COUNTERS 10 #define NUM_COUNTERS 10
int count[NUM_COUNTERS], overflow, i, j; int count[NUM_COUNTERS], overflow, i, j;
double average, tmp; double average, tmp;
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
char *result, *p; char *result, *p;
/* /*
@ -396,11 +396,11 @@ Tcl_HashStats(
static unsigned int static unsigned int
HashString( HashString(
register char *string /* String from which to compute hash value. */ char *string /* String from which to compute hash value. */
) )
{ {
register unsigned int result; unsigned int result;
register int c; int c;
/* /*
* I tried a zillion different hash functions and asked many other * I tried a zillion different hash functions and asked many other
@ -454,8 +454,8 @@ StringFind(
char *key /* Key to use to find matching entry. */ char *key /* Key to use to find matching entry. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
register char *p1, *p2; char *p1, *p2;
int index; int index;
index = HashString(key) & tablePtr->mask; index = HashString(key) & tablePtr->mask;
@ -508,8 +508,8 @@ StringCreate(
* entry was created. */ * entry was created. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
register char *p1, *p2; char *p1, *p2;
int index; int index;
index = HashString(key) & tablePtr->mask; index = HashString(key) & tablePtr->mask;
@ -578,10 +578,10 @@ StringCreate(
static Tcl_HashEntry * static Tcl_HashEntry *
OneWordFind( OneWordFind(
Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
register char *key /* Key to use to find matching entry. */ char *key /* Key to use to find matching entry. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
int index; int index;
index = RANDOM_INDEX(tablePtr, key); index = RANDOM_INDEX(tablePtr, key);
@ -623,13 +623,13 @@ OneWordFind(
static Tcl_HashEntry * static Tcl_HashEntry *
OneWordCreate( OneWordCreate(
Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
register char *key, /* Key to use to find or create matching char *key, /* Key to use to find or create matching
* entry. */ * entry. */
int *newPtr /* Store info here telling whether a new int *newPtr /* Store info here telling whether a new
* entry was created. */ * entry was created. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
int index; int index;
index = RANDOM_INDEX(tablePtr, key); index = RANDOM_INDEX(tablePtr, key);
@ -695,9 +695,9 @@ ArrayFind(
char *key /* Key to use to find matching entry. */ char *key /* Key to use to find matching entry. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key; int *arrayPtr = (int *) key;
register int *iPtr1, *iPtr2; int *iPtr1, *iPtr2;
int index, count; int index, count;
for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr; for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr;
@ -749,15 +749,15 @@ ArrayFind(
static Tcl_HashEntry * static Tcl_HashEntry *
ArrayCreate( ArrayCreate(
Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
register char *key, /* Key to use to find or create matching char *key, /* Key to use to find or create matching
* entry. */ * entry. */
int *newPtr /* Store info here telling whether a new int *newPtr /* Store info here telling whether a new
* entry was created. */ * entry was created. */
) )
{ {
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key; int *arrayPtr = (int *) key;
register int *iPtr1, *iPtr2; int *iPtr1, *iPtr2;
int index, count; int index, count;
for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr; for (index = 0, count = tablePtr->keyType, iPtr1 = arrayPtr;
@ -896,13 +896,13 @@ BogusCreate(
static void static void
RebuildTable( RebuildTable(
register Tcl_HashTable *tablePtr /* Table to enlarge. */ Tcl_HashTable *tablePtr /* Table to enlarge. */
) )
{ {
int oldSize, count, index; int oldSize, count, index;
Tcl_HashEntry **oldBuckets; Tcl_HashEntry **oldBuckets;
register Tcl_HashEntry **oldChainPtr, **newChainPtr; Tcl_HashEntry **oldChainPtr, **newChainPtr;
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
oldSize = tablePtr->numBuckets; oldSize = tablePtr->numBuckets;
oldBuckets = tablePtr->buckets; oldBuckets = tablePtr->buckets;
@ -935,7 +935,7 @@ RebuildTable(
} else if (tablePtr->keyType == TCL_ONE_WORD_KEYS) { } else if (tablePtr->keyType == TCL_ONE_WORD_KEYS) {
index = RANDOM_INDEX(tablePtr, hPtr->key.oneWordValue); index = RANDOM_INDEX(tablePtr, hPtr->key.oneWordValue);
} else { } else {
register int *iPtr; int *iPtr;
int count; int count;
for (index = 0, count = tablePtr->keyType, for (index = 0, count = tablePtr->keyType,

40
cde/programs/dtdocbook/tcl/tclHistory.c
View file

@ -139,7 +139,7 @@ static int SubsAndEval _ANSI_ARGS_((Interp *iPtr, char *cmd,
static void static void
InitHistory( InitHistory(
register Interp *iPtr /* Interpreter to initialize. */ Interp *iPtr /* Interpreter to initialize. */
) )
{ {
int i; int i;
@ -193,8 +193,8 @@ Tcl_RecordAndEval(
* instead of Tcl_Eval. */ * instead of Tcl_Eval. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr; HistoryEvent *eventPtr;
int length, result; int length, result;
if (iPtr->numEvents == 0) { if (iPtr->numEvents == 0) {
@ -282,8 +282,8 @@ Tcl_HistoryCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr; HistoryEvent *eventPtr;
size_t length; size_t length;
int c; int c;
@ -591,11 +591,11 @@ MakeSpace(
static void static void
InsertRev( InsertRev(
Interp *iPtr, /* Interpreter to use. */ Interp *iPtr, /* Interpreter to use. */
register HistoryRev *revPtr /* Revision to add to iPtr's list. */ HistoryRev *revPtr /* Revision to add to iPtr's list. */
) )
{ {
register HistoryRev *curPtr; HistoryRev *curPtr;
register HistoryRev *prevPtr; HistoryRev *prevPtr;
for (curPtr = iPtr->revPtr, prevPtr = NULL; curPtr != NULL; for (curPtr = iPtr->revPtr, prevPtr = NULL; curPtr != NULL;
prevPtr = curPtr, curPtr = curPtr->nextPtr) { prevPtr = curPtr, curPtr = curPtr->nextPtr) {
@ -659,12 +659,12 @@ InsertRev(
static void static void
RevCommand( RevCommand(
register Interp *iPtr, /* Interpreter in which to perform the Interp *iPtr, /* Interpreter in which to perform the
* substitution. */ * substitution. */
char *string /* String to substitute. */ char *string /* String to substitute. */
) )
{ {
register HistoryRev *revPtr; HistoryRev *revPtr;
if ((iPtr->evalFirst == NULL) || (iPtr->revDisables > 0)) { if ((iPtr->evalFirst == NULL) || (iPtr->revDisables > 0)) {
return; return;
@ -698,12 +698,12 @@ RevCommand(
static void static void
RevResult( RevResult(
register Interp *iPtr, /* Interpreter in which to perform the Interp *iPtr, /* Interpreter in which to perform the
* substitution. */ * substitution. */
char *string /* String to substitute. */ char *string /* String to substitute. */
) )
{ {
register HistoryRev *revPtr; HistoryRev *revPtr;
char *evalFirst, *evalLast; char *evalFirst, *evalLast;
char *argv[2]; char *argv[2];
@ -765,12 +765,12 @@ RevResult(
static void static void
DoRevs( DoRevs(
register Interp *iPtr /* Interpreter whose history is to Interp *iPtr /* Interpreter whose history is to
* be modified. */ * be modified. */
) )
{ {
register HistoryRev *revPtr; HistoryRev *revPtr;
register HistoryEvent *eventPtr; HistoryEvent *eventPtr;
char *newCommand, *p; char *newCommand, *p;
unsigned int size; unsigned int size;
int bytesSeen, count; int bytesSeen, count;
@ -844,12 +844,12 @@ DoRevs(
static HistoryEvent * static HistoryEvent *
GetEvent( GetEvent(
register Interp *iPtr, /* Interpreter in which to look. */ Interp *iPtr, /* Interpreter in which to look. */
char *string /* Description of event. */ char *string /* Description of event. */
) )
{ {
int eventNum, index; int eventNum, index;
register HistoryEvent *eventPtr; HistoryEvent *eventPtr;
int length; int length;
/* /*
@ -927,7 +927,7 @@ GetEvent(
static int static int
SubsAndEval( SubsAndEval(
register Interp *iPtr, /* Interpreter in which to execute Interp *iPtr, /* Interpreter in which to execute
* new command. */ * new command. */
char *cmd, /* Command in which to substitute. */ char *cmd, /* Command in which to substitute. */
char *old, /* String to search for in command. */ char *old, /* String to search for in command. */
@ -1010,7 +1010,7 @@ SubsAndEval(
static char * static char *
GetWords( GetWords(
register Interp *iPtr, /* Tcl interpreter in which to place Interp *iPtr, /* Tcl interpreter in which to place
* an error message if needed. */ * an error message if needed. */
char *command, /* Command string. */ char *command, /* Command string. */
char *words /* Description of which words to extract char *words /* Description of which words to extract
@ -1020,7 +1020,7 @@ GetWords(
{ {
char *result; char *result;
char *start, *end, *dst; char *start, *end, *dst;
register char *next; char *next;
int first; /* First word desired. -1 means last word int first; /* First word desired. -1 means last word
* only. */ * only. */
int last; /* Last word desired. -1 means use everything int last; /* Last word desired. -1 means use everything

6
cde/programs/dtdocbook/tcl/tclIOUtil.c
View file

@ -92,7 +92,7 @@ static Tcl_File
FileForRedirect( FileForRedirect(
Tcl_Interp *interp, /* Intepreter to use for error Tcl_Interp *interp, /* Intepreter to use for error
* reporting. */ * reporting. */
register char *spec, /* Points to character just after char *spec, /* Points to character just after
* redirection character. */ * redirection character. */
int atOk, /* Non-zero means '@' notation is int atOk, /* Non-zero means '@' notation is
* OK, zero means it isn't. */ * OK, zero means it isn't. */
@ -487,7 +487,7 @@ Tcl_DetachPids(
pid_t *pidPtr /* Array of pids to detach. */ pid_t *pidPtr /* Array of pids to detach. */
) )
{ {
register Detached *detPtr; Detached *detPtr;
int i; int i;
for (i = 0; i < numPids; i++) { for (i = 0; i < numPids; i++) {
@ -521,7 +521,7 @@ Tcl_DetachPids(
void void
Tcl_ReapDetachedProcs(void) Tcl_ReapDetachedProcs(void)
{ {
register Detached *detPtr; Detached *detPtr;
Detached *nextPtr, *prevPtr; Detached *nextPtr, *prevPtr;
int status; int status;
pid_t pid; pid_t pid;

30
cde/programs/dtdocbook/tcl/tclParse.c
View file

@ -199,7 +199,7 @@ Tcl_Backslash(
* from src, unless NULL. */ * from src, unless NULL. */
) )
{ {
register char *p = src+1; char *p = src+1;
char result; char result;
int count; int count;
@ -323,7 +323,7 @@ TclParseQuotes(
* fully-substituted result of parse. */ * fully-substituted result of parse. */
) )
{ {
register char *src, *dst, c; char *src, *dst, c;
src = string; src = string;
dst = pvPtr->next; dst = pvPtr->next;
@ -435,7 +435,7 @@ TclParseNestedCmd(
int flags, /* Flags to pass to nested Tcl_Eval. */ int flags, /* Flags to pass to nested Tcl_Eval. */
char **termPtr, /* Store address of terminating character char **termPtr, /* Store address of terminating character
* here. */ * here. */
register ParseValue *pvPtr /* Information about where to place ParseValue *pvPtr /* Information about where to place
* result of command. */ * result of command. */
) )
{ {
@ -503,13 +503,13 @@ TclParseBraces(
char *string, /* Character just after opening bracket. */ char *string, /* Character just after opening bracket. */
char **termPtr, /* Store address of terminating character char **termPtr, /* Store address of terminating character
* here. */ * here. */
register ParseValue *pvPtr /* Information about where to place ParseValue *pvPtr /* Information about where to place
* result of command. */ * result of command. */
) )
{ {
int level; int level;
register char *src, *dst, *end; char *src, *dst, *end;
register char c; char c;
src = string; src = string;
dst = pvPtr->next; dst = pvPtr->next;
@ -636,12 +636,12 @@ TclParseWords(
int *argcPtr, /* Filled in with actual number of words int *argcPtr, /* Filled in with actual number of words
* parsed. */ * parsed. */
char **argv, /* Store addresses of individual words here. */ char **argv, /* Store addresses of individual words here. */
register ParseValue *pvPtr /* Information about where to place ParseValue *pvPtr /* Information about where to place
* fully-substituted word. */ * fully-substituted word. */
) )
{ {
register char *src, *dst; char *src, *dst;
register char c; char c;
int type, result, argc; int type, result, argc;
char *oldBuffer; /* Used to detect when pvPtr's buffer gets char *oldBuffer; /* Used to detect when pvPtr's buffer gets
* reallocated, so we can adjust all of the * reallocated, so we can adjust all of the
@ -881,7 +881,7 @@ TclParseWords(
void void
TclExpandParseValue( TclExpandParseValue(
register ParseValue *pvPtr, /* Information about buffer that ParseValue *pvPtr, /* Information about buffer that
* must be expanded. If the clientData * must be expanded. If the clientData
* in the structure is non-zero, it * in the structure is non-zero, it
* means that the current buffer is * means that the current buffer is
@ -953,7 +953,7 @@ TclWordEnd(
* If NULL then ignored. */ * If NULL then ignored. */
) )
{ {
register char *p; char *p;
int count; int count;
if (semiPtr != NULL) { if (semiPtr != NULL) {
@ -1100,7 +1100,7 @@ QuoteEnd(
* quoted string (e.g. '"' or ')'). */ * quoted string (e.g. '"' or ')'). */
) )
{ {
register char *p = string; char *p = string;
int count; int count;
while (*p != term) { while (*p != term) {
@ -1155,7 +1155,7 @@ VarNameEnd(
char *string /* Pointer to dollar-sign character. */ char *string /* Pointer to dollar-sign character. */
) )
{ {
register char *p = string+1; char *p = string+1;
if (*p == '{') { if (*p == '{') {
for (p++; (*p != '}') && (*p != 0); p++) { for (p++; (*p != '}') && (*p != 0); p++) {
@ -1273,7 +1273,7 @@ ScriptEnd(
char * char *
Tcl_ParseVar( Tcl_ParseVar(
Tcl_Interp *interp, /* Context for looking up variable. */ Tcl_Interp *interp, /* Context for looking up variable. */
register char *string, /* String containing variable name. char *string, /* String containing variable name.
* First character must be "$". */ * First character must be "$". */
char **termPtr /* If non-NULL, points to word to fill char **termPtr /* If non-NULL, points to word to fill
* in with character just after last * in with character just after last
@ -1281,7 +1281,7 @@ Tcl_ParseVar(
) )
{ {
char *name1, *name1End, c, *result; char *name1, *name1End, c, *result;
register char *name2; char *name2;
#define NUM_CHARS 200 #define NUM_CHARS 200
char copyStorage[NUM_CHARS]; char copyStorage[NUM_CHARS];
ParseValue pv; ParseValue pv;

20
cde/programs/dtdocbook/tcl/tclProc.c
View file

@ -73,12 +73,12 @@ Tcl_ProcCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
register Proc *procPtr; Proc *procPtr;
int result, argCount, i; int result, argCount, i;
char **argArray = NULL; char **argArray = NULL;
Arg *lastArgPtr; Arg *lastArgPtr;
register Arg *argPtr = NULL; /* Initialization not needed, but Arg *argPtr = NULL; /* Initialization not needed, but
* prevents compiler warning. */ * prevents compiler warning. */
if (argc != 4) { if (argc != 4) {
@ -210,7 +210,7 @@ TclGetFrame(
* if global frame indicated). */ * if global frame indicated). */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int curLevel, level, result; int curLevel, level, result;
CallFrame *framePtr; CallFrame *framePtr;
@ -288,7 +288,7 @@ Tcl_UplevelCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int result; int result;
CallFrame *savedVarFramePtr, *framePtr; CallFrame *savedVarFramePtr, *framePtr;
@ -443,9 +443,9 @@ InterpProc(
char **argv /* Argument values. */ char **argv /* Argument values. */
) )
{ {
register Proc *procPtr = (Proc *) clientData; Proc *procPtr = (Proc *) clientData;
register Arg *argPtr; Arg *argPtr;
register Interp *iPtr; Interp *iPtr;
char **args; char **args;
CallFrame frame; CallFrame frame;
char *value; char *value;
@ -630,10 +630,10 @@ ProcDeleteProc(
static void static void
CleanupProc( CleanupProc(
register Proc *procPtr /* Procedure to be deleted. */ Proc *procPtr /* Procedure to be deleted. */
) )
{ {
register Arg *argPtr; Arg *argPtr;
ckfree((char *) procPtr->command); ckfree((char *) procPtr->command);
for (argPtr = procPtr->argPtr; argPtr != NULL; ) { for (argPtr = procPtr->argPtr; argPtr != NULL; ) {

53
cde/programs/dtdocbook/tcl/tclUtil.c
View file

@ -106,7 +106,7 @@ TclFindElement(
Tcl_Interp *interp, /* Interpreter to use for error reporting. Tcl_Interp *interp, /* Interpreter to use for error reporting.
* If NULL, then no error message is left * If NULL, then no error message is left
* after errors. */ * after errors. */
register char *list, /* String containing Tcl list with zero char *list, /* String containing Tcl list with zero
* or more elements (possibly in braces). */ * or more elements (possibly in braces). */
char **elementPtr, /* Fill in with location of first significant char **elementPtr, /* Fill in with location of first significant
* character in first element of list. */ * character in first element of list. */
@ -121,7 +121,7 @@ TclFindElement(
* in braces. */ * in braces. */
) )
{ {
register char *p; char *p;
int openBraces = 0; int openBraces = 0;
int inQuotes = 0; int inQuotes = 0;
int size; int size;
@ -316,11 +316,11 @@ void
TclCopyAndCollapse( TclCopyAndCollapse(
int count, /* Total number of characters to copy int count, /* Total number of characters to copy
* from src. */ * from src. */
register char *src, /* Copy from here... */ char *src, /* Copy from here... */
register char *dst /* ... to here. */ char *dst /* ... to here. */
) )
{ {
register char c; char c;
int numRead; int numRead;
for (c = *src; count > 0; src++, c = *src, count--) { for (c = *src; count > 0; src++, c = *src, count--) {
@ -379,7 +379,7 @@ Tcl_SplitList(
) )
{ {
char **argv; char **argv;
register char *p; char *p;
int size, i, result, elSize, brace; int size, i, result, elSize, brace;
char *element; char *element;
@ -465,7 +465,7 @@ Tcl_ScanElement(
) )
{ {
int flags, nestingLevel; int flags, nestingLevel;
register char *p; char *p;
/* /*
* This procedure and Tcl_ConvertElement together do two things: * This procedure and Tcl_ConvertElement together do two things:
@ -582,12 +582,12 @@ Tcl_ScanElement(
int int
Tcl_ConvertElement( Tcl_ConvertElement(
register char *src, /* Source information for list element. */ char *src, /* Source information for list element. */
char *dst, /* Place to put list-ified element. */ char *dst, /* Place to put list-ified element. */
int flags /* Flags produced by Tcl_ScanElement. */ int flags /* Flags produced by Tcl_ScanElement. */
) )
{ {
register char *p = dst; char *p = dst;
/* /*
* See the comment block at the beginning of the Tcl_ScanElement * See the comment block at the beginning of the Tcl_ScanElement
@ -721,7 +721,7 @@ Tcl_Merge(
int localFlags[LOCAL_SIZE], *flagPtr; int localFlags[LOCAL_SIZE], *flagPtr;
int numChars; int numChars;
char *result; char *result;
register char *dst; char *dst;
int i; int i;
/* /*
@ -788,7 +788,7 @@ Tcl_Concat(
) )
{ {
int totalSize, i; int totalSize, i;
register char *p; char *p;
char *result; char *result;
for (totalSize = 1, i = 0; i < argc; i++) { for (totalSize = 1, i = 0; i < argc; i++) {
@ -855,9 +855,8 @@ Tcl_Concat(
int int
Tcl_StringMatch( Tcl_StringMatch(
register char *string, /* String. */ char *string, /* String. */
register char *pattern /* Pattern, which may contain char *pattern /* Pattern, which may contain
* special characters. */
) )
{ {
char c2; char c2;
@ -1000,7 +999,7 @@ Tcl_SetResult(
* of a Tcl_FreeProc such as free. */ * of a Tcl_FreeProc such as free. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int length; int length;
Tcl_FreeProc *oldFreeProc = iPtr->freeProc; Tcl_FreeProc *oldFreeProc = iPtr->freeProc;
char *oldResult = iPtr->result; char *oldResult = iPtr->result;
@ -1067,7 +1066,7 @@ void
Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,arg1) Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,arg1)
{ {
va_list argList; va_list argList;
register Interp *iPtr; Interp *iPtr;
char *string; char *string;
int newSpace; int newSpace;
@ -1145,7 +1144,7 @@ Tcl_AppendElement(
* add to result. */ * add to result. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int size, flags; int size, flags;
char *dst; char *dst;
@ -1195,7 +1194,7 @@ Tcl_AppendElement(
static void static void
SetupAppendBuffer( SetupAppendBuffer(
register Interp *iPtr, /* Interpreter whose result is being set up. */ Interp *iPtr, /* Interpreter whose result is being set up. */
int newSpace /* Make sure that at least this many bytes int newSpace /* Make sure that at least this many bytes
* of new information may be added. */ * of new information may be added. */
) )
@ -1277,7 +1276,7 @@ Tcl_ResetResult(
Tcl_Interp *interp /* Interpreter for which to clear result. */ Tcl_Interp *interp /* Interpreter for which to clear result. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
Tcl_FreeResult(iPtr); Tcl_FreeResult(iPtr);
iPtr->result = iPtr->resultSpace; iPtr->result = iPtr->resultSpace;
@ -1416,7 +1415,7 @@ Tcl_RegExpCompile(
* compiled regular expression. */ * compiled regular expression. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int i, length; int i, length;
regexp *result; regexp *result;
@ -1623,7 +1622,7 @@ Tcl_RegExpMatch(
void void
Tcl_DStringInit( Tcl_DStringInit(
register Tcl_DString *dsPtr /* Pointer to structure for Tcl_DString *dsPtr /* Pointer to structure for
* dynamic string. */ * dynamic string. */
) )
{ {
@ -1653,7 +1652,7 @@ Tcl_DStringInit(
char * char *
Tcl_DStringAppend( Tcl_DStringAppend(
register Tcl_DString *dsPtr, /* Structure describing dynamic Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */ * string. */
char *string, /* String to append. If length is char *string, /* String to append. If length is
* -1 then this must be * -1 then this must be
@ -1722,7 +1721,7 @@ Tcl_DStringAppend(
char * char *
Tcl_DStringAppendElement( Tcl_DStringAppendElement(
register Tcl_DString *dsPtr, /* Structure describing dynamic Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */ * string. */
char *string /* String to append. Must be char *string /* String to append. Must be
* null-terminated. */ * null-terminated. */
@ -1790,7 +1789,7 @@ Tcl_DStringAppendElement(
void void
Tcl_DStringSetLength( Tcl_DStringSetLength(
register Tcl_DString *dsPtr, /* Structure describing dynamic Tcl_DString *dsPtr, /* Structure describing dynamic
* string. */ * string. */
int length /* New length for dynamic string. */ int length /* New length for dynamic string. */
) )
@ -1841,7 +1840,7 @@ Tcl_DStringSetLength(
void void
Tcl_DStringFree( Tcl_DStringFree(
register Tcl_DString *dsPtr /* Structure describing dynamic Tcl_DString *dsPtr /* Structure describing dynamic
* string. */ * string. */
) )
{ {
@ -2042,7 +2041,7 @@ Tcl_PrintDouble(
* characters. */ * characters. */
) )
{ {
register char *p; char *p;
sprintf(dst, ((Interp *) interp)->pdFormat, value); sprintf(dst, ((Interp *) interp)->pdFormat, value);
/* /*
@ -2091,7 +2090,7 @@ TclPrecTraceProc(
int flags /* Information about what happened. */ int flags /* Information about what happened. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
char *value, *end; char *value, *end;
int prec; int prec;

42
cde/programs/dtdocbook/tcl/tclVar.c
View file

@ -494,8 +494,8 @@ Tcl_SetVar2(
* PART1_NOT_PARSED. */ * PART1_NOT_PARSED. */
) )
{ {
register Var *varPtr; Var *varPtr;
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int length, listFlags; int length, listFlags;
Var *arrayPtr; Var *arrayPtr;
char *result; char *result;
@ -891,7 +891,7 @@ Tcl_TraceVar2(
) )
{ {
Var *varPtr, *arrayPtr; Var *varPtr, *arrayPtr;
register VarTrace *tracePtr; VarTrace *tracePtr;
varPtr = LookupVar(interp, part1, part2, (flags | TCL_LEAVE_ERR_MSG), varPtr = LookupVar(interp, part1, part2, (flags | TCL_LEAVE_ERR_MSG),
"trace", CRT_PART1|CRT_PART2, &arrayPtr); "trace", CRT_PART1|CRT_PART2, &arrayPtr);
@ -982,7 +982,7 @@ Tcl_UntraceVar2(
ClientData clientData /* Arbitrary argument to pass to proc. */ ClientData clientData /* Arbitrary argument to pass to proc. */
) )
{ {
register VarTrace *tracePtr; VarTrace *tracePtr;
VarTrace *prevPtr; VarTrace *prevPtr;
Var *varPtr, *arrayPtr; Var *varPtr, *arrayPtr;
Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
@ -1114,7 +1114,7 @@ Tcl_VarTraceInfo2(
* first trace. */ * first trace. */
) )
{ {
register VarTrace *tracePtr; VarTrace *tracePtr;
Var *varPtr, *arrayPtr; Var *varPtr, *arrayPtr;
varPtr = LookupVar(interp, part1, part2, varPtr = LookupVar(interp, part1, part2,
@ -1167,7 +1167,7 @@ Tcl_VarTraceInfo2(
int int
Tcl_SetCmd( Tcl_SetCmd(
ClientData dummy, /* Not used. */ ClientData dummy, /* Not used. */
register Tcl_Interp *interp, /* Current interpreter. */ Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */ int argc, /* Number of arguments. */
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
@ -1220,7 +1220,7 @@ Tcl_SetCmd(
int int
Tcl_UnsetCmd( Tcl_UnsetCmd(
ClientData dummy, /* Not used. */ ClientData dummy, /* Not used. */
register Tcl_Interp *interp, /* Current interpreter. */ Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */ int argc, /* Number of arguments. */
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
@ -1262,7 +1262,7 @@ Tcl_UnsetCmd(
int int
Tcl_AppendCmd( Tcl_AppendCmd(
ClientData dummy, /* Not used. */ ClientData dummy, /* Not used. */
register Tcl_Interp *interp, /* Current interpreter. */ Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */ int argc, /* Number of arguments. */
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
@ -1318,7 +1318,7 @@ Tcl_AppendCmd(
int int
Tcl_LappendCmd( Tcl_LappendCmd(
ClientData dummy, /* Not used. */ ClientData dummy, /* Not used. */
register Tcl_Interp *interp, /* Current interpreter. */ Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */ int argc, /* Number of arguments. */
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
@ -1375,7 +1375,7 @@ Tcl_LappendCmd(
int int
Tcl_ArrayCmd( Tcl_ArrayCmd(
ClientData dummy, /* Not used. */ ClientData dummy, /* Not used. */
register Tcl_Interp *interp, /* Current interpreter. */ Tcl_Interp *interp, /* Current interpreter. */
int argc, /* Number of arguments. */ int argc, /* Number of arguments. */
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
@ -1808,7 +1808,7 @@ Tcl_UpVar(
{ {
int result; int result;
CallFrame *framePtr; CallFrame *framePtr;
register char *p; char *p;
result = TclGetFrame(interp, frameName, &framePtr); result = TclGetFrame(interp, frameName, &framePtr);
if (result == -1) { if (result == -1) {
@ -1915,7 +1915,7 @@ Tcl_GlobalCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
if (argc < 2) { if (argc < 2) {
Tcl_AppendResult((Tcl_Interp *) iPtr, "wrong # args: should be \"", Tcl_AppendResult((Tcl_Interp *) iPtr, "wrong # args: should be \"",
@ -1961,10 +1961,10 @@ Tcl_UpvarCmd(
char **argv /* Argument strings. */ char **argv /* Argument strings. */
) )
{ {
register Interp *iPtr = (Interp *) interp; Interp *iPtr = (Interp *) interp;
int result; int result;
CallFrame *framePtr; CallFrame *framePtr;
register char *p; char *p;
if (argc < 3) { if (argc < 3) {
upvarSyntax: upvarSyntax:
@ -2055,7 +2055,7 @@ Tcl_UpvarCmd(
static char * static char *
CallTraces( CallTraces(
Interp *iPtr, /* Interpreter containing variable. */ Interp *iPtr, /* Interpreter containing variable. */
register Var *arrayPtr, /* Pointer to array variable that Var *arrayPtr, /* Pointer to array variable that
* contains the variable, or NULL if * contains the variable, or NULL if
* the variable isn't an element of an * the variable isn't an element of an
* array. */ * array. */
@ -2072,7 +2072,7 @@ CallTraces(
* to callbacks. */ * to callbacks. */
) )
{ {
register VarTrace *tracePtr; VarTrace *tracePtr;
ActiveVarTrace active; ActiveVarTrace active;
char *result, *openParen, *p; char *result, *openParen, *p;
Tcl_DString nameCopy; Tcl_DString nameCopy;
@ -2218,7 +2218,7 @@ CallTraces(
static Var * static Var *
NewVar(void) NewVar(void)
{ {
register Var *varPtr; Var *varPtr;
varPtr = (Var *) ckalloc(sizeof(Var)); varPtr = (Var *) ckalloc(sizeof(Var));
varPtr->valueLength = 0; varPtr->valueLength = 0;
@ -2322,7 +2322,7 @@ ParseSearchId(
static void static void
DeleteSearches( DeleteSearches(
register Var *arrayVarPtr /* Variable whose searches are Var *arrayVarPtr /* Variable whose searches are
* to be deleted. */ * to be deleted. */
) )
{ {
@ -2365,7 +2365,7 @@ TclDeleteVars(
{ {
Tcl_HashSearch search; Tcl_HashSearch search;
Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
register Var *varPtr; Var *varPtr;
Var *upvarPtr; Var *upvarPtr;
int flags; int flags;
ActiveVarTrace *activePtr; ActiveVarTrace *activePtr;
@ -2493,8 +2493,8 @@ DeleteArray(
) )
{ {
Tcl_HashSearch search; Tcl_HashSearch search;
register Tcl_HashEntry *hPtr; Tcl_HashEntry *hPtr;
register Var *elPtr; Var *elPtr;
ActiveVarTrace *activePtr; ActiveVarTrace *activePtr;
DeleteSearches(varPtr); DeleteSearches(varPtr);