Check for too large C objects. Also avoids GCC warnings (currently triggered

kalibera · kalibera · commit 5ad0bcd775f8 · 2024-11-08T10:29:51.000Z
with LTO). git-svn-id: https://svn.r-project.org/R/trunk@87305 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/main/memory.c b/src/main/memory.c
@@ -3570,11 +3570,15 @@ void R_chk_free(void *ptr)
 
 void *R_chk_memcpy(void *dest, const void *src, size_t n)
 {
+    if (n >= PTRDIFF_MAX)
+	error(_("object is too large (%llu bytes)"), (unsigned long long)n);
     return n ? memcpy(dest, src, n) : dest;
 }
 
 void *R_chk_memset(void *s, int c, size_t n)
 {
+    if (n >= PTRDIFF_MAX)
+	error(_("object is too large (%llu bytes)"), (unsigned long long)n);
     return n ? memset(s, c, n) : s;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -3570,11 +3570,15 @@ void R_chk_free(void *ptr)`
`3570`	`3570`
`3571`	`3571`	`void R_chk_memcpy(void dest, const void *src, size_t n)`
`3572`	`3572`	`{`
	`3573`	`+ if (n >= PTRDIFF_MAX)`
	`3574`	`+ error(_("object is too large (%llu bytes)"), (unsigned long long)n);`
`3573`	`3575`	`return n ? memcpy(dest, src, n) : dest;`
`3574`	`3576`	`}`
`3575`	`3577`
`3576`	`3578`	`void R_chk_memset(void s, int c, size_t n)`
`3577`	`3579`	`{`
	`3580`	`+ if (n >= PTRDIFF_MAX)`
	`3581`	`+ error(_("object is too large (%llu bytes)"), (unsigned long long)n);`
`3578`	`3582`	`return n ? memset(s, c, n) : s;`
`3579`	`3583`	`}`
`3580`	`3584`