diff: var.m minor simplification

Fergus Henderson fjh at kryten.cs.mu.OZ.AU
Sun Sep 28 00:48:15 AEST 1997


extras/trailed_update/var.m:
	Delete some old code that is no longer necessary;
	the code in question has now migrated to the Mercury
	runtime directory.

Index: var.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/extras/trailed_update/var.m,v
retrieving revision 1.1
diff -u -r1.1 var.m
--- 1.1	1997/09/20 17:15:20
+++ var.m	1997/09/27 14:29:11
@@ -645,20 +645,6 @@
 
 #include ""var.h""
 
-/* XXX should change the name in runtime/mercury_trail.h */
-#ifndef MR_trail_current_value
-  #define MR_trail_current_value(addr) MR_trail_value_at_address((addr))
-#endif
-
-/* XXX this should go in runtime/tags.h */
-#ifndef strip_tag
-  #ifdef HIGH_TAGS
-    #define strip_tag(w)	((w) & ((~(Word)0) >> TAGBITS))
-  #else
-    #define strip_tag(w)	((w) & ((~(Word)0) << TAGBITS))
-  #endif
-#endif
-
 ").
 
 :- pragma c_code(

-- 
Fergus Henderson <fjh at cs.mu.oz.au>   |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>   |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3         |     -- the last words of T. S. Garp.



More information about the developers mailing list