Skip to content
Snippets Groups Projects
Commit 06ccb8b6 authored by rtoy's avatar rtoy
Browse files

Enable new %single-float/unsigned vop too.

Here is a test for this:

(defun tst (x)
  (declare (type (unsigned-byte 32) x)
	   (optimize (speed 3) (safety 0)))
  (* 3f0 (coerce x 'single-float)))

(compile 'tst)

(tst 33554434)

The answer used to be 1.00663304e8, but the correct answer is
1.006633e8, as given on sparc.
parent b3af46c0
No related branches found
No related tags found
Loading
Loading
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