From 13241fabba042aaa3c5b95af0e2169f1c2f35b5e Mon Sep 17 00:00:00 2001
From: David Brown <dave.github@brownsmeet.com>
Date: Mon, 12 Dec 2016 20:06:40 +0000
Subject: [PATCH] Update bootstrap C sources.

---
 bootstrap/unix-44/Out.c    | 1 +
 bootstrap/unix-48/Out.c    | 1 +
 bootstrap/unix-88/Out.c    | 1 +
 bootstrap/windows-48/Out.c | 1 +
 bootstrap/windows-88/Out.c | 1 +
 5 files changed, 5 insertions(+)

diff --git a/bootstrap/unix-44/Out.c b/bootstrap/unix-44/Out.c
index 39900621..6d72148a 100644
--- a/bootstrap/unix-44/Out.c
+++ b/bootstrap/unix-44/Out.c
@@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
 	Out_String((CHAR*)"obj tag:  ", 11);
 	Out_Hex(addr, 1);
 	Out_Ln();
+	addr -= __MASK(addr, -2);
 	desc = (tag__4)(ADDRESS)(addr - 108);
 	Out_String((CHAR*)"desc at:  ", 11);
 	Out_Hex((INT32)(ADDRESS)desc, 1);
diff --git a/bootstrap/unix-48/Out.c b/bootstrap/unix-48/Out.c
index 39900621..6d72148a 100644
--- a/bootstrap/unix-48/Out.c
+++ b/bootstrap/unix-48/Out.c
@@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
 	Out_String((CHAR*)"obj tag:  ", 11);
 	Out_Hex(addr, 1);
 	Out_Ln();
+	addr -= __MASK(addr, -2);
 	desc = (tag__4)(ADDRESS)(addr - 108);
 	Out_String((CHAR*)"desc at:  ", 11);
 	Out_Hex((INT32)(ADDRESS)desc, 1);
diff --git a/bootstrap/unix-88/Out.c b/bootstrap/unix-88/Out.c
index 3129c109..67eaad85 100644
--- a/bootstrap/unix-88/Out.c
+++ b/bootstrap/unix-88/Out.c
@@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
 	Out_String((CHAR*)"obj tag:  ", 11);
 	Out_Hex(addr, 1);
 	Out_Ln();
+	addr -= __MASK(addr, -2);
 	desc = (tag__4)(ADDRESS)(addr - 192);
 	Out_String((CHAR*)"desc at:  ", 11);
 	Out_Hex((INT64)(ADDRESS)desc, 1);
diff --git a/bootstrap/windows-48/Out.c b/bootstrap/windows-48/Out.c
index 21e029bd..f792315a 100644
--- a/bootstrap/windows-48/Out.c
+++ b/bootstrap/windows-48/Out.c
@@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
 	Out_String((CHAR*)"obj tag:  ", 11);
 	Out_Hex(addr, 1);
 	Out_Ln();
+	addr -= __MASK(addr, -2);
 	desc = (tag__4)(ADDRESS)(addr - 108);
 	Out_String((CHAR*)"desc at:  ", 11);
 	Out_Hex((INT32)(ADDRESS)desc, 1);
diff --git a/bootstrap/windows-88/Out.c b/bootstrap/windows-88/Out.c
index cbf124ca..d0afc5be 100644
--- a/bootstrap/windows-88/Out.c
+++ b/bootstrap/windows-88/Out.c
@@ -249,6 +249,7 @@ void Out_DumpType (SYSTEM_BYTE *o, ADDRESS o__len)
 	Out_String((CHAR*)"obj tag:  ", 11);
 	Out_Hex(addr, 1);
 	Out_Ln();
+	addr -= __MASK(addr, -2);
 	desc = (tag__4)(ADDRESS)(addr - 192);
 	Out_String((CHAR*)"desc at:  ", 11);
 	Out_Hex((INT64)(ADDRESS)desc, 1);