/[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 11302 by manus, Sun Sep 13 22:35:07 1998 UTC revision 26913 by manus, Sun Aug 12 23:50:20 2001 UTC
# Line 10  class REAL_A Line 10  class REAL_A
10  inherit  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, weight,
14                          internal_conform_to                          internal_conform_to
15                  end                  end
16    
# Line 42  feature {COMPILER_EXPORTER} Line 42  feature {COMPILER_EXPORTER}
42          is_numeric: BOOLEAN is True          is_numeric: BOOLEAN is True
43                          -- Is the current type a numeric type ?                          -- Is the current type a numeric type ?
44    
45          heaviest (type: TYPE_A): TYPE_A is          weight: INTEGER is 8
46                          -- Heaviest numeric type for balancing rule                          -- Weight of Current.
47                  do                                -- Used to evaluate type of an expression with balancing rule.
                         if type.is_double then  
                                 Result := type  
                         else  
                                 Result := Current  
                         end  
                 end  
48    
49          type_i: FLOAT_I is          type_i: FLOAT_I is
50                          -- C type                          -- C type

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

  ViewVC Help
Powered by ViewVC 1.1.23