/[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 29681 by manus, Thu Dec 13 21:21:06 2001 UTC revision 30169 by manus, Fri Jan 11 01:28:57 2002 UTC
# Line 23  inherit Line 23  inherit
23                          generate_cid,                          generate_cid,
24                          make_gen_type_byte_code,                          make_gen_type_byte_code,
25                          generate_cid_array,                          generate_cid_array,
26                          generate_cid_init                          generate_cid_init,
27                            generate_gen_type_il
28                    end
29            
30            DEBUG_OUTPUT
31                    export
32                            {NONE} all
33                  end                  end
34    
35  feature -- Access  feature -- Access
# Line 304  feature -- Formatting Line 310  feature -- Formatting
310                  end                  end
311    
312          dump (buffer: GENERATION_BUFFER) is          dump (buffer: GENERATION_BUFFER) is
                 local  
                         s: STRING  
313                  do                  do
314                          if is_true_expanded then                          buffer.putstring (debug_output)
                                 buffer.putstring ("expanded ")  
                         elseif is_separate then  
                                 buffer.putstring ("separate ")  
                         end  
                         s := clone (base_class.name)  
                         s.to_upper  
                         buffer.putstring (s)  
315                  end                  end
316    
317  feature -- C generation  feature -- C generation
# Line 421  feature -- Generic conformance Line 418  feature -- Generic conformance
418    
419                          dummy := idx_cnt.next                          dummy := idx_cnt.next
420                  end                  end
421    
422    feature -- Generic conformance for IL
423    
424            generate_gen_type_il (il_generator: IL_CODE_GENERATOR; use_info : BOOLEAN) is
425                            -- `use_info' is true iff we generate code for a
426                            -- creation instruction.
427                    do
428                            if use_info and then cr_info /= Void then
429                                            -- It's an ancored type
430                            end    
431                            il_generator.generate_class_type_instance (Current)
432                    end
433    
434    feature -- Output
435    
436            debug_output: STRING is
437                            -- String that should be displayed in debugger to represent `Current'.
438                    do
439                            create Result.make (32)
440                            if is_true_expanded then
441                                    Result.append ("expanded ")
442                            elseif is_separate then
443                                    Result.append ("separate ")
444                            end
445                            Result.append (base_class.name_in_upper)
446                    end
447            
448  end  end

Legend:
Removed from v.29681  
changed lines
  Added in v.30169

  ViewVC Help
Powered by ViewVC 1.1.23