Some assemblers are too rudimentary to understand dynamic labels.

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 18d4fbff45096497484e349848638816efc3090f..9bc5c0e893cf23eca692347f4ab31dff6e805d50 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -719,9 +719,9 @@ sub main'initseg
                $tmp=<<___;
 .section       .init
        call    $under$f
-       jmp     1f
+       jmp     .Linitalign
 .align $align
-1:
+.Linitalign:
 ___
                }
        elsif ($main'coff)