The R Project SVN – R – Diff – /trunk/src/main/startup.c

 /*
   R : A Computer Language for Statistical Data Analysis
   Copyright (C) 1995-1996   Robert Gentleman and Ross Ihaka
-  Copyright (C) 1997-2012   The R Core Team
+  Copyright (C) 1997-2013   The R Core Team
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or (at
   your option) any later version.
     if (vsize < 1000 && vsize > 0) {
 	R_ShowMessage("WARNING: vsize ridiculously low, Megabytes assumed\n");
 	vsize *= (R_size_t) Mega;
+    }
     if(vsize < Min_Vsize || vsize > Max_Vsize) {
+	snprintf(msg, 1024,
-	sprintf(msg, "WARNING: invalid v(ector heap)size `%lu' ignored\n"
+		 "WARNING: invalid v(ector heap)size `%lu' ignored\n"
 		 "using default = %gM\n", (unsigned long) vsize,
-		R_VSIZE / Mega);
+		 R_VSIZE / Mega);
 	R_ShowMessage(msg);
 	R_VSize = R_VSIZE;
     } else
 	R_VSize = vsize;
     if(nsize < Min_Nsize || nsize > Max_Nsize) {
+	snprintf(msg, 1024,
-	sprintf(msg, "WARNING: invalid language heap (n)size `%lu' ignored,"
+		 "WARNING: invalid language heap (n)size `%lu' ignored,"
 		 " using default = %ld\n", (unsigned long) nsize, R_NSIZE);
 	R_ShowMessage(msg);
 	R_NSize = R_NSIZE;
     } else
 	R_NSize = nsize;

The R Project SVN R