[m-rev.] trivial diff: minor fixes for runtime tabling support

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

Minor fixes for the tabling support in the runtime.

runtime/mercury_table_int_fix_index_body.h:
runtime/mercury_table_int_start_index_body.h:
 	s/memset/MR_memset/

runtime/mercury_table_type_body.h:
 	s/table/tabled/

Julien.

Index: mercury_table_int_fix_index_body.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_table_int_fix_index_body.h,v
retrieving revision 1.1
diff -u -r1.1 mercury_table_int_fix_index_body.h
--- mercury_table_int_fix_index_body.h	8 Jun 2006 08:20:00 -0000	1.1
+++ mercury_table_int_fix_index_body.h	30 Nov 2006 05:15:46 -0000
@@ -18,7 +18,7 @@
      if (t->MR_fix_table == NULL) {
          record_alloc();
          t->MR_fix_table = MR_TABLE_NEW_ARRAY(MR_TableNode, range);
-        memset(t->MR_fix_table, 0, sizeof(MR_TableNode) * range);
+        MR_memset(t->MR_fix_table, 0, sizeof(MR_TableNode) * range);
      }

  #ifdef  MR_TABLE_DEBUG
Index: mercury_table_int_start_index_body.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_table_int_start_index_body.h,v
retrieving revision 1.1
diff -u -r1.1 mercury_table_int_start_index_body.h
--- mercury_table_int_start_index_body.h	8 Jun 2006 08:20:00 -0000	1.1
+++ mercury_table_int_start_index_body.h	30 Nov 2006 05:16:27 -0000
@@ -26,7 +26,7 @@
          record_alloc();
          size = MR_max(MR_START_TABLE_INIT_SIZE, diff + 1);
          table->MR_start_table = MR_TABLE_NEW_ARRAY(MR_TableNode, size + 1);
-        memset(table->MR_start_table + 1, 0, sizeof(MR_TableNode) * size);
+        MR_memset(table->MR_start_table + 1, 0, sizeof(MR_TableNode) * size);
          table->MR_start_table[0].MR_integer = size;
      } else {
          size = table->MR_start_table[0].MR_integer;
Index: mercury_table_type_body.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_table_type_body.h,v
retrieving revision 1.2
diff -u -r1.2 mercury_table_type_body.h
--- mercury_table_type_body.h	30 Nov 2006 04:13:53 -0000	1.2
+++ mercury_table_type_body.h	30 Nov 2006 05:17:41 -0000
@@ -42,7 +42,7 @@
              /*
              ** If we are ever asked to table a value of a dummy type, we treat
              ** it mostly as an enum, with the exception being that we ignore
-            ** the actual value to be table (since it contains garbage) and
+            ** the actual value to be tabled (since it contains garbage) and
              ** substitute the constant zero, which ought to be the enum value
              ** assigned to the type's only function symbol.
              **


--------------------------------------------------------------------------
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
--------------------------------------------------------------------------