[m-rev.] trivial diff: fix runtime compilation in asm_fast.gc.memprof

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

Fix a problem that broke compiling the runtime in asm_fast.gc.memprof
on saturn.

runtime/mercury_bitmap.c:
 	The third argument of MR_allocate_aligned_string_msg cannot be
 	NULL.

Julien.

Index: mercury_bitmap.c
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/runtime/mercury_bitmap.c,v
retrieving revision 1.1
diff -u -r1.1 mercury_bitmap.c
--- mercury_bitmap.c	13 Feb 2007 01:58:56 -0000	1.1
+++ mercury_bitmap.c	14 Feb 2007 02:11:47 -0000
@@ -103,7 +103,7 @@
      if (use_saved_hp) {
          MR_allocate_aligned_string_saved_hp(result, len);
      } else {
-        MR_allocate_aligned_string_msg(result, len, NULL);
+        MR_allocate_aligned_string_msg(result, len, "MR_do_bitmap_to_string");
      }

      if (quote) {
@@ -146,7 +146,8 @@
      if (res != 1) {
          return NULL;
      }
-    MR_allocate_bitmap_msg(result, (MR_Integer) result_bits, NULL);
+    MR_allocate_bitmap_msg(result, (MR_Integer) result_bits,
+        "MR_string_to_bitmap");
      result->num_bits = result_bits;
      for (i = 0; i < MR_bitmap_length_in_bytes(result_bits); i++) {
          int h1, h2;
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------