gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Gcl-devel] clines and dgemm


From: Camm Maguire
Subject: Re: [Gcl-devel] clines and dgemm
Date: 03 Jun 2005 11:59:13 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]