/[eiffelstudio]/branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e
ViewVC logotype

Diff of /branches/CAT_mono/Src/Eiffel/eiffel/genericity/cl_type_i.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42413 by manus, Fri Mar 26 03:31:02 2004 UTC revision 42865 by manus, Thu Apr 29 18:58:24 2004 UTC
# Line 200  feature -- Access Line 200  feature -- Access
200          associated_class_type: CLASS_TYPE is          associated_class_type: CLASS_TYPE is
201                          -- Associated class type                          -- Associated class type
202                  require                  require
203                  --      has: has_associated_class_type                          has: has_associated_class_type
204                  do                  do
205                          Result := base_class.types.search_item (Current)                          Result := base_class.types.search_item (Current)
206                  end                  end
# Line 221  feature -- Access Line 221  feature -- Access
221                          end                          end
222                  end                  end
223    
         cecil_value: INTEGER is  
                 do  
                         if not is_expanded then  
                                 Result := Sk_dtype  
                         else  
                                 Result := Sk_exp | class_id  
                         end  
                 end  
   
224          hash_code: INTEGER is          hash_code: INTEGER is
225                          -- Hash code for current type                          -- Hash code for current type
226                  do                  do
# Line 456  feature -- C generation Line 447  feature -- C generation
447                          -- Generate cecil value                          -- Generate cecil value
448                  do                  do
449                          if not is_expanded then                          if not is_expanded then
450                                  buffer.putstring ("SK_DTYPE")                                  buffer.putstring ("SK_REF + (uint32) ")
451                          else                          else
452                                  buffer.putstring ("SK_EXP + (uint32) ")                                  buffer.putstring ("SK_EXP + (uint32) ")
                                 buffer.putint (associated_class_type.type_id - 1)  
453                          end                          end
454                            buffer.putint (associated_class_type.type_id - 1)
455                  end                  end
456    
457  feature -- Array optimization  feature -- Array optimization

Legend:
Removed from v.42413  
changed lines
  Added in v.42865

  ViewVC Help
Powered by ViewVC 1.1.23