/[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 552 by grator, Wed May 11 11:14:08 1994 UTC revision 605 by grator, Tue Jun 28 16:58:24 1994 UTC
# Line 94  feature Line 94  feature
94    
95                                  types := base_class.types;                                  types := base_class.types;
96                                  pos := types.index;                                  pos := types.index;
97                                    types.compare_references
98                                  types.search (Current);                                  types.search (Current);
99                                  exp.set_class_type (types.item);                                  exp.set_class_type (types.item);
100                                  types.go_i_th (pos);                                  types.go_i_th (pos);
# Line 119  feature Line 120  feature
120                          base_class.append_clickable_signature (a_clickable)                          base_class.append_clickable_signature (a_clickable)
121                  end;                  end;
122    
123          dump (file: UNIX_FILE) is          dump (file: FILE) is
124                  do                  do
125                          if is_expanded then                          if is_expanded then
126                                  file.putstring ("expanded ");                                  file.putstring ("expanded ");
# Line 138  feature Line 139  feature
139                          else                          else
140                                  types := base_class.types;                                  types := base_class.types;
141                                  pos := types.index;                                  pos := types.index;
142                                    types.compare_references
143                                  types.search (Current);                                  types.search (Current);
144                                  Result := types.item;                                  Result := types.item;
145                                  types.go_i_th (pos);                                  types.go_i_th (pos);

Legend:
Removed from v.552  
changed lines
  Added in v.605

  ViewVC Help
Powered by ViewVC 1.1.23