The R Project SVN R

Rev

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

Rev 51374 Rev 51398
Line 769... Line 769...
769 
	} else {
 769 
	} else {
770 
	    if(validate_tm(&tm) < 0) SET_STRING_ELT(ans, i, NA_STRING);
 770 
	    if(validate_tm(&tm) < 0) SET_STRING_ELT(ans, i, NA_STRING);
771 
	    else {
 771 
	    else {
772 
		const char *q = CHAR(STRING_ELT(sformat, i%m));
 772 
		const char *q = CHAR(STRING_ELT(sformat, i%m));
773 
		int n = strlen(q) + 50;
 773 
		int n = strlen(q) + 50;
774 
		char *buf2 = alloca(n);
 774 
		char buf2[n];
775 
#ifdef Win32
 775 
#ifdef Win32
776 
		/* We want to override Windows' TZ names */
 776 
		/* We want to override Windows' TZ names */
777 
		p = strstr(q, "%Z");
 777 
		p = strstr(q, "%Z");
778 
		if (p) {
 778 
		if (p) {
779 
		    memset(buf2, 0, n);
 779 
		    memset(buf2, 0, n);