move put string to string where it belongs

This commit is contained in:
Torsten Ruger
2015-07-01 21:45:41 +03:00
parent f8ba77dff7
commit 7136450bde
4 changed files with 19 additions and 8 deletions

View File

@ -105,10 +105,12 @@ module Virtual
end
obj = @class_mappings[:Kernel ]
# create dummy main first, __init__ calls it
[:putstring,:exit,:__send , :__init__ ].each do |f|
[:exit,:__send , :__init__ ].each do |f|
obj.add_instance_method Register::Builtin::Kernel.send(f , nil)
end
@class_mappings[:Word].add_instance_method Register::Builtin::Word.send(:putstring , nil)
obj = @class_mappings[:Integer ]
[:putint,:fibo].each do |f|
obj.add_instance_method Register::Builtin::Integer.send(f , nil)