working...
This commit is contained in:
parent
d836b3955d
commit
0332001ef8
75 changed files with 427 additions and 1081 deletions
12
ass2/SICocaml/izvajalnikF1.ml
Normal file
12
ass2/SICocaml/izvajalnikF1.ml
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
(*A <- (F) [convert to integer]*)
|
||||
let fix (state : Processor.state) : unit =
|
||||
state.regs.a <- int_of_float state.regs.f;
|
||||
()
|
||||
|
||||
(*F <- (A) [convert to floating]*)
|
||||
let floatF (state : Processor.state) : unit = (*poimenovana floatF zaradi tipa float*)
|
||||
state.regs.f <- float_of_int state.regs.a;
|
||||
()
|
||||
|
||||
(*TODO implement the rest*)
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue