32 lines
1.2 KiB
Diff
32 lines
1.2 KiB
Diff
From bebbd732ac64eefe841ec2da25a67c756dfa0f61 Mon Sep 17 00:00:00 2001
|
|
From: Sebastian Ullrich <sebasti@nullri.ch>
|
|
Date: Mon, 11 Nov 2019 18:15:21 +0100
|
|
Subject: [PATCH] disable ST objects
|
|
|
|
---
|
|
src/runtime/lean.h | 6 +++---
|
|
1 file changed, 3 insertions(+), 3 deletions(-)
|
|
|
|
diff --git a/src/runtime/lean.h b/src/runtime/lean.h
|
|
index 6b37fd91a..c53137860 100644
|
|
--- a/src/runtime/lean.h
|
|
+++ b/src/runtime/lean.h
|
|
@@ -567,13 +567,13 @@ void lean_mark_persistent(lean_object * o);
|
|
|
|
static inline void lean_set_st_header(lean_object * o, unsigned tag, unsigned other) {
|
|
#if defined(LEAN_COMPRESSED_OBJECT_HEADER)
|
|
- o->m_header = ((size_t)(tag) << 56) | ((size_t)(other) << 48) | (1ull << LEAN_ST_BIT) | 1;
|
|
+ o->m_header = ((size_t)(tag) << 56) | ((size_t)(other) << 48) | (1ull << LEAN_MT_BIT) | 1;
|
|
#elif defined(LEAN_COMPRESSED_OBJECT_HEADER_SMALL_RC)
|
|
- o->m_header = ((size_t)(tag) << 56) | ((size_t)(other) << 48) | ((size_t)LEAN_ST_MEM_KIND << 40) | 1;
|
|
+ o->m_header = ((size_t)(tag) << 56) | ((size_t)(other) << 48) | ((size_t)LEAN_MT_MEM_KIND << 40) | 1;
|
|
#else
|
|
o->m_rc = 1;
|
|
o->m_tag = tag;
|
|
- o->m_mem_kind = LEAN_ST_MEM_KIND;
|
|
+ o->m_mem_kind = LEAN_MT_MEM_KIND;
|
|
o->m_other = other;
|
|
#endif
|
|
}
|
|
--
|
|
2.23.0
|