The R Project SVN R

Rev

Rev 90285 | Rev 90291 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90285 Rev 90288
Line 623... Line 623...
623 
	    REprintf(_("In %s :"), dcall);
 623 
	    REprintf(_("In %s :"), dcall);
624 
	    if (mbcslocale) {
 624 
	    if (mbcslocale) {
625 
		int msgline1;
 625 
		int msgline1;
626 
		if (strchr(msg, '\n')) {
 626 
		if (strchr(msg, '\n')) {
627 
		    // this branch alters msg temporarily
 627 
		    // this branch alters msg temporarily
628 
		    char msg1[strlen(msg)];
 628 
		    char msg1[strlen(msg) + 1];
629 
		    strcpy(msg1, msg);
 629 
		    strcpy(msg1, msg);
630 
		    char *p = strchr(msg1, '\n');
 630 
		    char *p = strchr(msg1, '\n');
631 
		    *p = '\0';
 631 
		    *p = '\0';
632 
		    msgline1 = wd(msg1);
 632 
		    msgline1 = wd(msg1);
633 
		} else msgline1 = wd(msg);
 633 
		} else msgline1 = wd(msg);