/[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.4 by camm, Wed May 22 20:14:51 2002 UTC revision 1.5 by camm, Fri Jul 12 22:00:49 2002 UTC
# Line 739  object x; Line 739  object x;
739  int diff;  int diff;
740  {  {
741          if (x->ust.ust_self != NULL)          if (x->ust.ust_self != NULL)
742                  x->ust.ust_self = (char *)((int)(x->a.a_self) + diff);                  x->ust.ust_self = (char *)((long)(x->a.a_self) + diff);
743          for (x = Mcdr(x->ust.ust_displaced);  x != Cnil;  x = Mcdr(x))          for (x = Mcdr(x->ust.ust_displaced);  x != Cnil;  x = Mcdr(x))
744                  adjust_displaced(Mcar(x), diff);                  adjust_displaced(Mcar(x), diff);
745  }  }
# Line 880  object x,dflt; Line 880  object x,dflt;
880  int staticp;  int staticp;
881  {  {
882          int i, d,n;          int i, d,n;
883          char *(*fun)(),*tmp_alloc;          void *(*fun)(size_t),*tmp_alloc;
884          enum aelttype typ;          enum aelttype typ;
885          fun = (staticp ? alloc_contblock : alloc_relblock);          fun = (staticp ? alloc_contblock : alloc_relblock);
886          {  /* this must be called from within no interrupt code */          {  /* this must be called from within no interrupt code */

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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