From 5addf0844f66ecc91debd89552a2fcbc982a70e9 Mon Sep 17 00:00:00 2001
From: Bert Thompson <aet@cs.mu.oz.au>
Date: Thu, 20 Mar 1997 08:15:46 +0000
Subject: [PATCH] In bytecode stream, cons_id's are now module-qualified. Made
 changes to accomodate this. Added `noop' bytecode.

---
 bytecode/bytecode.h | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/bytecode/bytecode.h b/bytecode/bytecode.h
index 17dcdfcd3..731380fd6 100644
--- a/bytecode/bytecode.h
+++ b/bytecode/bytecode.h
@@ -1,6 +1,6 @@
 
 /*
- *	$Id: bytecode.h,v 1.6 1997-02-01 13:35:53 aet Exp $
+ *	$Id: bytecode.h,v 1.7 1997-03-20 08:15:46 aet Exp $
  *
  *	Copyright: The University of Melbourne, 1996
  */
@@ -40,8 +40,6 @@ typedef double
 	Double;
 typedef char*
 	CString;
-typedef unsigned short
-	ushort;
 
 typedef struct Tag {
 	Byte	id;
@@ -117,6 +115,7 @@ typedef struct Cons_id {
 	Byte	id;
 	union {
 		struct {
+			CString		module_id;
 			CString		string;
 			short		arity;
 			Tag		tag;
@@ -141,6 +140,9 @@ typedef struct Cons_id {
 			CString		type_name;
 			Byte		type_arity;
 		} base_type_info_const;
+		struct {
+			Byte		ch;
+		} char_const;
 	} opt;
 } Cons_id;
 
@@ -154,6 +156,7 @@ typedef struct Cons_id {
 #define	CONSID_PRED_CONST	4
 #define	CONSID_CODE_ADDR_CONST	5
 #define	CONSID_BASE_TYPE_INFO_CONST	6
+#define	CONSID_CHAR_CONST	7
 
 
 typedef struct Bytecode {
@@ -389,6 +392,7 @@ typedef struct Bytecode {
 #define	BC_fail				37
 #define	BC_context			38
 #define	BC_not_supported		39
+#define	BC_noop				255
 
 /*
  *	Read the next bytecode from the stream fp.