/[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 74866 by manus, Mon Sep 29 16:28:32 2008 UTC revision 76432 by manus, Mon Dec 29 23:41:59 2008 UTC
# Line 1  Line 1 
1  indexing  note
2          description: "Actual type for real 32 bits type."          description: "Actual type for real 32 bits type."
3          legal: "See notice at end of class."          legal: "See notice at end of class."
4          status: "See notice at end of class."          status: "See notice at end of class."
# Line 19  create Line 19  create
19    
20  feature {NONE} -- Initialization  feature {NONE} -- Initialization
21    
22          default_create is          default_create
23                          -- Initialize new instance of REAL_32_A.                          -- Initialize new instance of REAL_32_A.
24                  do                  do
25                          make (associated_class.class_id)                          make (associated_class.class_id)
# Line 27  feature {NONE} -- Initialization Line 27  feature {NONE} -- Initialization
27    
28  feature -- Visitor  feature -- Visitor
29    
30          process (v: TYPE_A_VISITOR) is          process (v: TYPE_A_VISITOR)
31                          -- Process current element.                          -- Process current element.
32                  do                  do
33                          v.process_real_32_a (Current)                          v.process_real_32_a (Current)
# Line 35  feature -- Visitor Line 35  feature -- Visitor
35    
36  feature -- Property  feature -- Property
37    
38          is_real_32: BOOLEAN is True          is_real_32: BOOLEAN = True
39                          -- Is the current type a real 32 bits type ?                          -- Is the current type a real 32 bits type ?
40    
41  feature -- Access  feature -- Access
42    
43          associated_class: CLASS_C is          associated_class: CLASS_C
44                          -- Class REAL                          -- Class REAL
45                  once                  once
46                          Result := System.real_32_class.compiled_class                          Result := System.real_32_class.compiled_class
# Line 48  feature -- Access Line 48  feature -- Access
48    
49  feature -- IL code generation  feature -- IL code generation
50    
51          heaviest (other: TYPE_A): TYPE_A is          heaviest (other: TYPE_A): TYPE_A
52                          -- `other' if `other' is heavier than Current,                          -- `other' if `other' is heavier than Current,
53                          -- Current otherwise.                          -- Current otherwise.
54                  do                  do
# Line 61  feature -- IL code generation Line 61  feature -- IL code generation
61    
62  feature {COMPILER_EXPORTER}  feature {COMPILER_EXPORTER}
63    
64          is_numeric: BOOLEAN is True          is_numeric: BOOLEAN = True
65                          -- Is the current type a numeric type ?                          -- Is the current type a numeric type ?
66    
67          c_type: REAL_32_I is          c_type: REAL_32_I
68                          -- C type                          -- C type
69                  do                  do
70                          Result := real32_c_type                          Result := real32_c_type
71                  end                  end
72    
73          same_as (other: TYPE_A): BOOLEAN is          same_as (other: TYPE_A): BOOLEAN
74                          -- Is the current type the same as `other' ?                          -- Is the current type the same as `other' ?
75                  do                  do
76                          Result := same_type (other)                          Result := same_type (other)
77                  end                  end
78    
79  indexing  note
80          copyright:      "Copyright (c) 1984-2007, Eiffel Software"          copyright:      "Copyright (c) 1984-2007, Eiffel Software"
81          license:        "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"          license:        "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
82          licensing_options:      "http://www.eiffel.com/licensing"          licensing_options:      "http://www.eiffel.com/licensing"

Legend:
Removed from v.74866  
changed lines
  Added in v.76432

  ViewVC Help
Powered by ViewVC 1.1.23