/[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 41732 by manus, Fri Mar 5 17:59:47 2004 UTC revision 47234 by manus, Sat Dec 25 00:19:09 2004 UTC
# Line 1  Line 1 
1  indexing  indexing
2            description: "Actual type for real 32 bits type."
         description:  
                 "Actual type for real type."  
3          date: "$Date$"          date: "$Date$"
4          revision: "$Revision $"          revision: "$Revision $"
5    
6  class REAL_A  class REAL_32_A
7    
8  inherit  inherit
9          BASIC_A          BASIC_A
10                  redefine                  redefine
11                          is_real, associated_class, same_as, is_numeric,                          is_real_32, associated_class, same_as, is_numeric,
12                          default_create                          default_create
13                  end                  end
14    
# Line 20  create Line 18  create
18  feature {NONE} -- Initialization  feature {NONE} -- Initialization
19    
20          default_create is          default_create is
21                          -- Initialize new instance of REAL_A.                          -- Initialize new instance of REAL_32_A.
22                  do                  do
23                          make (associated_class.class_id)                          make (associated_class.class_id)
24                  end                  end
25    
26  feature -- Property  feature -- Property
27    
28          is_real: BOOLEAN is True          is_real_32: BOOLEAN is True
29                          -- Is the current type a real type ?                          -- Is the current type a real 32 bits type ?
30    
31          associated_class: CLASS_C is          associated_class: CLASS_C is
32                          -- Class REAL                          -- Class REAL
33                  once                  once
34                          Result := System.real_class.compiled_class                          Result := System.real_32_class.compiled_class
35                  end                  end
36    
37  feature {COMPILER_EXPORTER}  feature {COMPILER_EXPORTER}
# Line 41  feature {COMPILER_EXPORTER} Line 39  feature {COMPILER_EXPORTER}
39          is_numeric: BOOLEAN is True          is_numeric: BOOLEAN is True
40                          -- Is the current type a numeric type ?                          -- Is the current type a numeric type ?
41    
42          type_i: FLOAT_I is          type_i: REAL_32_I is
43                          -- C type                          -- C type
44                  do                  do
45                          Result := float_c_type                          Result := real32_c_type
46                  end                  end
47    
48          same_as (other: TYPE_A): BOOLEAN is          same_as (other: TYPE_A): BOOLEAN is
49                          -- Is the current type the same as `other' ?                          -- Is the current type the same as `other' ?
50                  do                  do
51                          Result := other.is_real                          Result := other.is_real_32
52                  end                  end
53    
54  end -- class REAL_A  end -- class REAL_32_A

Legend:
Removed from v.41732  
changed lines
  Added in v.47234

  ViewVC Help
Powered by ViewVC 1.1.23