/[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 35702 by manus, Fri Jan 31 23:54:48 2003 UTC revision 37130 by manus, Mon May 5 18:08:43 2003 UTC
# Line 11  inherit Line 11  inherit
11                          is_reference,                          is_reference,
12                          is_true_expanded,                          is_true_expanded,
13                          is_separate,                          is_separate,
                         is_out,  
14                          is_valid,                          is_valid,
15                          is_explicit,                          is_explicit,
16                          is_external,                          is_external,
# Line 240  feature -- Status Line 239  feature -- Status
239                                          -- We only support expanded for external class at the moment.                                          -- We only support expanded for external class at the moment.
240                                  Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_valuetype                                                                Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_valuetype                              
241                          else                          else
242                                  if base_class = System.system_string_class.compiled_class then                                  if class_id = System.system_string_class.compiled_class.class_id then
243                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_string                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_string
244                                  elseif base_class.class_id = System.system_object_id then                                  elseif class_id = System.system_object_id then
245                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_object                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_object
246                                  else                                  else
247                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_class                                          Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_class
# Line 256  feature -- Status Line 255  feature -- Status
255          is_separate: BOOLEAN          is_separate: BOOLEAN
256                          -- Is the type separate?                          -- Is the type separate?
257    
         is_out: BOOLEAN  
                         -- Is current actual type represent a out parameter type?  
   
258          is_enum: BOOLEAN is          is_enum: BOOLEAN is
259                          -- Is current type an IL enum type?                          -- Is current type an IL enum type?
260                          -- Useful to find out if some call optimization can be done                          -- Useful to find out if some call optimization can be done
# Line 343  feature -- Setting Line 339  feature -- Setting
339                          is_separate_set: is_separate = b                          is_separate_set: is_separate = b
340                  end                  end
341    
         set_is_out (b: BOOLEAN) is  
                         -- Assign `b' to `is_out'.  
                 do  
                         is_out := b  
                 ensure  
                         is_out_set: is_out = b  
                 end  
                   
342          set_cr_info (cinfo : CREATE_INFO) is          set_cr_info (cinfo : CREATE_INFO) is
343                          -- Set `cr_info' to `cinfo'.                          -- Set `cr_info' to `cinfo'.
344                  require                  require

Legend:
Removed from v.35702  
changed lines
  Added in v.37130

  ViewVC Help
Powered by ViewVC 1.1.23