diff options
| author | Drahflow <drahflow@gmx.de> | 2012-12-23 19:22:22 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2012-12-23 19:22:22 +0100 |
| commit | 78565a42ed6d6830553452481adf7e3a7bcf4c8e (patch) | |
| tree | 30dafefa627cac387953505c82d1608b99b819de /interpreter/ElymasSys.pm | |
| parent | 56c1707540d46a17f03c59b294a9ace38593d323 (diff) | |
Minimal ASM execution example
Diffstat (limited to 'interpreter/ElymasSys.pm')
| -rw-r--r-- | interpreter/ElymasSys.pm | 6 |
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 { |
