Commit 88e2e9b6 authored by sof's avatar sof
Browse files

[project @ 2002-10-14 15:50:14 by sof]

make it compile again (x86)
parent 3312cb59
......@@ -2497,6 +2497,9 @@ assignReg_IntCode pk reg src
getRegister src `thenNat` \ registers ->
getNewRegNCG IntRep `thenNat` \ tmp ->
let
r_dst = registerName registerd tmp
r_src = registerName registers r_dst
c_src = registerCode registers r_dst
code = c_src `snocOL`
MOV L (OpReg r_src) (OpReg r_dst)
......
Supports Markdown
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