ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/microscheme/opdefines.h
(Generate patch)

Comparing cvsroot/microscheme/opdefines.h (file contents):
Revision 1.14 by root, Tue Dec 1 03:44:32 2015 UTC vs.
Revision 1.17 by root, Wed Dec 2 17:01:18 2015 UTC

… …
122OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING) 122OP_DEF (1, "make-string" , 1, 2 , TST_NATURAL TST_CHAR , OP_MKSTRING)
123OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN) 123OP_DEF (1, "string-length" , 1, 1 , TST_STRING , OP_STRLEN)
124OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF) 124OP_DEF (1, "string-ref" , 2, 2 , TST_STRING TST_NATURAL , OP_STRREF)
125OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET) 125OP_DEF (1, "string-set!" , 3, 3 , TST_STRING TST_NATURAL TST_CHAR, OP_STRSET)
126OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND) 126OP_DEF (1, "string-append" , 0, INF_ARG, TST_STRING , OP_STRAPPEND)
127OP_DEF (1, "substring" , 2, 3 , TST_STRING TST_NATURAL , OP_SUBSTR) 127OP_DEF (1, "string-copy" , 1, 3 , TST_STRING TST_NATURAL , OP_STRING_COPY)
128OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR) 128OP_DEF (1, "vector" , 0, INF_ARG, TST_NONE , OP_VECTOR)
129OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR) 129OP_DEF (1, "make-vector" , 1, 2 , TST_NATURAL TST_ANY , OP_MKVECTOR)
130OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN) 130OP_DEF (1, "vector-length" , 1, 1 , TST_VECTOR , OP_VECLEN)
131OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE) 131OP_DEF (1, "vector-resize" , 2, 3 , TST_VECTOR TST_NATURAL TST_ANY , OP_VECRESIZE)
132OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF) 132OP_DEF (1, "vector-ref" , 2, 2 , TST_VECTOR TST_NATURAL , OP_VECREF)
… …
167OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ) 167OP_DEF (3, "eq?" , 2, 2 , TST_ANY , OP_EQ)
168OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV) 168OP_DEF (3, "eqv?" , 2, 2 , TST_ANY , OP_EQV)
169OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE) 169OP_DEF (4, "force" , 1, 1 , TST_ANY , OP_FORCE)
170OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED) 170OP_DEF (4, UNNAMED_OP , 0, 0 , 0 , OP_SAVE_FORCED)
171#if USE_PORTS 171#if USE_PORTS
172OP_DEF (4, "eof-object" , 0, 0 , 0 , OP_EOF_OBJECT)
172OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE) 173OP_DEF (4, "write" , 1, 2 , TST_ANY TST_OUTPORT , OP_WRITE)
173OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR) 174OP_DEF (4, "write-char" , 1, 2 , TST_CHAR TST_OUTPORT , OP_WRITE_CHAR)
174OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY) 175OP_DEF (4, "display" , 1, 2 , TST_ANY TST_OUTPORT , OP_DISPLAY)
175OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE) 176OP_DEF (4, "newline" , 0, 1 , TST_OUTPORT , OP_NEWLINE)
176#endif 177#endif
… …
229OP_DEF (6, "assq" , 2, 2 , TST_NONE , OP_ASSQ) 230OP_DEF (6, "assq" , 2, 2 , TST_NONE , OP_ASSQ)
230OP_DEF (6, "get-closure-code" , 1, 1 , TST_NONE , OP_GET_CLOSURE) 231OP_DEF (6, "get-closure-code" , 1, 1 , TST_NONE , OP_GET_CLOSURE)
231OP_DEF (6, "closure?" , 1, 1 , TST_NONE , OP_CLOSUREP) 232OP_DEF (6, "closure?" , 1, 1 , TST_NONE , OP_CLOSUREP)
232OP_DEF (6, "macro?" , 1, 1 , TST_NONE , OP_MACROP) 233OP_DEF (6, "macro?" , 1, 1 , TST_NONE , OP_MACROP)
233 234
235#if EXPERIMENT
234OP_DEF (0, "debug" , 1, 1 , TST_NONE , OP_DEBUG)//D 236OP_DEF (0, "debug" , 1, 1 , TST_NONE , OP_DEBUG)//D
237OP_DEF (0, "debug2" , 1, 1 , TST_NONE , OP_DEBUG2)//D
238#endif
235 239

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines