[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