From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 23 Feb 2016 05:08:26 +0000 (-0700)
Subject: microcode/debug.c (verify_compiled): A cast to quiet gcc.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~134^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1e2784256c72e6ccd14be4a6fa86027cbb98fe17;p=mit-scheme.git

microcode/debug.c (verify_compiled): A cast to quiet gcc.
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 573e68e3d..ca6b9d430 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -993,7 +993,7 @@ verify_compiled (SCHEME_OBJECT object, unsigned long address)
 	      outf_error ("%#lx: Invalid block size\n", address);
 	      return (false);
 	    }
-	  header_type = OBJECT_TYPE(*block);
+	  header_type = OBJECT_TYPE(*((SCHEME_OBJECT *) block));
 	  if (! (header_type == TC_MANIFEST_VECTOR
 		 || header_type == TC_MANIFEST_CLOSURE))
 	    {