d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixed bug in function return code

Browse source
This commit is contained in:
ceriel 1991-03-26 13:38:36 +00:00
parent 9565b3bd24
commit dcb6a17cf3
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/pc/comp/code.c
View file

@ -257,7 +257,7 @@ CodeEndBlock(df, StackAdjustment)
} }
if( tp->tp_size == word_size ) if( tp->tp_size == word_size )
C_lol(-tp->tp_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); C_ldl(-tp->tp_size);
else { else {
C_lal(-tp->tp_size); C_lal(-tp->tp_size);

2
lang/pc/comp/tokenname.c
View file

@ -11,6 +11,7 @@
Also, the "symbol2str.c" file is produced from this file. Also, the "symbol2str.c" file is produced from this file.
*/ */
#ifdef ____
struct tokenname tkspec[] = { /* the names of the special tokens */ struct tokenname tkspec[] = { /* the names of the special tokens */
{IDENT, "identifier"}, {IDENT, "identifier"},
{STRING, "string"}, {STRING, "string"},
@ -27,6 +28,7 @@ struct tokenname tkcomp[] = { /* names of the composite tokens */
{BECOMES, ":="}, {BECOMES, ":="},
{0, ""} {0, ""}
}; };
#endif /* ____ */
struct tokenname tkidf[] = { /* names of the identifier tokens */ struct tokenname tkidf[] = { /* names of the identifier tokens */
{AND, "and"}, {AND, "and"},