Просмотр исходного кода

Fixed bug in function return code

ceriel 33 лет назад
Родитель
Сommit
ab0d625e36
2 измененных файлов с 3 добавлено и 1 удалено
  1. 1 1
      lang/pc/comp/code.c
  2. 2 0
      lang/pc/comp/tokenname.c

+ 1 - 1
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);

+ 2 - 0
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"},