aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-24 08:35:54 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-24 08:35:54 +0000
commitb297c03b5d2d5a6d88edc5e44548da67ee7c7082 (patch)
tree6671505af7c2c2c5b3428577d07a18f8dfacfe2d /src/interp
parent8e0d8383d1c9ee1ae269400dac75f185d465dcc1 (diff)
downloadopen-axiom-b297c03b5d2d5a6d88edc5e44548da67ee7c7082.tar.gz
more cleanups
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/g-opt.boot2
-rw-r--r--src/interp/g-util.boot5
-rw-r--r--src/interp/lisp-backend.boot1
-rw-r--r--src/interp/sys-macros.lisp5
4 files changed, 6 insertions, 7 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 9ed6cf3a..baaab2e5 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -454,7 +454,7 @@ $VMsideEffectFreeOperators ==
%aref %vref %vlength
%bitvecnot %bitvecand %bitvecnand %bivecor %bitvecnor %bitvecxor
%bitveccopy %bitvecconc %bitveclength %bitvecref %bitveceq %bitveclt
- %before? %equal %sptreq %ident? %property)
+ %before? %equal %sptreq %ident? %property %tref)
++ List of simple VM operators
$simpleVMoperators ==
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index bc6bf2f1..17b6d459 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -901,11 +901,6 @@ newShell: %Short -> SIMPLE_-ARRAY
newShell n ==
MAKE_-ARRAY(n,KEYWORD::INITIAL_-ELEMENT,nil)
-++ fetchs the item in the nth entry of a domain shell.
-getShellEntry: (%Shell,%Short) -> %Thing
-getShellEntry(s,i) ==
- SVREF(s,i)
-
++ sets the nth nth entry of a domain shell to an item.
setShellEntry: (%Shell,%Short,%Thing) -> %Thing
setShellEntry(s,i,t) ==
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 7dae6c12..4a711f50 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -583,6 +583,7 @@ for x in [
-- general utility
['%hash, :'SXHASH],
['%equal, :'EQUAL],
+ ['%tref, :'getShellEntry],
['%sptreq, :'EQL], -- system pointer equality
['%lam, :'LAMBDA],
['%leave, :'RETURN],
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp
index fac17612..0e2ec836 100644
--- a/src/interp/sys-macros.lisp
+++ b/src/interp/sys-macros.lisp
@@ -1,6 +1,6 @@
;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
;; All rights reserved.
-;; Copyright (C) 2007-2010, Gabriel Dos Reis.
+;; Copyright (C) 2007-2011, Gabriel Dos Reis.
;; All rights reserved.
;;
;; Redistribution and use in source and binary forms, with or without
@@ -1259,3 +1259,6 @@
(defmacro |spadConstant| (dollar n)
`(spadcall (svref ,dollar (the fixnum ,n))))
+
+(defmacro |getShellEntry| (dollar n)
+ `(svref ,dollar ,n))