[m-rev.] diff: delete old bootstrap code

Zoltan Somogyi zs at cs.mu.OZ.AU
Sun Jul 28 03:04:31 AEST 2002


runtime/mercury_type_info.h:
	Delete some old bootstrapping code.

Zoltan.

cvs diff: Diffing .
Index: mercury_type_info.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_type_info.h,v
retrieving revision 1.91
diff -u -b -r1.91 mercury_type_info.h
--- mercury_type_info.h	8 May 2002 09:33:21 -0000	1.91
+++ mercury_type_info.h	24 Jul 2002 10:31:11 -0000
@@ -171,15 +171,6 @@
     }
 
 /*
-** The next two #defines are needed for bootstrapping.
-*/
-
-#define MR_FIRST_ORDER_PSEUDOTYPEINFO_STRUCT(a, b) \
-	MR_FIXED_ARITY_PSEUDOTYPEINFO_STRUCT(a, b)
-#define MR_HIGHER_ORDER_PSEUDOTYPEINFO_STRUCT(a, b) \
-	MR_VAR_ARITY_PSEUDOTYPEINFO_STRUCT(a, b)
-
-/*
 ** Now define specific versions of these struct types,
 ** which are used by the MR_TypeInfo and MR_PseudoTypeInfo
 ** typedefs above.
@@ -953,16 +944,11 @@
     ** files listed at the top of this file, as well as in the macros below.
     */
 
-/*
-** The type of the MR_type_ctor_rep_CAST_ME field should be returned
-** to MR_TypeCtorRepInt when bootstrapping is complete.
-*/
-
 struct MR_TypeCtorInfo_Struct {
     MR_Integer          MR_type_ctor_arity;
     MR_int_least8_t     MR_type_ctor_version;
     MR_int_least8_t     MR_type_ctor_num_ptags;         /* if DU */
-    MR_int_least16_t    MR_type_ctor_rep_CAST_ME;
+    MR_TypeCtorRepInt   MR_type_ctor_rep_CAST_ME;
     MR_ProcAddr         MR_type_ctor_unify_pred;
     MR_ProcAddr         MR_type_ctor_compare_pred;
     MR_ConstString      MR_type_ctor_module_name;
cvs diff: Diffing GETOPT
cvs diff: Diffing machdeps
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list