/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 49345 by manus, Mon Mar 21 16:43:52 2005 UTC revision 49446 by manus, Thu Mar 24 07:11:22 2005 UTC
# Line 218  feature -- Status Line 218  feature -- Status
218                          -- Void element type                          -- Void element type
219                  do                  do
220                          if is_expanded then                          if is_expanded then
221                                  Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_valuetype                                                                Result := {MD_SIGNATURE_CONSTANTS}.Element_type_valuetype                              
222                          else                          else
223                                  if class_id = System.system_string_class.compiled_class.class_id then                                  if class_id = System.system_string_class.compiled_class.class_id then
224                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_string                                          Result := {MD_SIGNATURE_CONSTANTS}.Element_type_string
225                                  elseif class_id = System.system_object_id or class_id = system.any_id then                                  elseif class_id = System.system_object_id or class_id = system.any_id then
226                                                  -- For ANY or SYSTEM_OBJECT, we always generate a System.Object                                                  -- For ANY or SYSTEM_OBJECT, we always generate a System.Object
227                                                  -- signature since we can now assign SYSTEM_OBJECTs into ANYs.                                                  -- signature since we can now assign SYSTEM_OBJECTs into ANYs.
228                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_object                                          Result := {MD_SIGNATURE_CONSTANTS}.Element_type_object
229                                  else                                  else
230                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_class                                          Result := {MD_SIGNATURE_CONSTANTS}.Element_type_class
231                                  end                                  end
232                          end                          end
233                  end                  end
# Line 235  feature -- Status Line 235  feature -- Status
235          tuple_code: INTEGER_8 is          tuple_code: INTEGER_8 is
236                          -- Tuple code for class type                          -- Tuple code for class type
237                  do                  do
238                          Result := feature {SHARED_GEN_CONF_LEVEL}.reference_tuple_code                          Result := {SHARED_GEN_CONF_LEVEL}.reference_tuple_code
239                  end                  end
240                                    
241          is_expanded: BOOLEAN          is_expanded: BOOLEAN

Legend:
Removed from v.49345  
changed lines
  Added in v.49446

  ViewVC Help
Powered by ViewVC 1.1.23