Skip to content
Snippets Groups Projects
Commit 7f5ca47e authored by ram's avatar ram
Browse files

When checking the number of VOP args supplied, don't expect there to be

any for :CONSTANT operands.
parent c845b992
No related branches found
No related tags found
No related merge requests found
......@@ -681,7 +681,11 @@
(let* ((info (vop-info vop))
(atypes (template-arg-types info))
(rtypes (template-result-types info)))
(check-tn-refs (vop-args vop) vop nil (length atypes)
(check-tn-refs (vop-args vop) vop nil
(count-if-not #'(lambda (x)
(and (consp x)
(eq (car x) :constant)))
atypes)
(template-more-args-type info) "args")
(check-tn-refs (vop-results vop) vop t
(if (eq rtypes :conditional) 0 (length rtypes))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment