/[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 31263 by manus, Wed Apr 3 19:23:50 2002 UTC revision 31541 by manus, Tue Apr 16 00:30:54 2002 UTC
# Line 212  feature -- Access Line 212  feature -- Access
212    
213  feature -- Status  feature -- Status
214    
215            element_type: INTEGER_8 is
216                            -- Void element type
217                    do
218                            if is_expanded then
219                                    Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_valuetype                              
220                            else
221                                    if base_class = System.system_string_class.compiled_class then
222                                            Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_string
223                                    elseif base_class.class_id = System.system_object_id then
224                                            Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_object
225                                    else
226                                            Result := feature {MD_SIGNATURE_CONSTANTS}.Element_type_class
227                                    end
228                            end
229                    end
230    
231          is_true_expanded: BOOLEAN          is_true_expanded: BOOLEAN
232                          -- Is the type expanded?                          -- Is the type expanded?
233    

Legend:
Removed from v.31263  
changed lines
  Added in v.31541

  ViewVC Help
Powered by ViewVC 1.1.23