Fix a few typos

[openssl.git] / crypto / perlasm / x86_64-xlate.pl

diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl
index 09d293a446f22347d110bd8e867bb5faf7a7c1f5..b612c215a0548ceb2ee5d583f16da1b7d85f61ce 100755 (executable)
--- a/crypto/perlasm/x86_64-xlate.pl
+++ b/crypto/perlasm/x86_64-xlate.pl
@@ -279,7 +279,7 @@ my %globals;
        }
 
        # if base register is %rbp or %r13, see if it's possible to
-       # flip base and ingex registers [for better performance]
+       # flip base and index registers [for better performance]
        if (!$self->{label} && $self->{index} && $self->{scale}==1 &&
            $self->{base} =~ /(rbp|r13)/) {
                $self->{base} = $self->{index}; $self->{index} = $1;
@@ -437,7 +437,7 @@ my %globals;
        }
     }
 }
-{ package expr;                # pick up expressioins
+{ package expr;                # pick up expressions
     sub re {
        my      ($class, $line, $opcode) = @_;
        my      $self = {};
@@ -610,6 +610,8 @@ my %globals;
        foreach my $token (split(/,\s*/,$line)) {
            if ($token =~ /^%r/) {
                push @ret,reg($token);
+           } elsif ($token =~ /((?:0x)?[0-9a-f]+)\((%r\w+)\)/) {
+               push @ret,reg("$2+$1");
            } elsif ($token =~ /(\w+):(\-?(?:0x)?[0-9a-f]+)(U?)/i) {
                my $i = 1*eval($2);
                push @ret,$DW_OP_complex{$1}, ($3 ? uleb128($i) : sleb128($i));
@@ -633,7 +635,7 @@ my %globals;
        my      $self = {};
        my      $ret;
 
-       if ($$line =~ s/^\s*\.cfi_(\w+)\s+//) {
+       if ($$line =~ s/^\s*\.cfi_(\w+)\s*//) {
            bless $self,$class;
            $ret = $self;
            undef $self->{value};
@@ -656,7 +658,7 @@ my %globals;
                        && do { $cfa_rsp -= 1*eval($$line) if ($cfa_reg eq "%rsp");
                                last;
                              };
-           /def_cfa/   && do { if ($$line =~ /(%r\w+)\s*,\s*(\.+)/) {
+           /def_cfa/   && do { if ($$line =~ /(%r\w+)\s*,\s*(.+)/) {
                                    $cfa_reg = $1;
                                    $cfa_rsp = -1*eval($2) if ($cfa_reg eq "%rsp");
                                }
@@ -1243,7 +1245,7 @@ close STDOUT;
 # the area above user stack pointer in true asynchronous manner...
 #
 # All the above means that if assembler programmer adheres to Unix
-# register and stack layout, but disregards the "red zone" existense,
+# register and stack layout, but disregards the "red zone" existence,
 # it's possible to use following prologue and epilogue to "gear" from
 # Unix to Win64 ABI in leaf functions with not more than 6 arguments.
 #