/[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 71645 by alexk, Tue Dec 25 08:24:57 2007 UTC revision 72419 by manus, Sat Feb 23 00:45:27 2008 UTC
# Line 11  inherit Line 11  inherit
11          BASIC_A          BASIC_A
12                  redefine                  redefine
13                          is_real_32, associated_class, same_as, is_numeric,                          is_real_32, associated_class, same_as, is_numeric,
14                          default_create, process                          default_create, process, heaviest
15                  end                  end
16    
17  create  create
# Line 38  feature -- Property Line 38  feature -- Property
38          is_real_32: BOOLEAN is True          is_real_32: BOOLEAN is True
39                          -- Is the current type a real 32 bits type ?                          -- Is the current type a real 32 bits type ?
40    
41    feature -- Access
42    
43          associated_class: CLASS_C is          associated_class: CLASS_C is
44                          -- Class REAL                          -- Class REAL
45                  once                  once
46                          Result := System.real_32_class.compiled_class                          Result := System.real_32_class.compiled_class
47                  end                  end
48    
49    feature -- IL code generation
50    
51            heaviest (other: TYPE_A): TYPE_A is
52                            -- `other' if `other' is heavier than Current,
53                            -- Current otherwise.
54                    do
55                            if other.is_real_64 then
56                                    Result := other
57                            else
58                                    Result := Current
59                            end
60                    end
61    
62  feature {COMPILER_EXPORTER}  feature {COMPILER_EXPORTER}
63    
64          is_numeric: BOOLEAN is True          is_numeric: BOOLEAN is True
65                          -- Is the current type a numeric type ?                          -- Is the current type a numeric type ?
66    
67          type_i: REAL_32_I is          c_type: REAL_32_I is
68                          -- C type                          -- C type
69                  do                  do
70                          Result := real32_c_type                          Result := real32_c_type

Legend:
Removed from v.71645  
changed lines
  Added in v.72419

  ViewVC Help
Powered by ViewVC 1.1.23