From: Ulf Möller <ulf@openssl.org>
Date: Tue, 5 Dec 2000 03:51:46 +0000 (+0000)
Subject: PERLASM - the wierdest programming language since Intercal.
X-Git-Tag: OpenSSL_0_9_6a-beta1~107^2~41
X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=cc74659fcc7502434d9452718bd47a46e70a0962;hp=90e7ce363ae8278bb4ac647739c89a43ed341e34;ds=sidebyside

PERLASM - the wierdest programming language since Intercal.

add debug output facilities.
---

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 309060ea00..3e6ff685b7 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -3,6 +3,7 @@
 package x86unix;
 
 $label="L000";
+$const="";
 
 $align=($main'aout)?"4":"16";
 $under=($main'aout)?"_":"";
@@ -341,9 +342,13 @@ sub main'function_end
 	popl	%ebx
 	popl	%ebp
 	ret
-.${func}_end:
 EOF
 	push(@out,$tmp);
+
+	push(@out,$const);
+	$const="";
+	push(@out,".${func}_end:\n");
+
 	if ($main'cpp)
 		{ push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
 	elsif ($main'gaswin)
@@ -459,3 +464,24 @@ 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";
+	}