/[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 1204 by grator, Wed Oct 5 00:16:03 1994 UTC revision 1323 by grator, Sat Oct 29 18:24:38 1994 UTC
# Line 122  feature Line 122  feature
122                  end;                  end;
123    
124          dump (file: FILE) is          dump (file: FILE) is
125                    local
126                            s: STRING
127                  do                  do
128                          if is_expanded then                          if is_expanded then
129                                  file.putstring ("expanded ");                                  file.putstring ("expanded ");
130                          end;                          end;
131                          file.putstring (base_class.class_name);                          s := clone (base_class.class_name);
132                            s.to_upper;
133                            file.putstring (s);
134                  end;                  end;
135    
136          associated_class_type: CLASS_TYPE is          associated_class_type: CLASS_TYPE is

Legend:
Removed from v.1204  
changed lines
  Added in v.1323

  ViewVC Help
Powered by ViewVC 1.1.23