Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/gc/gc-util.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/gc/gc-util.c

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 210  Line 210 
210            case OBJC_record:            case OBJC_record:
211            case OBJC_string:            case OBJC_string:
212            case OBJC_array:            case OBJC_array:
213    #ifdef POINTERS_INTO_OBJECTS
214              for (obj_start = obj;  !isDESC(desc = obj_start[-1]);  obj_start--)              for (obj_start = obj;  !isDESC(desc = obj_start[-1]);  obj_start--)
215                  continue;                  continue;
216    #else
217                obj_start = obj;
218                desc = obj_start[-1];
219    #endif
220              if (desc == DESC_forwarded) {              if (desc == DESC_forwarded) {
221                  p[0] = DESC_weak;                  p[0] = DESC_weak;
222                  p[1] = PTR_CtoML(FOLLOW_FWDOBJ(obj_start, obj));                  p[1] = PTR_CtoML(FOLLOW_FWDOBJ(obj_start, obj));
# Line 224  Line 229 
229              }              }
230              break;              break;
231            case OBJC_pair:            case OBJC_pair:
232    #ifdef POINTERS_INTO_OBJECTS
233              obj_start = (ml_val_t *)((Addr_t)obj & ~(PAIR_SZB-1));              obj_start = (ml_val_t *)((Addr_t)obj & ~(PAIR_SZB-1));
234    #else
235                obj_start = obj;
236    #endif
237              if (isDESC(desc = obj_start[0])) {              if (isDESC(desc = obj_start[0])) {
238                  p[0] = DESC_weak;                  p[0] = DESC_weak;
239                  p[1] = PTR_CtoML(FOLLOW_FWDPAIR(desc, obj_start, obj));                  p[1] = PTR_CtoML(FOLLOW_FWDPAIR(desc, obj_start, obj));

Legend:
Removed from v.3  
changed lines
  Added in v.106

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0