From: ceriel <none@none>
Date: Tue, 26 Mar 1991 13:38:36 +0000 (+0000)
Subject: Fixed bug in function return code
X-Git-Tag: release-5-5~1153
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=dcb6a17cf3a3fc19cfbe9f79b75964fc929ab239;p=ack.git

Fixed bug in function return code
---

diff --git a/lang/pc/comp/code.c b/lang/pc/comp/code.c
index 5f878475e..c9e896fd5 100644
--- a/lang/pc/comp/code.c
+++ b/lang/pc/comp/code.c
@@ -257,7 +257,7 @@ CodeEndBlock(df, StackAdjustment)
 			}
 			if( tp->tp_size == word_size )
 				C_lol(-tp->tp_size);
-			if( tp->tp_size == 2 * word_size )
+			else if( tp->tp_size == 2 * word_size )
 				C_ldl(-tp->tp_size);
 			else {
 				C_lal(-tp->tp_size);
diff --git a/lang/pc/comp/tokenname.c b/lang/pc/comp/tokenname.c
index 4c9d6baa7..3f1e3fa49 100644
--- a/lang/pc/comp/tokenname.c
+++ b/lang/pc/comp/tokenname.c
@@ -11,6 +11,7 @@
 	Also, the "symbol2str.c" file is produced from this file.
 */
 
+#ifdef ____
 struct tokenname tkspec[] =	{	/* the names of the special tokens */
 	{IDENT, "identifier"},
 	{STRING, "string"},
@@ -27,6 +28,7 @@ struct tokenname tkcomp[] =	{	/* names of the composite tokens */
 	{BECOMES, ":="},
 	{0, ""}
 };
+#endif /* ____ */
 
 struct tokenname tkidf[] =	{	/* names of the identifier tokens */
 	{AND, "and"},