diff options
Diffstat (limited to 'gcc/ch/tasking.c')
-rw-r--r-- | gcc/ch/tasking.c | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/gcc/ch/tasking.c b/gcc/ch/tasking.c index c0c1c9ccbd4..8c3fabeffbc 100644 --- a/gcc/ch/tasking.c +++ b/gcc/ch/tasking.c @@ -1,5 +1,5 @@ /* Implement tasking-related actions for CHILL. - Copyright (C) 1992, 93, 1994 Free Software Foundation, Inc. + Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc. This file is part of GNU CC. @@ -15,7 +15,8 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU CC; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ #include "config.h" #include "system.h" @@ -514,7 +515,7 @@ build_start_process (process_name, copynum, exprlist, optset) tree process_name, copynum, exprlist, optset; { - tree process_decl, struct_type_node; + tree process_decl = NULL_TREE, struct_type_node = NULL_TREE; tree result; tree valtail, typetail; tree tuple = NULL_TREE, actuallist = NULL_TREE; @@ -1272,7 +1273,7 @@ build_signal_descriptor (sigdef, exprlist) || ! CH_DECL_SIGNAL (sigdef)) { error ("SEND requires a SIGNAL; %s is not a SIGNAL name", - signame); + IDENTIFIER_POINTER (signame)); return error_mark_node; } if (CH_TYPE_NONVALUE_P (TREE_TYPE (sigdef))) @@ -2085,8 +2086,8 @@ build_receive_case_label (signame, loclist) * BUFFER location and TREE_PURPOSE defines the defining occurence. */ static void -build_receive_buffer_case_end (label_cnt, buf_list, else_clause) - tree label_cnt, buf_list, else_clause; +build_receive_buffer_case_end (buf_list, else_clause) + tree buf_list, else_clause; { struct rc_state_type *rc_state = current_rc_state; tree alist; @@ -2185,8 +2186,8 @@ build_receive_buffer_case_end (label_cnt, buf_list, else_clause) * case-label counter passed from build_receive_case_start. */ static void -build_receive_signal_case_end (label_cnt, sig_list, else_clause) - tree label_cnt, sig_list, else_clause; +build_receive_signal_case_end (sig_list, else_clause) + tree sig_list, else_clause; { struct rc_state_type *rc_state = current_rc_state; tree alist, temp1; @@ -2285,8 +2286,8 @@ build_receive_signal_case_end (label_cnt, sig_list, else_clause) /* General function for the end of a RECEIVE CASE action */ void -build_receive_case_end (label_cnt, alist, else_clause) - tree label_cnt, alist, else_clause; +build_receive_case_end (alist, else_clause) + tree alist, else_clause; { rtx rcdone = gen_label_rtx (); struct rc_state_type *rc_state = current_rc_state; @@ -2322,9 +2323,9 @@ build_receive_case_end (label_cnt, alist, else_clause) /* now call the actual end function */ if (rc_state->bufseen) - build_receive_buffer_case_end (label_cnt, alist, else_clause); + build_receive_buffer_case_end (alist, else_clause); else - build_receive_signal_case_end (label_cnt, alist, else_clause); + build_receive_signal_case_end (alist, else_clause); /* now jump to the beginning of RECEIVE CASE processing */ gen_rcdoit: ; @@ -2594,8 +2595,8 @@ build_delay_case_label (eventlist, if_or_elseif) * passed from build_delay_case_start. */ void -build_delay_case_end (label_cnt, event_list) - tree label_cnt, event_list; +build_delay_case_end (event_list) + tree event_list; { struct dl_state_type *dl_state = current_dl_state; rtx dldone = gen_label_rtx (); @@ -3209,8 +3210,8 @@ invalidate_buffer_element_mode (bufmode) perform various error checks. Return a new queue size. */ tree -check_queue_size (type, qsize) - tree type, qsize; +check_queue_size (qsize) + tree qsize; { if (qsize == NULL_TREE || TREE_CODE (qsize) == ERROR_MARK) return qsize; |