/[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 28618 by manus, Wed Oct 31 04:02:12 2001 UTC revision 29681 by manus, Thu Dec 13 21:21:06 2001 UTC
# Line 63  feature -- Access Line 63  feature -- Access
63    
64          il_type_name: STRING is          il_type_name: STRING is
65                          -- Class name of current type.                          -- Class name of current type.
66                    local
67                            l_class_c: like base_class
68                  do                  do
69                          Result := clone (base_class.external_class_name)                          l_class_c := base_class
70                            if l_class_c.is_external then
71                                    Result := clone (base_class.external_class_name)
72                            else
73                                    Result := clone (base_class.name)
74                            end
75                  end                  end
76    
77          instantiation_in (other: GEN_TYPE_I): CL_TYPE_I is          instantiation_in (other: GEN_TYPE_I): CL_TYPE_I is

Legend:
Removed from v.28618  
changed lines
  Added in v.29681

  ViewVC Help
Powered by ViewVC 1.1.23