Compiler/virtual machine interpreter: Difference between revisions
Content added Content deleted
Line 3,764: | Line 3,764: | ||
procedure printc(f_out, vm) |
procedure printc(f_out, vm) |
||
/f_out := &output |
|||
writes(f_out, char(pop(vm.stack))) |
writes(f_out, char(pop(vm.stack))) |
||
end |
end |
||
procedure printi(f_out, vm) |
procedure printi(f_out, vm) |
||
/f_out := &output |
|||
writes(f_out, pop(vm.stack)) |
writes(f_out, pop(vm.stack)) |
||
end |
end |
||
procedure prints(f_out, vm) |
procedure prints(f_out, vm) |
||
/f_out := &output |
|||
writes(f_out, vm.strings[pop(vm.stack) + 1]) |
writes(f_out, vm.strings[pop(vm.stack) + 1]) |
||
end |
end |