doh

[oweals/openssl.git] / crypto / perlasm / x86unix.pl

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index f89d473b7e2fd891db17e734df0a59a8355e7e83..309060ea001856b9eb8616b0edadffeb9b8660c4 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -3,7 +3,6 @@
 package x86unix;
 
 $label="L000";
-$const="";
 
 $align=($main'aout)?"4":"16";
 $under=($main'aout)?"_":"";
@@ -342,12 +341,9 @@ sub main'function_end
        popl    %ebx
        popl    %ebp
        ret
-$const
 .${func}_end:
 EOF
        push(@out,$tmp);
-       $const="";
-
        if ($main'cpp)
                { push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
        elsif ($main'gaswin)
@@ -463,24 +459,3 @@ sub main'data_word
        {
        push(@out,"\t.long $_[0]\n");
        }
-
-sub main'puts
-       {
-           $constl++;
-           &main'push('$Lstring' . $constl);
-           &main'call('puts');
-           &main'add("esp",4);
-
-           $const .= "Lstring$constl:\n\t.string \"@_[0]\"\n";
-       }
-
-sub main'putx
-       {
-           $constl++;
-           &main'push($_[0]);
-           &main'push('$Lstring' . $constl);
-           &main'call('printf');
-           &main'add("esp",8);
-
-           $const .= "Lstring$constl:\n\t.string \"\%X\"\n";
-       }