looks like it works now

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 51494e2a449c9b9e17f8d23e0290e8004b3560e4..bb9c6925d8d8ec62d01e1ce58452f3412303817a 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -4,6 +4,7 @@ package x86unix;
 
 $label="L000";
 $const="";
 
 $label="L000";
 $const="";

+$constl=0;

 
 $align=($main'aout)?"4":"16";
 $under=($main'aout)?"_":"";
 
 $align=($main'aout)?"4":"16";
 $under=($main'aout)?"_":"";


@@ -484,8 +485,8 @@ sub main'putx
        &main'push($_[0]);
        &main'push('$Lstring' . ++$constl);
        &main'call('printf');
        &main'push($_[0]);
        &main'push('$Lstring' . ++$constl);
        &main'call('printf');

-       $stack-=8;

        &main'add("esp",8);
        &main'add("esp",8);

+       $stack-=8;

        &popvars();
 
        $const .= "Lstring$constl:\n\t.string \"\%X\"\n";
        &popvars();
 
        $const .= "Lstring$constl:\n\t.string \"\%X\"\n";


@@ -497,10 +498,9 @@ sub main'printf
        &pushvars();
        for ($i = @_ - 1; $i >= 0; $i--)
                {
        &pushvars();
        for ($i = @_ - 1; $i >= 0; $i--)
                {

-               $constl++;

                if ($i == 0) # change this to support %s format strings
                        {
                if ($i == 0) # change this to support %s format strings
                        {

-                       &main'push('$Lstring' . $constl);
+                       &main'push('$Lstring' . ++$constl);

                        $const .= "Lstring$constl:\n\t.string \"@_[$i]\"\n";
                        }
                else
                        $const .= "Lstring$constl:\n\t.string \"@_[$i]\"\n";
                        }
                else


@@ -517,8 +517,8 @@ sub main'printf
                }
        &main'call('printf');
        $stack-=4*@_;
                }
        &main'call('printf');
        $stack-=4*@_;

-       &popvars();

        &main'add("esp",4*@_);
        &main'add("esp",4*@_);

+       &popvars();

        }
 
 sub pushvars
        }
 
 sub pushvars