/[eiffelstudio]/branches/eth/eve/Src/Eiffel/API/evaluated_type/like_current.e
ViewVC logotype

Diff of /branches/eth/eve/Src/Eiffel/API/evaluated_type/like_current.e

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

revision 3374 by dinov, Tue Nov 21 16:40:33 1995 UTC revision 3375 by dinov, Mon Dec 4 11:38:01 1995 UTC
# Line 1  Line 1 
1  -- Actual type like Current  indexing
2    
3            description:
4                    "Actual type like Current.";
5            date: "$Date$";
6            revision: "$Revision $"
7    
8  class LIKE_CURRENT  class LIKE_CURRENT
9    
# Line 148  feature {COMPILER_EXPORTER} -- Primitive Line 153  feature {COMPILER_EXPORTER} -- Primitive
153                                  like_c.actual_type.is_deep_equal (actual_type);                                  like_c.actual_type.is_deep_equal (actual_type);
154                  end;                  end;
155    
                           
156          create_info: CREATE_CURRENT is          create_info: CREATE_CURRENT is
157                          -- Byte code information for entity type creation                          -- Byte code information for entity type creation
158                  once                  once
# Line 163  feature {COMPILER_EXPORTER} -- Storage i Line 167  feature {COMPILER_EXPORTER} -- Storage i
167                          !! Result.make ("like Current")                          !! Result.make ("like Current")
168                  end;                  end;
169    
170  end  end -- class LIKE_CURRENT

Legend:
Removed from v.3374  
changed lines
  Added in v.3375

  ViewVC Help
Powered by ViewVC 1.1.23