From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 29 Feb 2012 19:42:03 +0000 (-0700)
Subject: svm: Add diagram of a compiled closure with 64 bit words.
X-Git-Tag: release-9.2.0~278^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c33d0087e0574d05f8f1e8c2aed22e0b997ddbee;p=mit-scheme.git

svm: Add diagram of a compiled closure with 64 bit words.
---

diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c
index ee6228a77..c5895dd2f 100644
--- a/src/microcode/cmpintmd/svm1.c
+++ b/src/microcode/cmpintmd/svm1.c
@@ -216,6 +216,34 @@ write_u16 (unsigned int n, insn_t * address)
    0x2C    value cell 2
    0x30    value cell 3
 
+   On a 64-bit machine:
+
+   0x00    TC_MANIFEST_CLOSURE | n_words == 10
+
+   0x08    count == 3
+   0x0A    4 unused bytes
+   0x0E    2 cc-entry type (arity) bytes
+
+   0x10    SVM1_INST_ENTER_CLOSURE (this first entry must be word aligned)
+   0x11    index == 0
+   0x13    2 cc-entry type (arity) bytes
+   0x15    SVM1_INST_ENTER_CLOSURE
+   0x16    index == 1
+
+   0x18    2 cc-entry type (arity) bytes
+   0x1A    SVM1_INST_ENTER_CLOSURE
+   0x1B    index == 2
+   0x1D    3 padding bytes
+
+   0x20    target 0
+   0x28    target 1
+   0x30    target 2
+
+   0x38    value cell 0
+   0x40    value cell 1
+   0x48    value cell 2
+   0x50    value cell 3
+
    */
 
 unsigned long