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