/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/API/evaluated_type/like_type_a.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/API/evaluated_type/like_type_a.e

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

revision 26913 by manus, Sun Aug 12 23:50:20 2001 UTC revision 30264 by manus, Mon Jan 21 01:39:29 2002 UTC
# Line 29  feature -- Properties Line 29  feature -- Properties
29          has_like: BOOLEAN is True          has_like: BOOLEAN is True
30                          -- Does the type have anchored type in its definition ?                          -- Does the type have anchored type in its definition ?
31    
         rout_id: INTEGER  
   
         set_rout_id (rid: like rout_id) is  
                         -- Set `set_rout_id' to `rid'.  
                 do  
                         rout_id := rid  
                 end  
   
32          class_id: INTEGER          class_id: INTEGER
33                          -- Class ID of the class where the anchor is referenced                          -- Class ID of the class where the anchor is referenced
34    
# Line 111  feature -- Primitives Line 103  feature -- Primitives
103                          cl_type ?= Result                          cl_type ?= Result
104    
105                          if cl_type /= Void then                          if cl_type /= Void then
106                                  -- Remember that it's an anchored type                                          -- Remember that it's an anchored type
107                                  cl_type.set_cr_info (create_info)                                  cl_type.set_cr_info (create_info)
108                          end                          end
109                  end                  end

Legend:
Removed from v.26913  
changed lines
  Added in v.30264

  ViewVC Help
Powered by ViewVC 1.1.23