aboutsummaryrefslogtreecommitdiff
path: root/interpreter/ElymasSys.pm
diff options
context:
space:
mode:
authorDrahflow <drahflow@gmx.de>2012-12-23 19:22:22 +0100
committerDrahflow <drahflow@gmx.de>2012-12-23 19:22:22 +0100
commit78565a42ed6d6830553452481adf7e3a7bcf4c8e (patch)
tree30dafefa627cac387953505c82d1608b99b819de /interpreter/ElymasSys.pm
parent56c1707540d46a17f03c59b294a9ace38593d323 (diff)
Minimal ASM execution example
Diffstat (limited to 'interpreter/ElymasSys.pm')
-rw-r--r--interpreter/ElymasSys.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/interpreter/ElymasSys.pm b/interpreter/ElymasSys.pm
index becc4d0..d403bd6 100644
--- a/interpreter/ElymasSys.pm
+++ b/interpreter/ElymasSys.pm
@@ -4,14 +4,14 @@ use strict;
use warnings;
use Elymas;
-use ElymasX86;
+use ElymasAsm;
use POSIX;
my $rwmask = &POSIX::O_RDONLY | &POSIX::O_WRONLY | &POSIX::O_RDWR;
our $sys = {
'file' => [sub {
- my ($data) = @_;
+ my ($data, $scope) = @_;
my $file = createFile(-1, &POSIX::O_RDONLY);
push @$data, [enstruct($file)];
@@ -20,7 +20,7 @@ our $sys = {
'out' => [enstruct(createFile(1, &POSIX::O_WRONLY)), 'passive'],
'err' => [enstruct(createFile(2, &POSIX::O_WRONLY)), 'passive'],
'argv' => [[map { [$_, 'string'] } @ARGV[1 .. $#ARGV]], ['array', 'sys .argv', ['range', 0, $#ARGV - 1], ['string']], 'passive'],
- 'x86' => [enstruct($ElymasX86::x86), 'passive'],
+ 'asm' => [enstruct($ElymasAsm::asm), 'passive'],
};
sub createFile {