From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 29 Jan 1994 02:09:41 +0000 (+0000)
Subject: Scale by sizeof when allocating objects.
X-Git-Tag: emacs-19.34~10160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e58077c89313edd673379fa6bd540d0416e53561;p=emacs.git

Scale by sizeof when allocating objects.
---

diff --git a/src/keymap.c b/src/keymap.c
index e512dcce258..4a39764c0f3 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -775,15 +775,21 @@ current_minor_maps (modeptr, mapptr)
 	    if (cmm_maps)
 	      {
 		BLOCK_INPUT;
-		newmodes = (Lisp_Object *) realloc (cmm_modes, cmm_size *= 2);
-		newmaps  = (Lisp_Object *) realloc (cmm_maps,  cmm_size);
+		cmm_size *= 2;
+		newmodes = (Lisp_Object *)
+		  realloc (cmm_modes, cmm_size * sizeof (Lisp_Object));
+		newmaps  = (Lisp_Object *)
+		  realloc (cmm_maps,  cmm_size * sizeof (Lisp_Object));
 		UNBLOCK_INPUT;
 	      }
 	    else
 	      {
 		BLOCK_INPUT;
-		newmodes = (Lisp_Object *) malloc (cmm_size = 30);
-		newmaps  = (Lisp_Object *) malloc (cmm_size);
+		cmm_size = 30;
+		newmodes = (Lisp_Object *)
+		  malloc (cmm_size * sizeof (Lisp_Object));
+		newmaps  = (Lisp_Object *)
+		  malloc (cmm_size * sizeof (Lisp_Object));
 		UNBLOCK_INPUT;
 	      }