/[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.35 by camm, Sat May 7 02:45:38 2005 UTC revision 1.36 by camm, Fri Jun 10 15:13:53 2005 UTC
# Line 536  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar Line 536  DEFUN_NEW("MAKE-ARRAY1",object,fSmake_ar
536      x->a.a_self = 0;      x->a.a_self = 0;
537      x->a.a_rank = rank;      x->a.a_rank = rank;
538      x->a.a_displaced = Cnil;      x->a.a_displaced = Cnil;
539      x->a.a_dims = AR_ALLOC(alloc_relblock,rank,int);      x->a.a_dims = AR_ALLOC(alloc_relblock,rank,fixnum);
540      i = 0;      i = 0;
541      v = dimensions;      v = dimensions;
542      while (i < rank)      while (i < rank)
# Line 754  Iarray_element_type(object x) Line 754  Iarray_element_type(object x)
754  /* add diff to body of x and arrays diisplaced to it */  /* add diff to body of x and arrays diisplaced to it */
755    
756  void  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 = (char *)((long)(x->a.a_self) + diff);
761          for (x = Mcdr(x->ust.ust_displaced);  x != Cnil;  x = Mcdr(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      
764  }  }
765    
766    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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