mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-20 08:40:46 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fix the inline expansion of array-dimension.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-04 19:23:17 +02:00
parent 0ea425866c
commit 06c3b848d9
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/sysfun.lsp
View file

@ -244,10 +244,10 @@
"(#0)->array.rank")
(proclaim-function array-dimension (array fixnum) fixnum)
(def-inline array-dimension :unsafe (array t) :fixnum
"(#0)->array.dims[fix(#1)]")
(def-inline array-dimension :unsafe (array fixnum) :fixnum
"(#0)->array.dims[#1]")
(def-inline array-dimension :always (t t) fixnum
"ecl_array_dimension(#0,fixint(#1))")
(def-inline array-dimension :always (t fixnum) fixnum
"ecl_array_dimension(#0,#1)")
(proclaim-function array-total-size (array) t :no-side-effects t)
(def-inline array-total-size :unsafe (t) :fixnum "((#0)->array.dim)")