/[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 32079 by manus, Wed May 15 02:41:16 2002 UTC revision 32513 by manus, Mon Jun 17 23:06:17 2002 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, weight,                          is_real, associated_class, same_as, is_numeric, heaviest,
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          weight: INTEGER is 8          heaviest (t: TYPE_A): TYPE_A is
46                          -- Weight of Current.                          -- Heaviest numeric type for balancing rule.
47                          -- Used to evaluate type of an expression with balancing rule.                  do
48                            if t.is_double then
49                                    Result := t
50                            else
51                                    Result := Current
52                            end
53                    end
54    
55          type_i: FLOAT_I is          type_i: FLOAT_I is
56                          -- C type                          -- C type

Legend:
Removed from v.32079  
changed lines
  Added in v.32513

  ViewVC Help
Powered by ViewVC 1.1.23