/[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.37 by camm, Tue Jun 14 14:33:55 2005 UTC revision 1.38 by camm, Sat Jul 23 08:53:44 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 = Scdr(x->ust.ust_displaced);  x != Cnil;  x = Scdr(x))    for (x = Scdr(x->ust.ust_displaced);  x != Cnil;  x = Scdr(x))
762      adjust_displaced(Mcar(x), diff);      adjust_displaced(Mcar(x), diff);
763        

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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