Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |