Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

div

Browse source
This commit is contained in:
Nicolas PENELOUX 2024-01-01 22:27:54 +01:00
parent 5a17c4164e
commit f86829dd3a
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
flap/src/x86-64/retrolixToX86_64.ml
View file

@ -477,8 +477,12 @@ module InstructionSelector : InstructionSelector = struct
;;
let div ~dst ~srcl ~srcr =
(* TODO *)
failwith "Students! This is your job! (div)"
(* Division *)
let rax = `Reg X86_64_Architecture.RAX in
mov ~src:srcl ~dst:rax
@ mov ~src:srcr ~dst:r15
@ [ Instruction cqto; Instruction (idivq ~src:r15)]
@ mov ~dst ~src:rax
;;
let andl ~dst ~srcl ~srcr =