about summary refs log tree commit diff stats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--020run.cc6
-rw-r--r--030container.cc8
-rw-r--r--031merge.cc2
-rw-r--r--032array.cc6
-rw-r--r--033exclusive_container.cc8
-rw-r--r--036refcount.cc2
-rw-r--r--042name.cc4
-rw-r--r--043space.cc8
-rw-r--r--046global.cc4
-rw-r--r--050scenario.cc4
-rw-r--r--055shape_shifting_container.cc4
-rw-r--r--082scenario_screen.cc2
-rw-r--r--085scenario_console.cc2
-rw-r--r--089scenario_filesystem.cc2
14 files changed, 31 insertions, 31 deletions
diff --git a/020run.cc b/020run.cc
index 3d0935f4..746bc9cd 100644
--- a/020run.cc
+++ b/020run.cc
@@ -324,18 +324,18 @@ void write_memory(reagent/*copy*/ x, const vector<double>& data) {
 :(code)
 int size_of(const reagent& r) {
   if (!r.type) return 0;
-  // End size_of(reagent r) Cases
+  // End size_of(reagent r) Special-cases
   return size_of(r.type);
 }
 int size_of(const type_tree* type) {
   if (!type) return 0;
-  // End size_of(type) Cases
+  // End size_of(type) Special-cases
   return 1;
 }
 
 bool size_mismatch(const reagent& x, const vector<double>& data) {
   if (!x.type) return true;
-  // End size_mismatch(x) Cases
+  // End size_mismatch(x) Special-cases
 //?   if (size_of(x) != SIZE(data)) cerr << size_of(x) << " vs " << SIZE(data) << '\n';
   return size_of(x) != SIZE(data);
 }
diff --git a/030container.cc b/030container.cc
index c5edb686..572e6a2a 100644
--- a/030container.cc
+++ b/030container.cc
@@ -144,10 +144,10 @@ void clear_container_metadata() {
 
 //: do no work in size_of, simply lookup Container_metadata
 
-:(before "End size_of(reagent r) Cases")
+:(before "End size_of(reagent r) Special-cases")
 if (r.metadata.size) return r.metadata.size;
 
-:(before "End size_of(type) Cases")
+:(before "End size_of(type) Special-cases")
 if (type->atom) {
   if (type->value == -1) return 1;  // error value, but we'll raise it elsewhere
   if (type->value == 0) return 1;
@@ -219,7 +219,7 @@ void compute_container_sizes(const type_tree* type, set<type_tree>& pending_meta
         element_type = element_type->left;
       compute_container_sizes(element_type, pending_metadata, location_for_error_messages);
     }
-    // End compute_container_sizes Non-atom Cases
+    // End compute_container_sizes Non-atom Special-cases
     return;
   }
   assert(type->atom);
@@ -228,7 +228,7 @@ void compute_container_sizes(const type_tree* type, set<type_tree>& pending_meta
   if (info.kind == CONTAINER) {
     compute_container_sizes(info, type, pending_metadata, location_for_error_messages);
   }
-  // End compute_container_sizes Atom Cases
+  // End compute_container_sizes Atom Special-cases
 }
 
 void compute_container_sizes(const type_info& container_info, const type_tree* full_type, set<type_tree>& pending_metadata, const string& location_for_error_messages) {
diff --git a/031merge.cc b/031merge.cc
index d89ce2b0..75dc466b 100644
--- a/031merge.cc
+++ b/031merge.cc
@@ -183,7 +183,7 @@ void check_merge_call(const vector<reagent>& ingredients, const reagent& product
         }
         break;
       }
-      // End check_merge_call Cases
+      // End check_merge_call Special-cases
       default: {
         if (!types_coercible(container, ingredients.at(ingredient_index))) {
           raise << maybe(caller.name) << "incorrect type of ingredient " << ingredient_index << " in '" << inst.original_string << "'\n" << end();
diff --git a/032array.cc b/032array.cc
index c9182912..b4a5848a 100644
--- a/032array.cc
+++ b/032array.cc
@@ -98,7 +98,7 @@ def main [
 ]
 +app: foo: 3 14 15 16
 
-:(before "End size_of(reagent r) Cases")
+:(before "End size_of(reagent r) Special-cases")
 if (!r.type->atom && r.type->left->atom && r.type->left->value == get(Type_ordinal, "array")) {
   if (!r.type->right) {
     raise << maybe(current_recipe_name()) << "'" << r.original_string << "' is an array of what?\n" << end();
@@ -112,7 +112,7 @@ if (!r.type->atom && r.type->left->atom && r.type->left->value == get(Type_ordin
 
 //: disable the size mismatch check for arrays since the destination array
 //: need not be initialized
-:(before "End size_mismatch(x) Cases")
+:(before "End size_mismatch(x) Special-cases")
 if (x.type && !x.type->atom && x.type->left->value == get(Type_ordinal, "array")) return false;
 
 //: arrays are disallowed inside containers unless their length is fixed in
@@ -133,7 +133,7 @@ container foo [
 
 //: disable the size mismatch check for 'merge' instructions since containers
 //: can contain arrays, and since we already do plenty of checking for them
-:(before "End size_mismatch(x) Cases")
+:(before "End size_mismatch(x) Special-cases")
 if (current_call().running_step_index < SIZE(get(Recipe, current_call().running_recipe).steps)
     && current_instruction().operation == MERGE) {
   return false;
diff --git a/033exclusive_container.cc b/033exclusive_container.cc
index 88b33639..bf79e064 100644
--- a/033exclusive_container.cc
+++ b/033exclusive_container.cc
@@ -30,12 +30,12 @@ def main [
 +mem: storing 34 in location 5
 +mem: storing 35 in location 6
 
-:(before "End size_of(type) Cases")
+:(before "End size_of(type) Special-cases")
 if (t.kind == EXCLUSIVE_CONTAINER) {
   // Compute size_of Exclusive Container
   return get(Container_metadata, type).size;
 }
-:(before "End compute_container_sizes Atom Cases")
+:(before "End compute_container_sizes Atom Special-cases")
 if (info.kind == EXCLUSIVE_CONTAINER) {
   compute_exclusive_container_sizes(info, type, pending_metadata, location_for_error_messages);
 }
@@ -314,7 +314,7 @@ def main [
 +mem: storing 34 in location 6
 $error: 0
 
-:(before "End check_merge_call Cases")
+:(before "End check_merge_call Special-cases")
 case EXCLUSIVE_CONTAINER: {
   assert(state.data.top().container_element_index == 0);
   trace(9999, "transform") << "checking exclusive container " << to_string(container) << " vs ingredient " << ingredient_index << end();
@@ -435,7 +435,7 @@ $error: 0
 
 //: Since the different variants of an exclusive-container might have
 //: different sizes, relax the size mismatch check for 'merge' instructions.
-:(before "End size_mismatch(x) Cases")
+:(before "End size_mismatch(x) Special-cases")
 if (current_step_index() < SIZE(Current_routine->steps())
     && current_instruction().operation == MERGE
     && !current_instruction().products.empty()
diff --git a/036refcount.cc b/036refcount.cc
index 267eb364..ba0f3560 100644
--- a/036refcount.cc
+++ b/036refcount.cc
@@ -319,7 +319,7 @@ void compute_container_address_offsets(const type_tree* type, const string& loca
         element_type = element_type->left;
       compute_container_address_offsets(element_type, location_for_error_messages);
     }
-    // End compute_container_address_offsets Non-atom Cases
+    // End compute_container_address_offsets Non-atom Special-cases
   }
   if (!contains_key(Type, root_type(type)->value)) return;  // error raised elsewhere
   type_info& info = get(Type, root_type(type)->value);
diff --git a/042name.cc b/042name.cc
index 1fd559e8..6b6d2a74 100644
--- a/042name.cc
+++ b/042name.cc
@@ -104,7 +104,7 @@ bool is_disqualified(/*mutable*/ reagent& x, const instruction& inst, const stri
   }
   if (is_raw(x)) return true;
   if (is_literal(x)) return true;
-  // End is_disqualified Cases
+  // End is_disqualified Special-cases
   if (x.initialized) return true;
   return false;
 }
@@ -150,7 +150,7 @@ bool is_named_location(const reagent& x) {
 bool is_special_name(const string& s) {
   if (s == "_") return true;
   if (s == "0") return true;
-  // End is_special_name Cases
+  // End is_special_name Special-cases
   return false;
 }
 
diff --git a/043space.cc b/043space.cc
index 5d8d8d72..409cd614 100644
--- a/043space.cc
+++ b/043space.cc
@@ -43,10 +43,10 @@ def main [
 +name: assign x 1
 -name: assign default-space 1
 
-:(before "End is_disqualified Cases")
+:(before "End is_disqualified Special-cases")
 if (x.name == "default-space")
   x.initialized = true;
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "default-space") return true;
 
 //:: now implement space support
@@ -166,10 +166,10 @@ def main [
 # allocate space for x and y, as well as the chaining slot at 0
 +mem: array length is 3
 
-:(before "End is_disqualified Cases")
+:(before "End is_disqualified Special-cases")
 if (x.name == "number-of-locals")
   x.initialized = true;
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "number-of-locals") return true;
 
 :(before "End Rewrite Instruction(curr, recipe result)")
diff --git a/046global.cc b/046global.cc
index 6990844b..2dc1e760 100644
--- a/046global.cc
+++ b/046global.cc
@@ -29,10 +29,10 @@ def main [
 +mem: storing 24 in location 23
 
 //: to support it, create another special variable called global space
-:(before "End is_disqualified Cases")
+:(before "End is_disqualified Special-cases")
 if (x.name == "global-space")
   x.initialized = true;
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "global-space") return true;
 
 //: writes to this variable go to a field in the current routine
diff --git a/050scenario.cc b/050scenario.cc
index 0ee3aa53..88821a78 100644
--- a/050scenario.cc
+++ b/050scenario.cc
@@ -225,7 +225,7 @@ void maybe_make_raw(reagent& r, const recipe& caller) {
 }
 
 //: Test.
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "__maybe_make_raw_test__") return true;
 :(before "End Special Scenario Variable Names(r)")
 //: ugly: we only need this for this one test, but need to define it for all time
@@ -416,7 +416,7 @@ void check_type(const string& lhs, istream& in) {
     check_string(address, literal);
     return;
   }
-  // End Scenario Type Cases
+  // End Scenario Type Special-cases
   raise << "don't know how to check memory for '" << lhs << "'\n" << end();
 }
 
diff --git a/055shape_shifting_container.cc b/055shape_shifting_container.cc
index 5d70238c..707ac125 100644
--- a/055shape_shifting_container.cc
+++ b/055shape_shifting_container.cc
@@ -490,7 +490,7 @@ def main [
 //: offsets containing addresses for containers and exclusive containers --
 //: that we need to teach about type ingredients.
 
-:(before "End compute_container_sizes Non-atom Cases")
+:(before "End compute_container_sizes Non-atom Special-cases")
 const type_tree* root = root_type(type);
 type_info& info = get(Type, root->value);
 if (info.kind == CONTAINER) {
@@ -550,7 +550,7 @@ void test_container_sizes_recursive_shape_shifting_container() {
   CHECK_EQ(r2.metadata.size, 2);
 }
 
-:(before "End compute_container_address_offsets Non-atom Cases")
+:(before "End compute_container_address_offsets Non-atom Special-cases")
 const type_tree* root = root_type(type);
 type_info& info = get(Type, root->value);
 if (info.kind == CONTAINER) {
diff --git a/082scenario_screen.cc b/082scenario_screen.cc
index e5fe76b3..e2fe16e5 100644
--- a/082scenario_screen.cc
+++ b/082scenario_screen.cc
@@ -152,7 +152,7 @@ extern const int SCREEN = Next_predefined_global_for_scenarios++;
 :(before "End Special Scenario Variable Names(r)")
 Name[r]["screen"] = SCREEN;
 //: make 'screen' always a raw location in scenarios
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "screen") return true;
 
 :(before "End Rewrite Instruction(curr, recipe result)")
diff --git a/085scenario_console.cc b/085scenario_console.cc
index f781a8ca..2b6c7e8a 100644
--- a/085scenario_console.cc
+++ b/085scenario_console.cc
@@ -39,7 +39,7 @@ extern const int CONSOLE = Next_predefined_global_for_scenarios++;
 :(before "End Special Scenario Variable Names(r)")
 Name[r]["console"] = CONSOLE;
 //: make 'console' always a raw location in scenarios
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "console") return true;
 
 :(before "End Primitive Recipe Declarations")
diff --git a/089scenario_filesystem.cc b/089scenario_filesystem.cc
index dfbc245d..ba126cfe 100644
--- a/089scenario_filesystem.cc
+++ b/089scenario_filesystem.cc
@@ -76,7 +76,7 @@ extern const int RESOURCES = Next_predefined_global_for_scenarios++;
 :(before "End Special Scenario Variable Names(r)")
 Name[r]["resources"] = RESOURCES;
 //: make 'resources' always a raw location in scenarios
-:(before "End is_special_name Cases")
+:(before "End is_special_name Special-cases")
 if (s == "resources") return true;
 :(before "End Initialize Type Of Special Name In Scenario(r)")
 if (r.name == "resources") r.type = new_type_tree("address:resources");
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-01-13 11:51:05 +0000