/[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 44058 by manus, Wed Jun 30 23:08:24 2004 UTC revision 44445 by manus, Wed Jul 21 05:31:04 2004 UTC
# Line 170  feature -- Access Line 170  feature -- Access
170                          Result := Reference_c_type                          Result := Reference_c_type
171                  end                  end
172    
         reference_type: CL_TYPE_I is  
                         -- Associated reference type of Current  
                 do  
                         if not is_expanded then  
                                 Result := Current  
                         else  
                                 Result := twin  
                                 Result.set_is_expanded (False)  
                         end  
                 end  
   
         associated_reference_class_type: CLASS_TYPE is  
                         -- Reference class type of Current  
                 do  
                         Result := reference_type.associated_class_type  
                 end  
                   
173          associated_class_type: CLASS_TYPE is          associated_class_type: CLASS_TYPE is
174                          -- Associated class type                          -- Associated class type
175                  require                  require
# Line 499  feature {NONE} -- Implementation Line 482  feature {NONE} -- Implementation
482                          l_base_class := base_class                          l_base_class := base_class
483                          if is_expanded and not l_base_class.is_expanded then                          if is_expanded and not l_base_class.is_expanded then
484                                  Result.append ("expanded ")                                  Result.append ("expanded ")
                         elseif not is_expanded and l_base_class.is_expanded then  
                                 Result.append ("reference ")  
485                          elseif is_separate then                          elseif is_separate then
486                                  Result.append ("separate ")                                  Result.append ("separate ")
487                          end                          end

Legend:
Removed from v.44058  
changed lines
  Added in v.44445

  ViewVC Help
Powered by ViewVC 1.1.23