OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ste.c (ffeste_R838): Handle ERROR_MARK.

Browse Source 
2003-06-01  Bud Davis  <bdavis9659@comcast.net>

	* ste.c (ffeste_R838): Handle ERROR_MARK.
	(ffeste_R839): Ditto.

From-SVN: r67295
This commit is contained in:
Bud Davis 2003-06-01 15:45:05 +00:00 committed by Toon Moene
parent cef2bd3e84
commit a5a88a76ab
2 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -1,3 +1,8 @@
2003-06-01 Bud Davis <bdavis9659@comcast.net>
* ste.c (ffeste_R838): Handle ERROR_MARK.
(ffeste_R839): Ditto.
2003-06-01 Andreas Jaeger <aj@suse.de>
* lex.c (ffelex_file_fixed): Remove usage of

27
gcc/f/ste.c
View File

@ -2950,16 +2950,19 @@ ffeste_R838 (ffelab label, ffebld target)
TREE_CONSTANT (label_tree) = 1;
target_tree = ffecom_expr_assign_w (target);
if (GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (target_tree)))
< GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (label_tree))))
error ("ASSIGN to variable that is too small");
if (TREE_CODE (target_tree) != ERROR_MARK)
{
if (GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (target_tree)))
< GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (label_tree))))
error ("ASSIGN to variable that is too small");
label_tree = convert (TREE_TYPE (target_tree), label_tree);
label_tree = convert (TREE_TYPE (target_tree), label_tree);
expr_tree = ffecom_modify (void_type_node,
expr_tree = ffecom_modify (void_type_node,
target_tree,
label_tree);
expand_expr_stmt (expr_tree);
expand_expr_stmt (expr_tree);
}
}
}
@ -2978,11 +2981,15 @@ ffeste_R839 (ffebld target)
seen here should never require use of temporaries. */
t = ffecom_expr_assign (target);
if (GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (t)))
< GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (null_pointer_node))))
error ("ASSIGNed GOTO target variable is too small");
expand_computed_goto (convert (TREE_TYPE (null_pointer_node), t));
if (TREE_CODE (t) != ERROR_MARK)
{
if (GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (t)))
< GET_MODE_SIZE (TYPE_MODE (TREE_TYPE (null_pointer_node))))
error ("ASSIGNed GOTO target variable is too small");
expand_computed_goto (convert (TREE_TYPE (null_pointer_node), t));
}
}
/* Arithmetic IF statement. */