changed new_type_pointer() to new semantic

[r6413]

diff --git a/testprograms/call_str_example.c b/testprograms/call_str_example.c
index 876f375..c35c3a7 100644 (file)
--- a/testprograms/call_str_example.c
+++ b/testprograms/call_str_example.c
@@ -51,7 +51,7 @@ int main(int argc, char **argv)
   U8 = new_type_primitive (new_id_from_chars("char", 4), mode_Bu);
   /* An array containing unsigned 8 bit elements. */
   U8array = new_type_array (new_id_from_chars("char_arr", 8), 1, U8);
-  string_ptr = new_type_pointer (new_id_from_chars ("ptr_to_string", 13), U8array);
+  string_ptr = new_type_pointer (new_id_from_chars ("ptr_to_string", 13), U8array, mode_P);
 
   /* Make a global entity that represents the constant String. */
   const_str = new_entity(get_glob_type(), new_id_from_str("constStr"), U8array);

diff --git a/testprograms/const_ent_example.c b/testprograms/const_ent_example.c
index 4c59d89..ad8801c 100644 (file)
--- a/testprograms/const_ent_example.c
+++ b/testprograms/const_ent_example.c
@@ -78,7 +78,7 @@ int main(int argc, char **argv)
   gt = new_type_method(gti, 1, 0);  /* 1 parameter, 0 results */
   /* Compiler defined types: dispatch table and pointer to it  */
   diptt = new_type_class(dipti);
-  diptpt = new_type_pointer(diptpi, diptt);
+  diptpt = new_type_pointer(diptpi, diptt, mode_P);
   /** add structure to type graph **/
   /* parameters of methods */
   set_method_param_type(gt, 0, intt);

diff --git a/testprograms/oo_inline_example.c b/testprograms/oo_inline_example.c
index a3c952f..f2b7fd6 100644 (file)
--- a/testprograms/oo_inline_example.c
+++ b/testprograms/oo_inline_example.c
@@ -75,7 +75,7 @@ main(void)
   class_prima = new_type_class(new_id_from_str ("PRIMA_INLINE"));
   /* We need type information for pointers to the class: */
   class_p_ptr = new_type_pointer (new_id_from_chars ("class_prima_ptr", 15),
-                                 class_prima);
+                                 class_prima, mode_P);
   /* An entity for the field (a).  The entity constructor automatically adds
      the entity as member of the owner. */
   a_e = new_entity(class_prima, new_id_from_chars ("a", 1), prim_t_int);

diff --git a/testprograms/oo_program_example.c b/testprograms/oo_program_example.c
index b0010de..6112dce 100644 (file)
--- a/testprograms/oo_program_example.c
+++ b/testprograms/oo_program_example.c
@@ -73,7 +73,7 @@ main(void)
   class_prima = new_type_class(new_id_from_chars ("PRIMA", 5));
   /* We need type information for pointers to the class: */
   class_p_ptr = new_type_pointer (new_id_from_chars("class_prima_ptr", 15),
-                                 class_prima);
+                                 class_prima, mode_P);
   /* An entity for the field (a).  The entity constructor automatically adds
      the entity as member of the owner. */
   a_e = new_entity(class_prima, new_id_from_chars ("a", 1), prim_t_int);