Greetings!
=============================================================================
(clines "
object
array_staticp(object x) {
return x->a.a_self < heap_end ? Ct : Cnil;
}
")
(defentry %array-staticp (object) (object "array_staticp"))
(defun array-staticp (x) (and (arrayp x) (%array-staticp x)))
=============================================================================
>(compile-file "/tmp/y.l")
Compiling /tmp/y.l.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling /tmp/y.l.
#p"/tmp/y.o"
>(load "/tmp/y.o")
Loading /tmp/y.o
start address -T 0x4da528 Finished loading /tmp/y.o
744
>(array-staticp (make-array 10))
NIL
>(array-staticp (make-array 10 :static t))
T
>
=============================================================================
But perhaps we need a standard function.
Would you like to volunteer to contibute a blas and or lapack
interface along the lines above to GCL proper?
Take care,
Vanuxem Gr�gory <[EMAIL PROTECTED]> writes:
> Hi,
>
>
> > Work with:
> >
> > (make-array ******* :static t)
>
> How can I know if an array is static
> (contiguous memory) ?
>
> Cheers,
>
>
> Greg
>
>
>
>
>
> _______________________________________________
> Gcl-devel mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/gcl-devel
>
>
>
--
Camm Maguire [EMAIL PROTECTED]
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Gcl-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gcl-devel
