/[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 72419 by manus, Sat Feb 23 00:45:27 2008 UTC revision 74866 by manus, Mon Sep 29 16:28:32 2008 UTC
# Line 72  feature {COMPILER_EXPORTER} Line 72  feature {COMPILER_EXPORTER}
72    
73          same_as (other: TYPE_A): BOOLEAN is          same_as (other: TYPE_A): BOOLEAN is
74                          -- Is the current type the same as `other' ?                          -- Is the current type the same as `other' ?
                 local  
                         o: REAL_32_A  
75                  do                  do
76                          o ?= other                          Result := same_type (other)
                         Result := o /= Void     and then has_same_attachment_marks (o)  
77                  end                  end
78    
79  indexing  indexing

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

  ViewVC Help
Powered by ViewVC 1.1.23