Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /tests/compiler.pure.lisp [318900] .. [8f4ef0] Maximize Restore

  Switch to side-by-side view

--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -605,3 +605,12 @@
                 (LET ((V7 (%F1)))
                   (+ 359749 35728422))))
             -24076)))
+
+;;; bug in Alpha backend: not enough sanity checking of arguments to
+;;; instructions
+(assert (= (funcall (compile nil 
+			     '(lambda (x) 
+				(declare (fixnum x)) 
+				(ash x -257)))
+		    1024)
+	   0))