/[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.31 by camm, Wed Aug 25 22:48:24 2004 UTC revision 1.32 by camm, Tue Nov 23 22:38:23 2004 UTC
# Line 627  FFN(Larray_displacement)(void) { Line 627  FFN(Larray_displacement)(void) {
627    
628    s=aet_sizes[Iarray_element_type(a)];    s=aet_sizes[Iarray_element_type(a)];
629    n=(void *)array->a.a_self-(void *)a->a.a_self;    n=(void *)array->a.a_self-(void *)a->a.a_self;
630      if (Iarray_element_type(a)==aet_bit)
631        n=n*BV_BITS+BV_OFFSET(array);
632    if (n%s)    if (n%s)
633      FEerror("Array is displaced by fractional elements",0);      FEerror("Array is displaced by fractional elements",0);
634    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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