From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 21 Jan 2019 20:53:14 +0000 (+0000)
Subject: Fix argument to PUSH_D_CACHE_REGION.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~43
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2303479047342b0591ce768fbf84d31ee98aa431;p=mit-scheme.git

Fix argument to PUSH_D_CACHE_REGION.

Takes startptr/count, not startptr/endptr.

This was not an issue before because until aarch64, the only extant
port that even used this, i386, ignored the argument as a macro and
flushed the entire cache.
---

diff --git a/src/microcode/cmpint.c b/src/microcode/cmpint.c
index b8181497e..fad1583d5 100644
--- a/src/microcode/cmpint.c
+++ b/src/microcode/cmpint.c
@@ -1972,7 +1972,7 @@ void
 declare_compiled_code_block (SCHEME_OBJECT block)
 {
 #ifdef PUSH_D_CACHE_REGION
-  PUSH_D_CACHE_REGION ((OBJECT_ADDRESS (block)), (CC_BLOCK_END (block)));
+  PUSH_D_CACHE_REGION ((OBJECT_ADDRESS (block)), (CC_BLOCK_LENGTH (block)));
 #endif
 }