[yalo commit] r125 - trunk/cc

[codesite...@google.com]

Author: yujian.zhang
Date: Tue Feb 17 05:56:27 2009
New Revision: 125

Modified:
trunk/cc/lap.lisp

Log:
Add check for duplicated label.

Modified: trunk/cc/lap.lisp
==============================================================================
--- trunk/cc/lap.lisp (original)
+++ trunk/cc/lap.lisp Tue Feb 17 05:56:27 2009
@@ -59,7 +59,10 @@
(progn
(unless (local-label? e)
(setf label e))
- (push (cons (normalize-label e label) cursor) symtab))))
+ (let ((nl (normalize-label e label)))
+ (when (assoc nl symtab)
+ (error "asm: duplicated label ~A." nl))
+ (push (cons nl cursor) symtab)))))
(mapcan
#'(lambda (c)
(cond