/[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 11128 by manus, Mon Aug 24 02:25:56 1998 UTC revision 11302 by manus, Sun Sep 13 22:35:07 1998 UTC
# Line 11  inherit Line 11  inherit
11          BASIC_A          BASIC_A
12                  redefine                  redefine
13                          is_real, associated_class, same_as, is_numeric, heaviest,                          is_real, associated_class, same_as, is_numeric, heaviest,
14                          internal_conform_to, associated_eclass                          internal_conform_to
15                  end                  end
16    
17  feature -- Property  feature -- Property
# Line 19  feature -- Property Line 19  feature -- Property
19          is_real: BOOLEAN is True          is_real: BOOLEAN is True
20                          -- Is the current type a real type ?                          -- Is the current type a real type ?
21    
22  feature -- Access          associated_class: CLASS_C is
23                            -- Class REAL
         associated_eclass: CLASS_C is  
                         -- Associated eiffel class  
24                  once                  once
25                          Result := System.real_class.compiled_class                          Result := System.real_class.compiled_class
26                  end                  end
# Line 60  feature {COMPILER_EXPORTER} Line 58  feature {COMPILER_EXPORTER}
58                          Result := Float_c_type                          Result := Float_c_type
59                  end                  end
60    
         associated_class: CLASS_C is  
                         -- Class REAL  
                 require else  
                         real_class_compiled: System.real_class.compiled  
                 once  
                         Result := System.real_class.compiled_class  
                 end  
   
61          same_as (other: TYPE_A): BOOLEAN is          same_as (other: TYPE_A): BOOLEAN is
62                          -- Is the current type the same as `other' ?                          -- Is the current type the same as `other' ?
63                  do                  do

Legend:
Removed from v.11128  
changed lines
  Added in v.11302

  ViewVC Help
Powered by ViewVC 1.1.23