[lisplab-cvs] r104 - src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Mon Oct 26 07:50:00 2009
New Revision: 104

Log:
64 bits matrices on sbcl x86 64

Modified:
   src/matrix/level1-util.lisp

Modified: src/matrix/level1-util.lisp
==============================================================================
--- src/matrix/level1-util.lisp	(original)
+++ src/matrix/level1-util.lisp	Mon Oct 26 07:50:00 2009
@@ -18,13 +18,20 @@
 ;;; with this program; if not, write to the Free Software Foundation, Inc.,
 ;;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
+;;; TODO: change name of this to something about blas store
+
 (in-package :lisplab)
 
 (deftype type-blas-store ()
   '(simple-array double-float (*)))
 
-(deftype type-blas-idx ()
-  '(MOD 536870911))
+#+(and :sbcl :x86) (deftype type-blas-idx ()
+		     '(MOD #x1FFFFFFF))
+#+(and :sbcl :x86-64) (deftype type-blas-idx ()
+			'(MOD #xFFFFFFFFFFFFFFD))
+#-:sbcl (deftype type-blas-idx ()
+			'fixnum)
+
 
 (declaim (inline column-major-idx))
 (declaim (inline ref-blas-real-store (setf ref-blas-real-store)))