move constants for debug functions to end of file

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 61b0311c921e88ad93b5ced006bfde12b90115f9..a22994490d9b640dbe72a41cc4a7110f34202029 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -343,11 +343,9 @@ sub main'function_end
        popl    %ebx
        popl    %ebp
        ret
        popl    %ebx
        popl    %ebp
        ret

-$const

 .${func}_end:
 EOF
        push(@out,$tmp);
 .${func}_end:
 EOF
        push(@out,$tmp);

-       $const="";

 
        if ($main'cpp)
                { push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
 
        if ($main'cpp)
                { push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }


@@ -458,6 +456,12 @@ sub main'set_label
 
 sub main'file_end
        {
 
 sub main'file_end
        {

+       if ($const ne "")
+               {
+               push(@out,".section .rodata\n");
+               push(@out,$const);
+               $const="";
+               }

        }
 
 sub main'data_word
        }
 
 sub main'data_word