[m-dev.] trivial diff: memory allocation names & tr_array.m

Fergus Henderson fjh at cs.mu.OZ.AU
Tue Oct 19 07:47:37 AEST 1999


Estimated hours taken: 0.25

extras/trailed_update/tr_array.m:
	Update to reflect the new names of the memory allocation
	macros: s/make_many/MR_GC_NEW_ARRAY/

Workspace: /d-drive/home/hg/fjh/mercury
Index: extras/trailed_update/tr_array.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/trailed_update/tr_array.m,v
retrieving revision 1.4
diff -u -r1.4 tr_array.m
--- extras/trailed_update/tr_array.m	1997/10/06 18:44:55	1.4
+++ extras/trailed_update/tr_array.m	1999/10/18 21:45:48
@@ -300,7 +300,7 @@
 		elements_to_copy = array_size;
 	}
 
-	array = (MR_ArrayType *) make_many(Word, array_size + 1);
+	array = (MR_ArrayType *) MR_GC_NEW_ARRAY(Word, array_size + 1);
 	array->size = array_size;
 	for (i = 0; i < elements_to_copy; i++) {
 		array->elements[i] = old_array->elements[i];
@@ -356,7 +356,7 @@
 		fatal_error(""tr_array__shrink: can't shrink to a larger size"");
 	}
 
-	array = (MR_ArrayType *) make_many(Word, array_size + 1);
+	array = (MR_ArrayType *) MR_GC_NEW_ARRAY(Word, array_size + 1);
 	array->size = array_size;
 	for (i = 0; i < array_size; i++) {
 		array->elements[i] = old_array->elements[i];

-- 
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.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------



More information about the developers mailing list