diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-11 01:24:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-11 01:24:23 +0000 |
| commit | 157ed93b6265cbae38aa14127cdeb9c2d3048961 (patch) | |
| tree | 0a755ce00ef09931a23968937b0d3ede5d5e649d /src/interp/lisp-backend.boot | |
| parent | 1570ef4a2c61066611edaf7c7e34c9dd3baec27b (diff) | |
| download | open-axiom-157ed93b6265cbae38aa14127cdeb9c2d3048961.tar.gz | |
Introduce opcodes for arrays constructions
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 73af3a96..efc3e8a6 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -486,6 +486,11 @@ expandTry ['%try,expr,handlers,cleanup] == ++ Opcodes with direct mapping to target operations. for x in [ + -- Lisp keywords + ['%elementType, : KEYWORD::ELEMENT_-TYPE], + ['%initialElement, : KEYWORD::INITIAL_-ELEMENT], + ['%initialContents, : KEYWORD::INITIAL_-CONTENTS], + -- Boolean constants -- ['%false, :'NIL], ['%true, :'T], @@ -620,6 +625,7 @@ for x in [ ['%lconcat, :'APPEND], -- simple vector operations + ['%array, :'MAKE_-ARRAY], ['%vfill, :'FILL], ['%vlength, :'sizeOfSimpleArray], ['%vector, :'VECTOR], @@ -642,6 +648,7 @@ for x in [ ['%strcopy, :'COPY_-SEQ], -- general utility + ['%type2form,:'getVMType], ['%hash, :'SXHASH], ['%equal, :'EQUAL], ['%tref, :'shellEntry], |