[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv18624

Modified Files:
	compiler.lisp 
Log Message:
Detect if code declares a jumper-set multiple times, don't just
silently overwrite the old jumper-set, which caused very weird effects
when such a jumper was actually used.

Date: Tue Jul 20 02:08:38 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.77 movitz/compiler.lisp:1.78
--- movitz/compiler.lisp:1.77	Sun Jul 18 16:45:45 2004
+++ movitz/compiler.lisp	Tue Jul 20 02:08:38 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.77 2004/07/18 23:45:45 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.78 2004/07/20 09:08:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2497,6 +2497,8 @@
 			(:declare-label-set
 			 (destructuring-bind (name set)
 			     (cdr instruction)
+			   (assert (not (getf jumper-sets name)) ()
+			     "Duplicate jumper declaration for ~S." name)
 			   (setf (getf jumper-sets name) set))))
 		   do (let ((sub (instruction-sub-program instruction)))
 			(when sub (process sub))))))