Fixed bug in function return code

diff --git a/lang/pc/comp/code.c b/lang/pc/comp/code.c
index 5f87847..c9e896f 100644 (file)
--- 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 4c9d6ba..3f1e3fa 100644 (file)
--- 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"},