/[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 71150 by alexk, Wed Nov 14 19:34:34 2007 UTC revision 71645 by alexk, Tue Dec 25 08:24:57 2007 UTC
# Line 57  feature {COMPILER_EXPORTER} Line 57  feature {COMPILER_EXPORTER}
57    
58          same_as (other: TYPE_A): BOOLEAN is          same_as (other: TYPE_A): BOOLEAN is
59                          -- Is the current type the same as `other' ?                          -- Is the current type the same as `other' ?
60                    local
61                            o: REAL_32_A
62                  do                  do
63                          Result := other.is_real_32                          o ?= other
64                                  and then is_attached = other.is_attached                          Result := o /= Void     and then has_same_attachment_marks (o)
65                  end                  end
66    
67  indexing  indexing

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

  ViewVC Help
Powered by ViewVC 1.1.23