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

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

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

revision 3078 by dinov, Mon Oct 30 11:24:52 1995 UTC revision 3181 by dinov, Tue Nov 21 16:40:33 1995 UTC
# Line 27  feature -- Property Line 27  feature -- Property
27                          Result := True;                          Result := True;
28                  end;                  end;
29    
30    feature -- Access
31    
32          associated_eclass: E_CLASS is          associated_eclass: E_CLASS is
33                          -- Associated eiffel class                          -- Associated eiffel class
34                  once                  once
35                          Result := associated_class.e_class;                          Result := System.real_class.compiled_eclass;
                                 --- **** TO BE FIXED System should not  
                                 -- have COMPILED class but E_CLASS  
36                  end;                  end;
37    
38  feature  feature {COMPILER_EXPORTER}
39    
40          internal_conform_to (other: TYPE_A; in_generics: BOOLEAN): BOOLEAN is          internal_conform_to (other: TYPE_A; in_generics: BOOLEAN): BOOLEAN is
41                          -- Does `other' conform to Current ?                          -- Does `other' conform to Current ?

Legend:
Removed from v.3078  
changed lines
  Added in v.3181

  ViewVC Help
Powered by ViewVC 1.1.23