vm opt

parent f34ff087
......@@ -64,7 +64,7 @@
(lambda (j1 j2)
(if (= j2 i1)
#t
(vector-set! v i (modify-source i1 (vector-ref v i))))))
(vector-set! v it (modify-source (vector-ref v it) i1)))))
#t)))
(i1
......@@ -91,3 +91,21 @@
(lp (+ i 1) l)))
(reverse l))))))))
(compile-prolog-string
"
clobber0(mov(A,B)) :-
call((AA is A)),
call((BB is B)),
cc(A,B).
clobber0('scm-ref/immediate'(A,_,_))
call((AA is A)),
cc(#f,).
clobber0('get-constant'(A,_)) :-
call((AA is A)),
cc(#f,AA).
")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment