Print this page
4853 illumos-gate is not lint-clean when built with openssl 1.0

Split Close
Expand all
Collapse all
          --- old/usr/src/lib/openssl/libsunw_crypto/pl/x86gas.pl
          +++ new/usr/src/lib/openssl/libsunw_crypto/pl/x86gas.pl
   1    1  #!/usr/bin/env perl
   2    2  
   3    3  package x86gas;
   4    4  
   5    5  *out=\@::out;
   6    6  
   7    7  $::lbdecor=$::aout?"L":".L";            # local label decoration
   8      -$nmdecor=($::aout or $::coff)?"_":"";   # external name decoration
        8 +$nmdecor=($::aout or $::coff)?"_":"sunw_";      # external name decoration
   9    9  
  10   10  $initseg="";
  11   11  
  12   12  $align=16;
  13   13  $align=log($align)/log(2) if ($::aout);
  14   14  $com_start="#" if ($::aout or $::coff);
  15   15  
  16   16  sub opsize()
  17   17  { my $reg=shift;
  18   18      if    ($reg =~ m/^%e/o)             { "l"; }
↓ open down ↓ 223 lines elided ↑ open up ↑
 242  242  .globl  $ctor
 243  243  .align  2
 244  244  $ctor:
 245  245          jmp     $f
 246  246  ___
 247  247      }
 248  248  }
 249  249  
 250  250  sub ::dataseg
 251  251  {   push(@out,".data\n");   }
      252 +
      253 +*::hidden = sub { push(@out,".hidden\t$nmdecor$_[0]\n"); } if ($::elf);
 252  254  
 253  255  1;
    
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX