Re: [Gcl-devel] clines and dgemm

[Camm Maguire]

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 <address@hidden> 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
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah