Fixed typos in comments

This commit is contained in:
Dmitry Boulytchev 2018-03-05 01:01:36 +03:00
parent 3deda2665d
commit 06fb783c80

View file

@ -228,7 +228,7 @@ class env =
method globals = S.elements globals
end
(* compiles a unit: generates machine code for the stack program and surrounds it
(* compiles a unit: generates x86 machine code for the stack program and surrounds it
with function prologue/epilogue
*)
let compile_unit env scode =
@ -239,8 +239,8 @@ let compile_unit env scode =
[Mov (ebp, esp); Pop ebp; Binop ("^", eax, eax); Ret]
)
(* Generates an assembler text for a program: first compile the program into
the stack code, then generate x86 assember code, then print the assembler file
(* Generates an assembler text for a program: first compiles the program into
the stack code, then generates x86 assember code, then prints the assembler file
*)
let genasm prog =
let env, code = compile_unit (new env) (SM.compile prog) in