/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

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

revision 1.20.4.1.4.4.2.2 by camm, Tue Jun 8 19:34:03 2004 UTC revision 1.20.4.1.4.4.2.2.8.1 by camm, Mon Jul 18 17:07:23 2005 UTC
# Line 757  void Line 757  void
757  adjust_displaced(object x, long diff)  adjust_displaced(object x, long diff)
758  {  {
759          if (x->ust.ust_self != NULL)          if (x->ust.ust_self != NULL)
760                  x->ust.ust_self = (char *)((long)(x->a.a_self) + diff);                  x->ust.ust_self = (unsigned char *)((long)(x->a.a_self) + diff);
761          for (x = Mcdr(x->ust.ust_displaced);  x != Cnil;  x = Mcdr(x))          for (x = Mcdr(x->ust.ust_displaced);  x != Cnil;  x = Mcdr(x))
762                  adjust_displaced(Mcar(x), diff);                  adjust_displaced(Mcar(x), diff);
763  }  }

Legend:
Removed from v.1.20.4.1.4.4.2.2  
changed lines
  Added in v.1.20.4.1.4.4.2.2.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26