Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

READMEにメモ追加

  • Loading branch information...
commit 6b39066104b4fae6209bb2427bce05298ea3f229 1 parent 946c98b
@sile authored
Showing with 24 additions and 3 deletions.
  1. +23 −0 README
  2. +1 −3 vm/executor/stream.lisp
View
23 README
@@ -0,0 +1,23 @@
+[instructions]
+001# INT int
+002# STRING len:int ch:byte*
+003# CHAR int
+004# SYMBOL len:short ch:byte*
+005# NIL
+006# TRUE
+007# FALSE
+--
+050# symbol SYMREF
+051# value symbol SYMSET
+--
+101# arg* fun APPLY
+103# value RETURN
+104# CONTI
+105# value NUATE
+--
+150# rel-pos JUMP
+151# condition:boolean rel-pos JUMP-IF
+--
+201# close-val* LAMBDA close-val-count:byte arity:byte local-var-count:byte body-len:int body*
+202# LOCALREF index:byte
+203# value LOCALSET index:byte
View
4 vm/executor/stream.lisp
@@ -31,7 +31,7 @@
(read-unsigned stream 8))
(defun read-op (stream)
- (read-ushort stream))
+ (read-ubyte stream))
(defun read-string (stream length)
(with-slots (pos octets) stream
@@ -48,5 +48,3 @@
(defun set-pc (stream pc)
(setf (octets-stream-pos stream) pc)
stream)
-
-
Please sign in to comment.
Something went wrong with that request. Please try again.