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

 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 1997-2023 The R Core Team
+ *  Copyright (C) 1997-2025 The R Core Team
  *  Copyright (C) 1995-1996 Robert Gentleman and Ross Ihaka
+ *
  *  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
     if(croutines) {
 	for(num = 0; croutines[num].name != NULL; num++) {;}
 	info->CSymbols = (Rf_DotCSymbol*)calloc((size_t) num,
 						sizeof(Rf_DotCSymbol));
+	if (!info->CSymbols)
+	    error("allocation failure in R_registerRoutines");
 	info->numCSymbols = num;
 	for(i = 0; i < num; i++) {
 	    R_addCRoutine(info, croutines+i, info->CSymbols + i);
+	}
+    }
     if(fortranRoutines) {
 	for(num = 0; fortranRoutines[num].name != NULL; num++) {;}
 	info->FortranSymbols =
 	    (Rf_DotFortranSymbol*)calloc((size_t) num,
 					 sizeof(Rf_DotFortranSymbol));
+	if (!info->FortranSymbols) {
+	    free(info->CSymbols);
+	    error("allocation failure in R_registerRoutines");
+	}
 	info->numFortranSymbols = num;
 	for(i = 0; i < num; i++)
 	    R_addFortranRoutine(info, fortranRoutines+i,
 				info->FortranSymbols + i);
+    }
     if(callRoutines) {
 	for(num = 0; callRoutines[num].name != NULL; num++) {;}
 	info->CallSymbols =
 	    (Rf_DotCallSymbol*)calloc((size_t) num, sizeof(Rf_DotCallSymbol));
+	if (!info->CallSymbols) {
+	    free(info->CSymbols);
+	    free(info->FortranSymbols);
+	    error("allocation failure in R_registerRoutines");
+	}
 	info->numCallSymbols = num;
 	for(i = 0; i < num; i++)
 	    R_addCallRoutine(info, callRoutines+i, info->CallSymbols + i);
+    }
     if(externalRoutines) {
 	for(num = 0; externalRoutines[num].name != NULL; num++) {;}
 	info->ExternalSymbols =
 	    (Rf_DotExternalSymbol*)calloc((size_t) num,
 					  sizeof(Rf_DotExternalSymbol));
+	if (!info->ExternalSymbols) {
+	    free(info->CSymbols);
+	    free(info->FortranSymbols);
+	    free(info->CallSymbols);
+	    error("allocation failure in R_registerRoutines");
+	}
 	info->numExternalSymbols = num;
 	for(i = 0; i < num; i++)
 	    R_addExternalRoutine(info, externalRoutines+i,
 				 info->ExternalSymbols + i);

The R Project SVN R

(root)/trunk/src/main/Rdynload.c @ 28362 – Rev 87927 → 88761