Commit 5dfd694a authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Support integer labels.

parent 621d0be5
......@@ -9,7 +9,7 @@
;;;; Created at: Mon May 15 13:43:55 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: proglist.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $
;;;; $Id: proglist.lisp,v 1.3 2004/02/10 00:04:04 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -182,7 +182,7 @@
(loop for expr-rest on prog-list
do (let ((expr (first expr-rest)))
(etypecase expr
(SYMBOL
((or SYMBOL integer)
(setf (assemble-env-symtab env)
(symtab-def-label (assemble-env-symtab env)
expr
......
......@@ -9,7 +9,7 @@
;;;; Created at: Mon Jul 31 13:54:27 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: read.lisp,v 1.4 2004/02/10 00:13:29 ffjeld Exp $
;;;; $Id: read.lisp,v 1.5 2004/06/21 07:33:50 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -269,7 +269,7 @@ a proglist: A list of INSTRUCTION objects."
(loop for expr in program
if (null expr)
do (error "Illegal NIL expr in program: ~S" program)
else if (symbolp expr)
else if (or (symbolp expr) (integerp expr))
collect expr ; a label, collect it.
else if (inline-data-p expr)
collect (read-inline-data expr) ; inline data, read it.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment