cleaned up a bit

This commit is contained in:
ceriel
1989-01-26 14:43:09 +00:00
parent 3ecbfced88
commit 0846e8f43b
4 changed files with 4 additions and 55 deletions

View File

@@ -9,7 +9,6 @@
* DEF_C_INSTR - 'C_loe..', 'C_ste..', '..icon, '..fcon', etc
* CONDITION - C-expression, for example: '$1 == 481'
* ARROW - '==>'
* EQUIV - '::='
* CALL - C-style functioncall, for example: 'error( 17)'
* ASSEM_INSTR - C-style string, for example: '"mov r0, (r1)"'
* DEFAULT - 'default'
@@ -82,13 +81,6 @@ int mylex()
}
break;
case ':' : if ( equiv()) {
CD_pos = FALSE;
CALL_pos = TRUE;
return( EQUIV);
}
break;
case 'd' : if ( CD_pos && _default()) {
CD_pos = FALSE;
special = FALSE;
@@ -194,18 +186,6 @@ int arrow() /* '==>' */
return( FALSE);
}
int equiv() /* '::=' */
{
if ( ( *next++ = scanc()) == ':')
if ( ( *next++ = scanc()) == '=')
return( TRUE);
else
backc( *--next);
else
backc( *--next);
return( FALSE);
}
int _default() /* 'default' */
{
char c, skip_space();
@@ -266,7 +246,7 @@ read_call()
read_condition()
/* A CONDITION is followed by either '==>' or '::='.
/* A CONDITION is followed by '==>'
*/
{
while ( TRUE) {
@@ -281,15 +261,6 @@ read_condition()
return;
}
break;
case ':' : if ( equiv()) {
backc( '=');
backc( ':');
backc( ':');
next -= 3;
return;
}
break;
}
}
}
@@ -299,12 +270,6 @@ char *str;
{
if ( *str == 'C' && *(str+1) == '_') /* C_xxx */
return( TRUE);
else if ( strncmp( "locals", str, 6) == 0)
return( TRUE);
else if ( strncmp( "jump", str, 4) == 0)
return( TRUE);
else if ( strncmp( "prolog", str, 6) == 0)
return( TRUE);
else
return( FALSE);
}