register Size_t len = strlen(var);
register size_t len = strlen(var);  TRACE(("Setenv(var=%s, value=%s)\n", var, value))
Setenv (var, value)register char *var, *value;{	register int envindex = 0;	register Size_t len = strlen(var);	while (environ [envindex] != NULL) {	    if (strncmp (environ [envindex], var, len) == 0) {		/* found it */		environ[envindex] = (char *)malloc ((unsigned)len + strlen (value) + 1);		strcpy (environ [envindex], var);		strcat (environ [envindex], value);		return;	    }	    envindex ++;	}#ifdef DEBUG	if (debug) fputs ("expanding env\n", stderr);#endif	/* DEBUG */	environ [envindex] = (char *) malloc ((unsigned)len + strlen (value) + 1);	(void) strcpy (environ [envindex], var);	strcat (environ [envindex], value);	environ [++envindex] = NULL;}