From bf0dde96f56c9ba50541e707b64f26102b6b5131 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Wed, 17 Oct 2001 20:57:51 -0700 Subject: [PATCH] std.c (ffestd_labeldef_format): Fix variable/stmt ordering. * std.c (ffestd_labeldef_format): Fix variable/stmt ordering. (ffestd_R737A): Likewise. From-SVN: r46328 --- gcc/f/ChangeLog | 5 +++++ gcc/f/std.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index b064088ac20..10a09c69cd3 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2001-10-17 Richard Henderson + + * std.c (ffestd_labeldef_format): Fix variable/stmt ordering. + (ffestd_R737A): Likewise. + 2001-10-17 Richard Henderson * com.h: Remove FFECOM_targetCURRENT, FFECOM_ONEPASS, BUILT_FOR_270, diff --git a/gcc/f/std.c b/gcc/f/std.c index b8e3b39f6b4..db8c723cf9e 100644 --- a/gcc/f/std.c +++ b/gcc/f/std.c @@ -1503,10 +1503,10 @@ ffestd_labeldef_branch (ffelab label) void ffestd_labeldef_format (ffelab label) { - ffestd_label_formatdef_ = label; - ffestdStmt_ stmt; + ffestd_label_formatdef_ = label; + stmt = ffestd_stmt_new_ (FFESTD_stmtidFORMATLABEL_); ffestd_stmt_append_ (stmt); stmt->u.formatlabel.label = label; @@ -2441,10 +2441,10 @@ ffestd_R625 (ffesttExprList exprlist, ffebld stat) void ffestd_R737A (ffebld dest, ffebld source) { - ffestd_check_simple_ (); - ffestdStmt_ stmt; + ffestd_check_simple_ (); + stmt = ffestd_stmt_new_ (FFESTD_stmtidR737A_); ffestd_stmt_append_ (stmt); ffestd_subr_line_save_ (stmt); -- 2.30.2