diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 08:35:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 08:35:54 +0000 |
| commit | b297c03b5d2d5a6d88edc5e44548da67ee7c7082 (patch) | |
| tree | 6671505af7c2c2c5b3428577d07a18f8dfacfe2d /src | |
| parent | 8e0d8383d1c9ee1ae269400dac75f185d465dcc1 (diff) | |
| download | open-axiom-b297c03b5d2d5a6d88edc5e44548da67ee7c7082.tar.gz | |
more cleanups
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/g-opt.boot | 2 | ||||
| -rw-r--r-- | src/interp/g-util.boot | 5 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 1 | ||||
| -rw-r--r-- | src/interp/sys-macros.lisp | 5 |
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)) |