aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-13 05:10:19 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-13 05:10:19 +0000
commit79e0bdea715eea9bbbe308777a1a7a8b1d8c72f4 (patch)
treede2a221c52595d917d2f55824f1b8da8b98a05c3 /src/interp/g-opt.boot
parent6c8119a8b2cc0b039dced28cf6cc1c6df45c59f7 (diff)
downloadopen-axiom-79e0bdea715eea9bbbe308777a1a7a8b1d8c72f4.tar.gz
* interp/g-opt.boot (%array2list): New side-effect free opcode.
* interp/lisp-backend.boot: Expand it. * algebra/array1.spad.pamphlet (PrimitiveArray): Implement maxIndex, parts, and members.
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 6e379d21..c65dcf2d 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -657,7 +657,8 @@ $VMsideEffectFreeOperators ==
%sname
%strlength %streq %i2s %schar %strlt %strconc
%strcopy %bytevec2str %str2bytevec
- %array %simpleArray %emptyArray %list2array %initialElement %initialContents
+ %array %simpleArray %emptyArray %list2array %array2list
+ %initialElement %initialContents
%vector %aref %vref %vlength %vcopy
%bitvector
%bitvecnot %bitvecand %bitvecnand %bivecor %bitvecnor %bitvecxor