1d9e397b599b13d642138480a28c14db7a136bf0Adam Langley#!/usr/bin/env perl 2d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 3d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Ascetic x86_64 AT&T to MASM/NASM assembler translator by <appro>. 4d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 5d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Why AT&T to MASM and not vice versa? Several reasons. Because AT&T 6d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# format is way easier to parse. Because it's simpler to "gear" from 7d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Unix ABI to Windows one [see cross-reference "card" at the end of 8d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# file]. Because Linux targets were available first... 9d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 10d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# In addition the script also "distills" code suitable for GNU 11d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# assembler, so that it can be compiled with more rigid assemblers, 12d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# such as Solaris /usr/ccs/bin/as. 13d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 14d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# This translator is not designed to convert *arbitrary* assembler 15d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# code from AT&T format to MASM one. It's designed to convert just 16d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# enough to provide for dual-ABI OpenSSL modules development... 17d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# There *are* limitations and you might have to modify your assembler 18d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# code or this script to achieve the desired result... 19d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 20d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Currently recognized limitations: 21d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 22d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# - can't use multiple ops per line; 23d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 24d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Dual-ABI styling rules. 25d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 26d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1. Adhere to Unix register and stack layout [see cross-reference 27d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ABI "card" at the end for explanation]. 28d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 2. Forget about "red zone," stick to more traditional blended 29d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# stack frame allocation. If volatile storage is actually required 30d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# that is. If not, just leave the stack as is. 31d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 3. Functions tagged with ".type name,@function" get crafted with 32d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# unified Win64 prologue and epilogue automatically. If you want 33d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# to take care of ABI differences yourself, tag functions as 34d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ".type name,@abi-omnipotent" instead. 35d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 4. To optimize the Win64 prologue you can specify number of input 36d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# arguments as ".type name,@function,N." Keep in mind that if N is 37d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# larger than 6, then you *have to* write "abi-omnipotent" code, 38d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# because >6 cases can't be addressed with unified prologue. 39d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 5. Name local labels as .L*, do *not* use dynamic labels such as 1: 40d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# (sorry about latter). 41d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 6. Don't use [or hand-code with .byte] "rep ret." "ret" mnemonic is 42d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# required to identify the spots, where to inject Win64 epilogue! 43d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# But on the pros, it's then prefixed with rep automatically:-) 44d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 7. Stick to explicit ip-relative addressing. If you have to use 45d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# GOTPCREL addressing, stick to mov symbol@GOTPCREL(%rip),%r??. 46d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Both are recognized and translated to proper Win64 addressing 47d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# modes. To support legacy code a synthetic directive, .picmeup, 48d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# is implemented. It puts address of the *next* instruction into 49d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# target register, e.g.: 50d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 51d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .picmeup %rax 52d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# lea .Label-.(%rax),%rax 53d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 54d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 8. In order to provide for structured exception handling unified 55d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Win64 prologue copies %rsp value to %rax. For further details 56d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# see SEH paragraph at the end. 57d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 9. .init segment is allowed to contain calls to functions only. 58d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# a. If function accepts more than 4 arguments *and* >4th argument 59d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# is declared as non 64-bit value, do clear its upper part. 60d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 61d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $flavour = shift; 62d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $output = shift; 63d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyif ($flavour =~ /\./) { $output = $flavour; undef $flavour; } 64d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 65d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyopen STDOUT,">$output" || die "can't open $output: $!" 66d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (defined($output)); 67d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 68d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $gas=1; $gas=0 if ($output =~ /\.asm$/); 69d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $elf=1; $elf=0 if (!$gas); 70d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $win64=0; 71d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $prefix=""; 72d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $decor=".L"; 73d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 74d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $masmref=8 + 50727*2**-32; # 8.00.50727 shipped with VS2005 75d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $masm=0; 76d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $PTR=" PTR"; 77d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 78d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $nasmref=2.03; 79d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $nasm=0; 80d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 81d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyif ($flavour eq "mingw64") { $gas=1; $elf=0; $win64=1; 82e99801b603dea8893dcc61c70b327ef2d00b652cKenny Root # TODO(davidben): Before supporting the 83e99801b603dea8893dcc61c70b327ef2d00b652cKenny Root # mingw64 perlasm flavour, do away with this 84e99801b603dea8893dcc61c70b327ef2d00b652cKenny Root # environment variable check. 85e99801b603dea8893dcc61c70b327ef2d00b652cKenny Root die "mingw64 not supported"; 86d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $prefix=`echo __USER_LABEL_PREFIX__ | $ENV{CC} -E -P -`; 87d9e397b599b13d642138480a28c14db7a136bf0Adam Langley chomp($prefix); 88d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 89d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyelsif ($flavour eq "macosx") { $gas=1; $elf=0; $prefix="_"; $decor="L\$"; } 90d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyelsif ($flavour eq "masm") { $gas=0; $elf=0; $masm=$masmref; $win64=1; $decor="\$L\$"; } 91d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyelsif ($flavour eq "nasm") { $gas=0; $elf=0; $nasm=$nasmref; $win64=1; $decor="\$L\$"; $PTR=""; } 92e99801b603dea8893dcc61c70b327ef2d00b652cKenny Rootelsif (!$gas) { die "unknown flavour $flavour"; } 93d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 94d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $current_segment; 95d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $current_function; 96d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy %globals; 97d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 98d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package opcode; # pick up opcodes 99d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 100d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance in enough... 101d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 102d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 103d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 104d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /^([a-z][a-z0-9]*)/i) { 105d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = $1; 106d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 107d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 108d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 109d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $self->{sz}; 110d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($self->{op} =~ /^(movz)x?([bw]).*/) { # movz is pain... 111d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = $1; 112d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = $2; 113d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /call|jmp/) { 114d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = ""; 115d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /^p/ && $' !~ /^(ush|op|insrw)/) { # SSEn 116d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = ""; 117d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /^v/) { # VEX 118d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = ""; 119d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /mov[dq]/ && $line =~ /%xmm/) { 120d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = ""; 121d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /([a-z]{3,})([qlwb])$/) { 122d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = $1; 123d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = $2; 124d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 125d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 126d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 127d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 128d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub size { 129d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 130d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $sz = shift; 131d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz} = $sz if (defined($sz) && !defined($self->{sz})); 132d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{sz}; 133d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 134d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 135d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 136d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 137d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($self->{op} eq "movz") { # movz is pain... 138d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s%s%s",$self->{op},$self->{sz},shift; 139d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /^set/) { 140d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "$self->{op}"; 141d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} eq "ret") { 142d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $epilogue = ""; 143d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && $current_function->{abi} eq "svr4") { 144d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $epilogue = "movq 8(%rsp),%rdi\n\t" . 145d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "movq 16(%rsp),%rsi\n\t"; 146d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 147d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $epilogue . ".byte 0xf3,0xc3"; 148d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} eq "call" && !$elf && $current_segment eq ".init") { 149d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ".p2align\t3\n\t.quad"; 150d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 151d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "$self->{op}$self->{sz}"; 152d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 153d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 154d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} =~ s/^movz/movzx/; 155d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($self->{op} eq "ret") { 156d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = ""; 157d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && $current_function->{abi} eq "svr4") { 158d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = "mov rdi,QWORD${PTR}[8+rsp]\t;WIN64 epilogue\n\t". 159d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "mov rsi,QWORD${PTR}[16+rsp]\n\t"; 160d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 161d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} .= "DB\t0F3h,0C3h\t\t;repret"; 162d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} =~ /^(pop|push)f/) { 163d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} .= $self->{sz}; 164d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{op} eq "call" && $current_segment eq ".CRT\$XCU") { 165d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op} = "\tDQ"; 166d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 167d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op}; 168d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 169d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 170d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub mnemonic { 171d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self=shift; 172d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $op=shift; 173d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op}=$op if (defined($op)); 174d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{op}; 175d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 176d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 177d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package const; # pick up constants, which start with $ 178d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 179d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance in enough... 180d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 181d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 182d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 183d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /^\$([^,]+)/) { 184d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $1; 185d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 186d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 187d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 188d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 189d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 190d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 191d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 192d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 193d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 194d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # Solaris /usr/ccs/bin/as can't handle multiplications 195d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # in $self->{value} 196d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi; 197d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; 198d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "\$%s",$self->{value}; 199d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 200d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/(0b[0-1]+)/oct($1)/eig; 201d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/0x([0-9a-f]+)/0$1h/ig if ($masm); 202d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s",$self->{value}; 203d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 204d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 205d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 206d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package ea; # pick up effective addresses: expr(%reg,%reg,scale) 207d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 208d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance in enough... 209d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 210d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 211d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 212d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # optional * ---vvv--- appears in indirect jmp/call 213d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)/) { 214d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{asterisk} = $1; 215d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} = $2; 216d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ($self->{base},$self->{index},$self->{scale})=split(/,/,$3); 217d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{scale} = 1 if (!defined($self->{scale})); 218d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 219d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 220d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 221d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && $self->{label} =~ s/\@GOTPCREL//) { 222d9e397b599b13d642138480a28c14db7a136bf0Adam Langley die if (opcode->mnemonic() ne "mov"); 223d9e397b599b13d642138480a28c14db7a136bf0Adam Langley opcode->mnemonic("lea"); 224d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 225d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base} =~ s/^%//; 226d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{index} =~ s/^%// if (defined($self->{index})); 227d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 228d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 229d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 230d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub size {} 231d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 232d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 233d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $sz = shift; 234d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 235d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei; 236d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/\.L/$decor/g; 237d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 238d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # Silently convert all EAs to 64-bit. This is required for 239d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # elder GNU assembler and results in more compact code, 240d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # *but* most importantly AES module depends on this feature! 241d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{index} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/; 242d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/; 243d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 244d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # Solaris /usr/ccs/bin/as can't handle multiplications 245d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # in $self->{label}, new gas requires sign extension... 246d9e397b599b13d642138480a28c14db7a136bf0Adam Langley use integer; 247d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi; 248d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/\b([0-9]+\s*[\*\/\%]\s*[0-9]+)\b/eval($1)/eg; 249d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/\b([0-9]+)\b/$1<<32>>32/eg; 250d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 251d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (!$self->{label} && $self->{index} && $self->{scale}==1 && 252d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base} =~ /(rbp|r13)/) { 253d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base} = $self->{index}; $self->{index} = $1; 254d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 255d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 256d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 257d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64"); 258d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 259d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (defined($self->{index})) { 260d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s%s(%s,%%%s,%d)",$self->{asterisk}, 261d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label}, 262d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base}?"%$self->{base}":"", 263d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{index},$self->{scale}; 264d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 265d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s%s(%%%s)", $self->{asterisk},$self->{label},$self->{base}; 266d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 267d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 268d9e397b599b13d642138480a28c14db7a136bf0Adam Langley %szmap = ( b=>"BYTE$PTR", w=>"WORD$PTR", 269d9e397b599b13d642138480a28c14db7a136bf0Adam Langley l=>"DWORD$PTR", d=>"DWORD$PTR", 270d9e397b599b13d642138480a28c14db7a136bf0Adam Langley q=>"QWORD$PTR", o=>"OWORD$PTR", 271d9e397b599b13d642138480a28c14db7a136bf0Adam Langley x=>"XMMWORD$PTR", y=>"YMMWORD$PTR", z=>"ZMMWORD$PTR" ); 272d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 273d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/\./\$/g; 274d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig; 275d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/); 276d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 277d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ($self->{asterisk}) && ($sz="q") || 278d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (opcode->mnemonic() =~ /^v?mov([qd])$/) && ($sz=$1) || 279d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (opcode->mnemonic() =~ /^v?pinsr([qdwb])$/) && ($sz=$1) || 280d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (opcode->mnemonic() =~ /^vpbroadcast([qdwb])$/) && ($sz=$1) || 281d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (opcode->mnemonic() =~ /^vinsert[fi]128$/) && ($sz="x"); 282d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 283d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (defined($self->{index})) { 284d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s[%s%s*%d%s]",$szmap{$sz}, 285d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label}?"$self->{label}+":"", 286d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{index},$self->{scale}, 287d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base}?"+$self->{base}":""; 288d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{base} eq "rip") { 289d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s[%s]",$szmap{$sz},$self->{label}; 290d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 291d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sprintf "%s[%s%s]",$szmap{$sz}, 292d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{label}?"$self->{label}+":"", 293d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{base}; 294d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 295d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 296d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 297d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 298d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package register; # pick up registers, which start with %. 299d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 300d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $class = shift; # muliple instances... 301d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = {}; 302d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 303d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 304d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 305d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # optional * ---vvv--- appears in indirect jmp/call 306d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /^(\*?)%(\w+)/) { 307d9e397b599b13d642138480a28c14db7a136bf0Adam Langley bless $self,$class; 308d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{asterisk} = $1; 309d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $2; 310d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 311d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 312d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 313d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 314d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 315d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub size { 316d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 317d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 318d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 319d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($self->{value} =~ /^r[\d]+b$/i) { $ret="b"; } 320d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^r[\d]+w$/i) { $ret="w"; } 321d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^r[\d]+d$/i) { $ret="l"; } 322d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^r[\w]+$/i) { $ret="q"; } 323d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^[a-d][hl]$/i){ $ret="b"; } 324d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^[\w]{2}l$/i) { $ret="b"; } 325d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^[\w]{2}$/i) { $ret="w"; } 326d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($self->{value} =~ /^e[a-z]{2}$/i){ $ret="l"; } 327d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 328d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 329d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 330d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 331d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 332d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { sprintf "%s%%%s",$self->{asterisk},$self->{value}; } 333d9e397b599b13d642138480a28c14db7a136bf0Adam Langley else { $self->{value}; } 334d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 335d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 336d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package label; # pick up labels, which end with : 337d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 338d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance is enough... 339d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 340d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 341d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 342d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /(^[\.\w]+)\:/) { 343d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $1; 344d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 345d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 346d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 347d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/^\.L/$decor/; 348d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 349d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 350d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 351d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 352d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 353d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 354d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 355d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $func = ($globals{$self->{value}} or $self->{value}) . ":"; 356d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && 357d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{name} eq $self->{value} && 358d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{abi} eq "svr4") { 359d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= "\n"; 360d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %rdi,8(%rsp)\n"; 361d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %rsi,16(%rsp)\n"; 362d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %rsp,%rax\n"; 363d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= "${decor}SEH_begin_$current_function->{name}:\n"; 364d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $narg = $current_function->{narg}; 365d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $narg=6 if (!defined($narg)); 366d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %rcx,%rdi\n" if ($narg>0); 367d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %rdx,%rsi\n" if ($narg>1); 368d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %r8,%rdx\n" if ($narg>2); 369d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq %r9,%rcx\n" if ($narg>3); 370d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq 40(%rsp),%r8\n" if ($narg>4); 371d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " movq 48(%rsp),%r9\n" if ($narg>5); 372d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 373d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func; 374d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($self->{value} ne "$current_function->{name}") { 375d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= ":" if ($masm && $ret!~m/^\$/); 376d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} . ":"; 377d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($win64 && $current_function->{abi} eq "svr4") { 378d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $func = "$current_function->{name}" . 379d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ($nasm ? ":" : "\tPROC $current_function->{scope}") . 380d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "\n"; 381d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov QWORD${PTR}[8+rsp],rdi\t;WIN64 prologue\n"; 382d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov QWORD${PTR}[16+rsp],rsi\n"; 383d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov rax,rsp\n"; 384d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= "${decor}SEH_begin_$current_function->{name}:"; 385d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= ":" if ($masm); 386d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= "\n"; 387d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $narg = $current_function->{narg}; 388d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $narg=6 if (!defined($narg)); 389d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov rdi,rcx\n" if ($narg>0); 390d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov rsi,rdx\n" if ($narg>1); 391d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov rdx,r8\n" if ($narg>2); 392d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov rcx,r9\n" if ($narg>3); 393d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov r8,QWORD${PTR}[40+rsp]\n" if ($narg>4); 394d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= " mov r9,QWORD${PTR}[48+rsp]\n" if ($narg>5); 395d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $func .= "\n"; 396d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 397d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "$current_function->{name}". 398d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ($nasm ? ":" : "\tPROC $current_function->{scope}"); 399d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 400d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 401d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 402d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package expr; # pick up expressioins 403d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 404d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance is enough... 405d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 406d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 407d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 408d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /(^[^,]+)/) { 409d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $1; 410d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 411d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 412d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 413d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/\@PLT// if (!$elf); 414d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei; 415d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s/\.L/$decor/g; 416d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 417d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 418d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 419d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 420d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 421d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($nasm && opcode->mnemonic()=~m/^j(?![re]cxz)/) { 422d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "NEAR ".$self->{value}; 423d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 424d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}; 425d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 426d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 427d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 428d9e397b599b13d642138480a28c14db7a136bf0Adam Langley{ package directive; # pick up directives, which start with . 429d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub re { 430d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; # single instance is enough... 431d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *line = shift; 432d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $ret; 433d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $dir; 434d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my %opcode = # lea 2f-1f(%rip),%dst; 1: nop; 2: 435d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ( "%rax"=>0x01058d48, "%rcx"=>0x010d8d48, 436d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%rdx"=>0x01158d48, "%rbx"=>0x011d8d48, 437d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%rsp"=>0x01258d48, "%rbp"=>0x012d8d48, 438d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%rsi"=>0x01358d48, "%rdi"=>0x013d8d48, 439d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%r8" =>0x01058d4c, "%r9" =>0x010d8d4c, 440d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%r10"=>0x01158d4c, "%r11"=>0x011d8d4c, 441d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%r12"=>0x01258d4c, "%r13"=>0x012d8d4c, 442d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%r14"=>0x01358d4c, "%r15"=>0x013d8d4c ); 443d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 444d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line =~ /^\s*(\.\w+)/) { 445d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $dir = $1; 446d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret = $self; 447d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $self->{value}; 448d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = substr($line,@+[0]); $line =~ s/^\s+//; 449d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 450d9e397b599b13d642138480a28c14db7a136bf0Adam Langley SWITCH: for ($dir) { 451d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.picmeup/ && do { if ($line =~ /(%r[\w]+)/i) { 452d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $dir="\t.long"; 453d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line=sprintf "0x%x,0x90000000",$opcode{$1}; 454d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 455d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 456d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 457d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.global|\.globl|\.extern/ 458d9e397b599b13d642138480a28c14db7a136bf0Adam Langley && do { $globals{$line} = $prefix . $line; 459d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = $globals{$line} if ($prefix); 460d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 461d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 462d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.type/ && do { ($sym,$type,$narg) = split(',',$line); 463d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($type eq "\@function") { 464d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $current_function; 465d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{name} = $sym; 466d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{abi} = "svr4"; 467d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{narg} = $narg; 468d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{scope} = defined($globals{$sym})?"PUBLIC":"PRIVATE"; 469d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($type eq "\@abi-omnipotent") { 470d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $current_function; 471d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{name} = $sym; 472d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_function->{scope} = defined($globals{$sym})?"PUBLIC":"PRIVATE"; 473d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 474d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s/\@abi\-omnipotent/\@function/; 475d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s/\@function.*/\@function/; 476d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 477d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 478d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.asciz/ && do { if ($line =~ /^"(.*)"$/) { 479d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $dir = ".byte"; 480d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = join(",",unpack("C*",$1),0); 481d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 482d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 483d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 484d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.rva|\.long|\.quad/ 485d9e397b599b13d642138480a28c14db7a136bf0Adam Langley && do { $line =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei; 486d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s/\.L/$decor/g; 487d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 488d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 489d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 490d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 491d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 492d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $dir . "\t" . $line; 493d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 494d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dir =~ /\.extern/) { 495a4fb56a4374ac52a0b1c23e3654d4426c2e4adb3Adam Langley if ($flavour eq "elf") { 496a4fb56a4374ac52a0b1c23e3654d4426c2e4adb3Adam Langley $self->{value} .= "\n.hidden $line"; 497a4fb56a4374ac52a0b1c23e3654d4426c2e4adb3Adam Langley } else { 498a4fb56a4374ac52a0b1c23e3654d4426c2e4adb3Adam Langley $self->{value} = ""; 499a4fb56a4374ac52a0b1c23e3654d4426c2e4adb3Adam Langley } 500d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif (!$elf && $dir =~ /\.type/) { 501d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = ""; 502d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = ".def\t" . ($globals{$1} or $1) . ";\t" . 503d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (defined($globals{$1})?".scl 2;":".scl 3;") . 504d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "\t.type 32;\t.endef" 505d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && $line =~ /([^,]+),\@function/); 506d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif (!$elf && $dir =~ /\.size/) { 507d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = ""; 508d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (defined($current_function)) { 509d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= "${decor}SEH_end_$current_function->{name}:" 510d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($win64 && $current_function->{abi} eq "svr4"); 511d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $current_function; 512d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 513d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif (!$elf && $dir =~ /\.align/) { 514d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = ".p2align\t" . (log($line)/log(2)); 515d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($dir eq ".section") { 516d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment=$line; 517d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (!$elf && $current_segment eq ".init") { 518d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($flavour eq "macosx") { $self->{value} = ".mod_init_func"; } 519d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($flavour eq "mingw64") { $self->{value} = ".section\t.ctors"; } 520d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 521d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($dir =~ /\.(text|data)/) { 522d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment=".$1"; 523d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($dir =~ /\.global|\.globl|\.extern/) { 524d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($flavour eq "macosx") { 525d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= "\n.private_extern $line"; 526d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 527d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= "\n.hidden $line"; 528d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 529d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($dir =~ /\.hidden/) { 530d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($flavour eq "macosx") { $self->{value} = ".private_extern\t$prefix$line"; } 531d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($flavour eq "mingw64") { $self->{value} = ""; } 532d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($dir =~ /\.comm/) { 533d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = "$dir\t$prefix$line"; 534d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} =~ s|,([0-9]+),([0-9]+)$|",$1,".log($2)/log(2)|e if ($flavour eq "macosx"); 535d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 536d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = ""; 537d9e397b599b13d642138480a28c14db7a136bf0Adam Langley return $self; 538d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 539d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 540d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # non-gas case or nasm/masm 541d9e397b599b13d642138480a28c14db7a136bf0Adam Langley SWITCH: for ($dir) { 542d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.text/ && do { my $v=undef; 543d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($nasm) { 544d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="section .text code align=64\n"; 545d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 546d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="$current_segment\tENDS\n" if ($current_segment); 547d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment = ".text\$"; 548d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="$current_segment\tSEGMENT "; 549d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=$masm>=$masmref ? "ALIGN(256)" : "PAGE"; 550d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" 'CODE'"; 551d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 552d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $v; 553d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 554d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 555d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.data/ && do { my $v=undef; 556d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($nasm) { 557d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="section .data data align=8\n"; 558d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 559d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="$current_segment\tENDS\n" if ($current_segment); 560d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment = "_DATA"; 561d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="$current_segment\tSEGMENT"; 562d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 563d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $v; 564d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 565d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 566d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.section/ && do { my $v=undef; 567d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s/([^,]*).*/$1/; 568d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = ".CRT\$XCU" if ($line eq ".init"); 569d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($nasm) { 570d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="section $line"; 571d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line=~/\.([px])data/) { 572d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" rdata align="; 573d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=$1 eq "p"? 4 : 8; 574d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($line=~/\.CRT\$/i) { 575d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" rdata align=8"; 576d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 577d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 578d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="$current_segment\tENDS\n" if ($current_segment); 579d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="$line\tSEGMENT"; 580d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($line=~/\.([px])data/) { 581d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" READONLY"; 582d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" ALIGN(".($1 eq "p" ? 4 : 8).")" if ($masm>=$masmref); 583d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($line=~/\.CRT\$/i) { 584d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=" READONLY "; 585d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.=$masm>=$masmref ? "ALIGN(8)" : "DWORD"; 586d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 587d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 588d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment = $line; 589d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $v; 590d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 591d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 592d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.extern/ && do { $self->{value} = "EXTERN\t".$line; 593d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= ":NEAR" if ($masm); 594d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 595d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 596d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.globl|.global/ 597d9e397b599b13d642138480a28c14db7a136bf0Adam Langley && do { $self->{value} = $masm?"PUBLIC":"global"; 598d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= "\t".$line; 599d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 600d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 601d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.size/ && do { if (defined($current_function)) { 602d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $self->{value}; 603d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($current_function->{abi} eq "svr4") { 604d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}="${decor}SEH_end_$current_function->{name}:"; 605d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}.=":\n" if($masm); 606d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 607d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}.="$current_function->{name}\tENDP" if($masm && $current_function->{name}); 608d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $current_function; 609d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 610d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 611d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 612d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.align/ && do { $self->{value} = "ALIGN\t".$line; last; }; 613d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.(value|long|rva|quad)/ 614d9e397b599b13d642138480a28c14db7a136bf0Adam Langley && do { my $sz = substr($1,0,1); 615d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @arr = split(/,\s*/,$line); 616d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $last = pop(@arr); 617d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $conv = sub { my $var=shift; 618d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $var=~s/^(0b[0-1]+)/oct($1)/eig; 619d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $var=~s/^0x([0-9a-f]+)/0$1h/ig if ($masm); 620d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva")) 621d9e397b599b13d642138480a28c14db7a136bf0Adam Langley { $var=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; } 622d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $var; 623d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 624d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 625d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $sz =~ tr/bvlrq/BWDDQ/; 626d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = "\tD$sz\t"; 627d9e397b599b13d642138480a28c14db7a136bf0Adam Langley for (@arr) { $self->{value} .= &$conv($_).","; } 628d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} .= &$conv($last); 629d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 630d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 631d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.byte/ && do { my @str=split(/,\s*/,$line); 632d9e397b599b13d642138480a28c14db7a136bf0Adam Langley map(s/(0b[0-1]+)/oct($1)/eig,@str); 633d9e397b599b13d642138480a28c14db7a136bf0Adam Langley map(s/0x([0-9a-f]+)/0$1h/ig,@str) if ($masm); 634d9e397b599b13d642138480a28c14db7a136bf0Adam Langley while ($#str>15) { 635d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}.="DB\t" 636d9e397b599b13d642138480a28c14db7a136bf0Adam Langley .join(",",@str[0..15])."\n"; 637d9e397b599b13d642138480a28c14db7a136bf0Adam Langley foreach (0..15) { shift @str; } 638d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 639d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}.="DB\t" 640d9e397b599b13d642138480a28c14db7a136bf0Adam Langley .join(",",@str) if (@str); 641d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 642d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 643d9e397b599b13d642138480a28c14db7a136bf0Adam Langley /\.comm/ && do { my @str=split(/,\s*/,$line); 644d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $v=undef; 645d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($nasm) { 646d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="common $prefix@str[0] @str[1]"; 647d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 648d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v="$current_segment\tENDS\n" if ($current_segment); 649d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $current_segment = "_DATA"; 650d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="$current_segment\tSEGMENT\n"; 651d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $v.="COMM @str[0]:DWORD:".@str[1]/4; 652d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 653d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value} = $v; 654d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last; 655d9e397b599b13d642138480a28c14db7a136bf0Adam Langley }; 656d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 657d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line = ""; 658d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 659d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 660d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $ret; 661d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 662d9e397b599b13d642138480a28c14db7a136bf0Adam Langley sub out { 663d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $self = shift; 664d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $self->{value}; 665d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 666d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 667d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 668d9e397b599b13d642138480a28c14db7a136bf0Adam Langleysub rex { 669d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *opcode=shift; 670d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my ($dst,$src,$rex)=@_; 671d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 672d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rex|=0x04 if($dst>=8); 673d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rex|=0x01 if($src>=8); 674d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,($rex|0x40) if ($rex); 675d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 676d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 677d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# older gas and ml64 don't handle SSE>2 instructions 678d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy %regrm = ( "%eax"=>0, "%ecx"=>1, "%edx"=>2, "%ebx"=>3, 679d9e397b599b13d642138480a28c14db7a136bf0Adam Langley "%esp"=>4, "%ebp"=>5, "%esi"=>6, "%edi"=>7 ); 680d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 681d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $movq = sub { # elderly gas can't handle inter-register movq 682d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $arg = shift; 683d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 684d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg =~ /%xmm([0-9]+),\s*%r(\w+)/) { 685d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my ($src,$dst)=($1,$2); 686d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dst !~ /[0-9]+/) { $dst = $regrm{"%e$dst"}; } 687d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$src,$dst,0x8); 688d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x7e; 689d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M 690d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 691d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($arg =~ /%r(\w+),\s*%xmm([0-9]+)/) { 692d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my ($src,$dst)=($2,$1); 693d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dst !~ /[0-9]+/) { $dst = $regrm{"%e$dst"}; } 694d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$src,$dst,0x8); 695d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x6e; 696d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M 697d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 698d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 699d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 700d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 701d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 702d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 703d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $pextrd = sub { 704d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([0-9]+),\s*%xmm([0-9]+),\s*(%\w+)/) { 705d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 706d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $imm=$1; 707d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $src=$2; 708d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $dst=$3; 709d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dst =~ /%r([0-9]+)d/) { $dst = $1; } 710d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($dst =~ /%e/) { $dst = $regrm{$dst}; } 711d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$src,$dst); 712d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x3a,0x16; 713d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M 714d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$imm; 715d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 716d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 717d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 718d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 719d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 720d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 721d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $pinsrd = sub { 722d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([0-9]+),\s*(%\w+),\s*%xmm([0-9]+)/) { 723d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 724d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $imm=$1; 725d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $src=$2; 726d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $dst=$3; 727d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($src =~ /%r([0-9]+)/) { $src = $1; } 728d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($src =~ /%e/) { $src = $regrm{$src}; } 729d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$dst,$src); 730d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x3a,0x22; 731d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|(($dst&7)<<3)|($src&7); # ModR/M 732d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$imm; 733d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 734d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 735d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 736d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 737d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 738d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 739d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $pshufb = sub { 740d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /%xmm([0-9]+),\s*%xmm([0-9]+)/) { 741d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 742d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$2,$1); 743d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x38,0x00; 744d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M 745d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 746d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 747d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 748d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 749d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 750d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 751d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $palignr = sub { 752d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([0-9]+),\s*%xmm([0-9]+),\s*%xmm([0-9]+)/) { 753d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 754d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$3,$2); 755d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x3a,0x0f; 756d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 757d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$1; 758d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 759d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 760d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 761d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 762d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 763d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 764d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $pclmulqdq = sub { 765d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([x0-9a-f]+),\s*%xmm([0-9]+),\s*%xmm([0-9]+)/) { 766d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x66); 767d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,$3,$2); 768d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0x3a,0x44; 769d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 770d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $c=$1; 771d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$c=~/^0/?oct($c):$c; 772d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 773d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 774d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 775d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 776d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 777d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 778d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $rdrand = sub { 779d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /%[er](\w+)/) { 780d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(); 781d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $dst=$1; 782d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dst !~ /[0-9]+/) { $dst = $regrm{"%e$dst"}; } 783d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,0,$1,8); 784d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0xc7,0xf0|($dst&7); 785d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 786d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 787d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 788d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 789d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 790d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 791d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $rdseed = sub { 792d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /%[er](\w+)/) { 793d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(); 794d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $dst=$1; 795d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($dst !~ /[0-9]+/) { $dst = $regrm{"%e$dst"}; } 796d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rex(\@opcode,0,$1,8); 797d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x0f,0xc7,0xf8|($dst&7); 798d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 799d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 800d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 801d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 802d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 803d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 804d9e397b599b13d642138480a28c14db7a136bf0Adam Langleysub rxb { 805d9e397b599b13d642138480a28c14db7a136bf0Adam Langley local *opcode=shift; 806d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my ($dst,$src1,$src2,$rxb)=@_; 807d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 808d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rxb|=0x7<<5; 809d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rxb&=~(0x04<<5) if($dst>=8); 810d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rxb&=~(0x01<<5) if($src1>=8); 811d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $rxb&=~(0x02<<5) if($src2>=8); 812d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$rxb; 813d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 814d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 815d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $vprotd = sub { 816d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([x0-9a-f]+),\s*%xmm([0-9]+),\s*%xmm([0-9]+)/) { 817d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x8f); 818d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rxb(\@opcode,$3,$2,-1,0x08); 819d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x78,0xc2; 820d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 821d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $c=$1; 822d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$c=~/^0/?oct($c):$c; 823d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 824d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 825d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 826d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 827d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 828d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 829d9e397b599b13d642138480a28c14db7a136bf0Adam Langleymy $vprotq = sub { 830d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (shift =~ /\$([x0-9a-f]+),\s*%xmm([0-9]+),\s*%xmm([0-9]+)/) { 831d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my @opcode=(0x8f); 832d9e397b599b13d642138480a28c14db7a136bf0Adam Langley rxb(\@opcode,$3,$2,-1,0x08); 833d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0x78,0xc3; 834d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 835d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $c=$1; 836d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @opcode,$c=~/^0/?oct($c):$c; 837d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @opcode; 838d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 839d9e397b599b13d642138480a28c14db7a136bf0Adam Langley (); 840d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 841d9e397b599b13d642138480a28c14db7a136bf0Adam Langley}; 842d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 843d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyif ($nasm) { 844d9e397b599b13d642138480a28c14db7a136bf0Adam Langley print <<___; 845d9e397b599b13d642138480a28c14db7a136bf0Adam Langleydefault rel 846d9e397b599b13d642138480a28c14db7a136bf0Adam Langley%define XMMWORD 847d9e397b599b13d642138480a28c14db7a136bf0Adam Langley%define YMMWORD 848d9e397b599b13d642138480a28c14db7a136bf0Adam Langley%define ZMMWORD 849d9e397b599b13d642138480a28c14db7a136bf0Adam Langley___ 850d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} elsif ($masm) { 851d9e397b599b13d642138480a28c14db7a136bf0Adam Langley print <<___; 852d9e397b599b13d642138480a28c14db7a136bf0Adam LangleyOPTION DOTNAME 853d9e397b599b13d642138480a28c14db7a136bf0Adam Langley___ 854d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 855d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 856d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyprint STDOUT "#if defined(__x86_64__)\n" if ($gas); 857d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 858d9e397b599b13d642138480a28c14db7a136bf0Adam Langleywhile($line=<>) { 859d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 860d9e397b599b13d642138480a28c14db7a136bf0Adam Langley chomp($line); 861d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 862d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s|[#!].*$||; # get rid of asm-style comments... 863d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s|/\*.*\*/||; # ... and C-style comments... 864d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s|^\s+||; # ... and skip white spaces in beginning 865d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s|\s+$||; # ... and at the end 866d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 867d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $label; 868d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $opcode; 869d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef @args; 870d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 871d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($label=label->re(\$line)) { print $label->out(); } 872d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 873d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if (directive->re(\$line)) { 874d9e397b599b13d642138480a28c14db7a136bf0Adam Langley printf "%s",directive->out(); 875d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } elsif ($opcode=opcode->re(\$line)) { 876d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $asm = eval("\$".$opcode->mnemonic()); 877d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef @bytes; 878d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 879d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ((ref($asm) eq 'CODE') && scalar(@bytes=&$asm($line))) { 880d9e397b599b13d642138480a28c14db7a136bf0Adam Langley print $gas?".byte\t":"DB\t",join(',',@bytes),"\n"; 881d9e397b599b13d642138480a28c14db7a136bf0Adam Langley next; 882d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 883d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 884d9e397b599b13d642138480a28c14db7a136bf0Adam Langley ARGUMENT: while (1) { 885d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $arg; 886d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 887d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg=register->re(\$line)) { opcode->size($arg->size()); } 888d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($arg=const->re(\$line)) { } 889d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($arg=ea->re(\$line)) { } 890d9e397b599b13d642138480a28c14db7a136bf0Adam Langley elsif ($arg=expr->re(\$line)) { } 891d9e397b599b13d642138480a28c14db7a136bf0Adam Langley else { last ARGUMENT; } 892d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 893d9e397b599b13d642138480a28c14db7a136bf0Adam Langley push @args,$arg; 894d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 895d9e397b599b13d642138480a28c14db7a136bf0Adam Langley last ARGUMENT if ($line !~ /^,/); 896d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 897d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $line =~ s/^,\s*//; 898d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } # ARGUMENT: 899d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 900d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($#args>=0) { 901d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $insn; 902d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $sz=opcode->size(); 903d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 904d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($gas) { 905d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $insn = $opcode->out($#args>=1?$args[$#args]->size():$sz); 906d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @args = map($_->out($sz),@args); 907d9e397b599b13d642138480a28c14db7a136bf0Adam Langley printf "\t%s\t%s",$insn,join(",",@args); 908d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 909d9e397b599b13d642138480a28c14db7a136bf0Adam Langley $insn = $opcode->out(); 910d9e397b599b13d642138480a28c14db7a136bf0Adam Langley foreach (@args) { 911d9e397b599b13d642138480a28c14db7a136bf0Adam Langley my $arg = $_->out(); 912d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # $insn.=$sz compensates for movq, pinsrw, ... 913d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg =~ /^xmm[0-9]+$/) { $insn.=$sz; $sz="x" if(!$sz); last; } 914d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg =~ /^ymm[0-9]+$/) { $insn.=$sz; $sz="y" if(!$sz); last; } 915d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg =~ /^zmm[0-9]+$/) { $insn.=$sz; $sz="z" if(!$sz); last; } 916d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($arg =~ /^mm[0-9]+$/) { $insn.=$sz; $sz="q" if(!$sz); last; } 917d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 918d9e397b599b13d642138480a28c14db7a136bf0Adam Langley @args = reverse(@args); 919d9e397b599b13d642138480a28c14db7a136bf0Adam Langley undef $sz if ($nasm && $opcode->mnemonic() eq "lea"); 920d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 921d9e397b599b13d642138480a28c14db7a136bf0Adam Langley if ($insn eq "movq" && $#args == 1 && $args[0]->out($sz) eq "xmm0" && $args[1]->out($sz) eq "rax") { 922d9e397b599b13d642138480a28c14db7a136bf0Adam Langley # I have no clue why MASM can't parse this instruction. 923d9e397b599b13d642138480a28c14db7a136bf0Adam Langley printf "DB 66h, 48h, 0fh, 6eh, 0c0h"; 924d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 925d9e397b599b13d642138480a28c14db7a136bf0Adam Langley printf "\t%s\t%s",$insn,join(",",map($_->out($sz),@args)); 926d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 927d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 928d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } else { 929d9e397b599b13d642138480a28c14db7a136bf0Adam Langley printf "\t%s",$opcode->out(); 930d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 931d9e397b599b13d642138480a28c14db7a136bf0Adam Langley } 932d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 933d9e397b599b13d642138480a28c14db7a136bf0Adam Langley print $line,"\n"; 934d9e397b599b13d642138480a28c14db7a136bf0Adam Langley} 935d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 936d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyprint "\n$current_segment\tENDS\n" if ($current_segment && $masm); 937d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyprint "END\n" if ($masm); 938d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyprint "#endif\n" if ($gas); 939d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 940d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 941d9e397b599b13d642138480a28c14db7a136bf0Adam Langleyclose STDOUT; 942d9e397b599b13d642138480a28c14db7a136bf0Adam Langley 943d9e397b599b13d642138480a28c14db7a136bf0Adam Langley################################################# 944d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Cross-reference x86_64 ABI "card" 945d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 946d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Unix Win64 947d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rax * * 948d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rbx - - 949d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rcx #4 #1 950d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rdx #3 #2 951d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rsi #2 - 952d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rdi #1 - 953d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rbp - - 954d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rsp - - 955d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r8 #5 #3 956d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r9 #6 #4 957d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r10 * * 958d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r11 * * 959d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r12 - - 960d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r13 - - 961d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r14 - - 962d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %r15 - - 963d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 964d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# (*) volatile register 965d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# (-) preserved by callee 966d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# (#) Nth argument, volatile 967d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 968d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# In Unix terms top of stack is argument transfer area for arguments 969d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# which could not be accomodated in registers. Or in other words 7th 970d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# [integer] argument resides at 8(%rsp) upon function entry point. 971d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 128 bytes above %rsp constitute a "red zone" which is not touched 972d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# by signal handlers and can be used as temporal storage without 973d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# allocating a frame. 974d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 975d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# In Win64 terms N*8 bytes on top of stack is argument transfer area, 976d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# which belongs to/can be overwritten by callee. N is the number of 977d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# arguments passed to callee, *but* not less than 4! This means that 978d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# upon function entry point 5th argument resides at 40(%rsp), as well 979d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# as that 32 bytes from 8(%rsp) can always be used as temporal 980d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# storage [without allocating a frame]. One can actually argue that 981d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# one can assume a "red zone" above stack pointer under Win64 as well. 982d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Point is that at apparently no occasion Windows kernel would alter 983d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# the area above user stack pointer in true asynchronous manner... 984d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 985d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# All the above means that if assembler programmer adheres to Unix 986d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# register and stack layout, but disregards the "red zone" existense, 987d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# it's possible to use following prologue and epilogue to "gear" from 988d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Unix to Win64 ABI in leaf functions with not more than 6 arguments. 989d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 990d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# omnipotent_function: 991d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ifdef WIN64 992d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rdi,8(%rsp) 993d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rsi,16(%rsp) 994d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rcx,%rdi ; if 1st argument is actually present 995d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rdx,%rsi ; if 2nd argument is actually ... 996d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %r8,%rdx ; if 3rd argument is ... 997d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %r9,%rcx ; if 4th argument ... 998d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq 40(%rsp),%r8 ; if 5th ... 999d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq 48(%rsp),%r9 ; if 6th ... 1000d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# endif 1001d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ... 1002d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ifdef WIN64 1003d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq 8(%rsp),%rdi 1004d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq 16(%rsp),%rsi 1005d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# endif 1006d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ret 1007d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1008d9e397b599b13d642138480a28c14db7a136bf0Adam Langley################################################# 1009d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Win64 SEH, Structured Exception Handling. 1010d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1011d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Unlike on Unix systems(*) lack of Win64 stack unwinding information 1012d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# has undesired side-effect at run-time: if an exception is raised in 1013d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# assembler subroutine such as those in question (basically we're 1014d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# referring to segmentation violations caused by malformed input 1015d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# parameters), the application is briskly terminated without invoking 1016d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# any exception handlers, most notably without generating memory dump 1017d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# or any user notification whatsoever. This poses a problem. It's 1018d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# possible to address it by registering custom language-specific 1019d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# handler that would restore processor context to the state at 1020d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# subroutine entry point and return "exception is not handled, keep 1021d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# unwinding" code. Writing such handler can be a challenge... But it's 1022d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# doable, though requires certain coding convention. Consider following 1023d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# snippet: 1024d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1025d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .type function,@function 1026d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# function: 1027d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rsp,%rax # copy rsp to volatile register 1028d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# pushq %r15 # save non-volatile registers 1029d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# pushq %rbx 1030d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# pushq %rbp 1031d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rsp,%r11 1032d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# subq %rdi,%r11 # prepare [variable] stack frame 1033d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# andq $-64,%r11 1034d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rax,0(%r11) # check for exceptions 1035d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %r11,%rsp # allocate [variable] stack frame 1036d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rax,0(%rsp) # save original rsp value 1037d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# magic_point: 1038d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ... 1039d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq 0(%rsp),%rcx # pull original rsp value 1040d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq -24(%rcx),%rbp # restore non-volatile registers 1041d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq -16(%rcx),%rbx 1042d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq -8(%rcx),%r15 1043d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# movq %rcx,%rsp # restore original rsp 1044d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ret 1045d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .size function,.-function 1046d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1047d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# The key is that up to magic_point copy of original rsp value remains 1048d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# in chosen volatile register and no non-volatile register, except for 1049d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# rsp, is modified. While past magic_point rsp remains constant till 1050d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# the very end of the function. In this case custom language-specific 1051d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# exception handler would look like this: 1052d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1053d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# EXCEPTION_DISPOSITION handler (EXCEPTION_RECORD *rec,ULONG64 frame, 1054d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT *context,DISPATCHER_CONTEXT *disp) 1055d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# { ULONG64 *rsp = (ULONG64 *)context->Rax; 1056d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# if (context->Rip >= magic_point) 1057d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# { rsp = ((ULONG64 **)context->Rsp)[0]; 1058d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->Rbp = rsp[-3]; 1059d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->Rbx = rsp[-2]; 1060d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->R15 = rsp[-1]; 1061d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# } 1062d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->Rsp = (ULONG64)rsp; 1063d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->Rdi = rsp[1]; 1064d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# context->Rsi = rsp[2]; 1065d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1066d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# memcpy (disp->ContextRecord,context,sizeof(CONTEXT)); 1067d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# RtlVirtualUnwind(UNW_FLAG_NHANDLER,disp->ImageBase, 1068d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# dips->ControlPc,disp->FunctionEntry,disp->ContextRecord, 1069d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# &disp->HandlerData,&disp->EstablisherFrame,NULL); 1070d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# return ExceptionContinueSearch; 1071d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# } 1072d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1073d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# It's appropriate to implement this handler in assembler, directly in 1074d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# function's module. In order to do that one has to know members' 1075d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# offsets in CONTEXT and DISPATCHER_CONTEXT structures and some constant 1076d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# values. Here they are: 1077d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1078d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rax 120 1079d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rcx 128 1080d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rdx 136 1081d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rbx 144 1082d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rsp 152 1083d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rbp 160 1084d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rsi 168 1085d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rdi 176 1086d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R8 184 1087d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R9 192 1088d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R10 200 1089d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R11 208 1090d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R12 216 1091d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R13 224 1092d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R14 232 1093d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.R15 240 1094d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Rip 248 1095d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# CONTEXT.Xmm6 512 1096d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# sizeof(CONTEXT) 1232 1097d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.ControlPc 0 1098d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.ImageBase 8 1099d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.FunctionEntry 16 1100d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.EstablisherFrame 24 1101d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.TargetIp 32 1102d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.ContextRecord 40 1103d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.LanguageHandler 48 1104d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# DISPATCHER_CONTEXT.HandlerData 56 1105d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# UNW_FLAG_NHANDLER 0 1106d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# ExceptionContinueSearch 1 1107d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1108d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# In order to tie the handler to the function one has to compose 1109d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# couple of structures: one for .xdata segment and one for .pdata. 1110d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1111d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# UNWIND_INFO structure for .xdata segment would be 1112d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1113d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# function_unwind_info: 1114d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .byte 9,0,0,0 1115d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .rva handler 1116d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1117d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# This structure designates exception handler for a function with 1118d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# zero-length prologue, no stack frame or frame register. 1119d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1120d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# To facilitate composing of .pdata structures, auto-generated "gear" 1121d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# prologue copies rsp value to rax and denotes next instruction with 1122d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .LSEH_begin_{function_name} label. This essentially defines the SEH 1123d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# styling rule mentioned in the beginning. Position of this label is 1124d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# chosen in such manner that possible exceptions raised in the "gear" 1125d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# prologue would be accounted to caller and unwound from latter's frame. 1126d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# End of function is marked with respective .LSEH_end_{function_name} 1127d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# label. To summarize, .pdata segment would contain 1128d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1129d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .rva .LSEH_begin_function 1130d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .rva .LSEH_end_function 1131d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .rva function_unwind_info 1132d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1133d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Reference to functon_unwind_info from .xdata segment is the anchor. 1134d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# In case you wonder why references are 32-bit .rvas and not 64-bit 1135d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# .quads. References put into these two segments are required to be 1136d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# *relative* to the base address of the current binary module, a.k.a. 1137d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# image base. No Win64 module, be it .exe or .dll, can be larger than 1138d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 2GB and thus such relative references can be and are accommodated in 1139d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 32 bits. 1140d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1141d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Having reviewed the example function code, one can argue that "movq 1142d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# %rsp,%rax" above is redundant. It is not! Keep in mind that on Unix 1143d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# rax would contain an undefined value. If this "offends" you, use 1144d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# another register and refrain from modifying rax till magic_point is 1145d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# reached, i.e. as if it was a non-volatile register. If more registers 1146d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# are required prior [variable] frame setup is completed, note that 1147d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# nobody says that you can have only one "magic point." You can 1148d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# "liberate" non-volatile registers by denoting last stack off-load 1149d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# instruction and reflecting it in finer grade unwind logic in handler. 1150d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# After all, isn't it why it's called *language-specific* handler... 1151d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1152d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Attentive reader can notice that exceptions would be mishandled in 1153d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# auto-generated "gear" epilogue. Well, exception effectively can't 1154d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# occur there, because if memory area used by it was subject to 1155d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# segmentation violation, then it would be raised upon call to the 1156d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# function (and as already mentioned be accounted to caller, which is 1157d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# not a problem). If you're still not comfortable, then define tail 1158d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# "magic point" just prior ret instruction and have handler treat it... 1159d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# 1160d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# (*) Note that we're talking about run-time, not debug-time. Lack of 1161d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# unwind information makes debugging hard on both Windows and 1162d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# Unix. "Unlike" referes to the fact that on Unix signal handler 1163d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# will always be invoked, core dumped and appropriate exit code 1164d9e397b599b13d642138480a28c14db7a136bf0Adam Langley# returned to parent (for user notification). 1165