From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 3 Feb 2017 18:51:24 +0000 (-0700)
Subject: microcode/boot.c (BLOCKS_TO_BYTES): Incorrect name.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=628fb1e3ca3f0934d7589a1a6851908ebaa79271;p=mit-scheme.git

microcode/boot.c (BLOCKS_TO_BYTES): Incorrect name.
---

diff --git a/src/microcode/boot.c b/src/microcode/boot.c
index 11fc8a25a..faecff089 100644
--- a/src/microcode/boot.c
+++ b/src/microcode/boot.c
@@ -79,7 +79,7 @@ obstack_chunk_alloc (size_t size)
 /* Declare the outermost critical section. */
 DECLARE_CRITICAL_SECTION ();
 
-#define BLOCKS_TO_BYTES(n) ((n) * 1024)
+#define BLOCKS_TO_WORDS(n) ((n) * 1024)
 
 /* Exit is done in a different way on some operating systems (eg. VMS)  */
 
@@ -108,9 +108,9 @@ main_name (int argc, const char ** argv)
   reload_saved_string_length = 0;
   read_command_line_options (argc, argv);
 
-  setup_memory ((BLOCKS_TO_BYTES (option_heap_size)),
-		(BLOCKS_TO_BYTES (option_stack_size)),
-		(BLOCKS_TO_BYTES (option_constant_size)));
+  setup_memory ((BLOCKS_TO_WORDS (option_heap_size)),
+		(BLOCKS_TO_WORDS (option_stack_size)),
+		(BLOCKS_TO_WORDS (option_constant_size)));
 
   initialize_primitives ();
   compiler_initialize (option_fasl_file != 0);