/[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 11298 by manus, Sun Sep 13 20:40:22 1998 UTC revision 11599 by manus, Tue Oct 13 01:21:14 1998 UTC
# Line 168  feature Line 168  feature
168                          base_class.append_signature (st)                          base_class.append_signature (st)
169                  end                  end
170    
171          dump (file: FILE) is          dump (buffer: GENERATION_BUFFER) is
172                  local                  local
173                          s: STRING                          s: STRING
174                  do                  do
175                          if is_expanded then                          if is_expanded then
176                                  file.putstring ("expanded ")                                  buffer.putstring ("expanded ")
177                          elseif is_separate then                          elseif is_separate then
178                                  file.putstring ("separate ")                                  buffer.putstring ("separate ")
179                          end                          end
180                          s := clone (base_class.name)                          s := clone (base_class.name)
181                          s.to_upper                          s.to_upper
182                          file.putstring (s)                          buffer.putstring (s)
183                  end                  end
184    
185          has_associated_class_type: BOOLEAN is          has_associated_class_type: BOOLEAN is
# Line 232  feature Line 232  feature
232                          is_expanded := True                          is_expanded := True
233                  end                  end
234    
235          generate_cecil_value (file: INDENT_FILE) is          generate_cecil_value (buffer: GENERATION_BUFFER) is
236                          -- Generate cecil value                          -- Generate cecil value
237                  do                  do
238                                  -- FIXME????: separate                                  -- FIXME????: separate
239                          if not is_expanded then                          if not is_expanded then
240                                  file.putstring ("SK_DTYPE")                                  buffer.putstring ("SK_DTYPE")
241                          else                          else
242                                  file.putstring ("SK_EXP + (uint32) ")                                  buffer.putstring ("SK_EXP + (uint32) ")
243                                  file.putint (base_id.id)                                  buffer.putint (base_id.id)
244                          end                          end
245                  end                  end
246    
# Line 313  feature -- Generic conformance Line 313  feature -- Generic conformance
313                          end                          end
314                  end                  end
315    
316          generate_cid (f : INDENT_FILE; final_mode, use_info : BOOLEAN) is          generate_cid (buffer : GENERATION_BUFFER; final_mode, use_info : BOOLEAN) is
317    
318                  do                  do
319                          if                          if
# Line 321  feature -- Generic conformance Line 321  feature -- Generic conformance
321                                  and then not (is_expanded or is_basic)                                  and then not (is_expanded or is_basic)
322                          then                          then
323                                  -- It's an anchored type                                  -- It's an anchored type
324                                  cr_info.generate_cid (f, final_mode)                                  cr_info.generate_cid (buffer, final_mode)
325                          end                          end
326                          f.putint (generated_id (final_mode))                          buffer.putint (generated_id (final_mode))
327                          f.putstring (", ")                          buffer.putstring (", ")
328                  end                  end
329    
330          make_gen_type_byte_code (ba : BYTE_ARRAY; use_info : BOOLEAN) is          make_gen_type_byte_code (ba : BYTE_ARRAY; use_info : BOOLEAN) is

Legend:
Removed from v.11298  
changed lines
  Added in v.11599

  ViewVC Help
Powered by ViewVC 1.1.23