The R Project SVN – R – Diff – /trunk/src/unix/Rscript.c



	    exit(1);
	}
	argv[0] = argv_[0];
 
	size_t len = strlen(s);
	char *buf = (char *)malloc((size_t) (len+1)*sizeof(char));
	if (!buf) {
	    fprintf(stderr, "malloc failure\n");
	    exit(1);
	}
	strcpy(buf, s);

Rev 83901	Rev 84684
Line 193...	Line 193...
193	`exit(1);`	193	`exit(1);`
194	`}`	194	`}`
195	`argv[0] = argv_[0];`	195	`argv[0] = argv_[0];`
196		196
197	`size_t len = strlen(s);`	197	`size_t len = strlen(s);`
198	`char buf = (char )malloc((size_t) (len+1)sizeof(char ));`	198	`char buf = (char )malloc((size_t) (len+1)*sizeof(char));`
199	`if (!buf) {`	199	`if (!buf) {`
200	`fprintf(stderr, "malloc failure\n");`	200	`fprintf(stderr, "malloc failure\n");`
201	`exit(1);`	201	`exit(1);`
202	`}`	202	`}`
203	`strcpy(buf, s);`	203	`strcpy(buf, s);`

The R Project SVN R

(root)/trunk/src/unix/Rscript.c @ 63243 – Rev 83901 → 84684