diff options
author | Dr. Stephen Henson <steve@openssl.org> | 1999-07-12 18:12:43 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 1999-07-12 18:12:43 +0000 |
commit | bbdb543844cd4f8f787b678e33466afc12eccd96 (patch) | |
tree | 6910cfcd6aa9f6c6fa01acdd31a410900cf9be14 /crypto/perlasm/x86nasm.pl | |
parent | 5059658219465c2e3e15f45c5ca3a0d251cd5fba (diff) |
More NASM support code it still doesn't work but it doesn't work less than it
didn't work before :-)
Diffstat (limited to 'crypto/perlasm/x86nasm.pl')
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 3aab34a813..b4da364bbf 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -27,7 +27,14 @@ $label="L000"; sub main'asm_init_output { @out=(); } sub main'asm_get_output { return(@out); } sub main'get_labels { return(@labels); } -sub main'external_label { push(@labels,@_); push(@out, "EXTERN\t$_[0]"); } + +sub main'external_label +{ + push(@labels,@_); + foreach (@_) { + push(@out, "extern\t_$_\n"); + } +} sub main'LB { @@ -51,6 +58,16 @@ sub main'DWP &get_mem("DWORD",@_); } +sub main'BC + { + return "BYTE @_"; + } + +sub main'DWC + { + return "DWORD @_"; + } + sub main'stack_push { my($num)=@_; @@ -69,7 +86,7 @@ sub get_mem { my($size,$addr,$reg1,$reg2,$idx)=@_; my($t,$post); - my($ret)="[$size "; + my($ret)="["; $addr =~ s/^\s+//; if ($addr =~ /^(.+)\+(.+)$/) { @@ -192,7 +209,7 @@ sub using486 sub main'file { - push(@out, "segment .text"); + push(@out, "segment .text\n"); } sub main'function_begin @@ -201,7 +218,7 @@ sub main'function_begin push(@labels,$func); my($tmp)=<<"EOF"; -GLOBAL _$func +global _$func _$func: push ebp push ebx @@ -216,7 +233,7 @@ sub main'function_begin_B { my($func,$extra)=@_; my($tmp)=<<"EOF"; -GLOBAL _$func +global _$func _$func: EOF push(@out,$tmp); |