* config/alpha/vms.h (INCLUDE_DEFAULTS): Add /gnu/lib/gcc-lib/include.

[pf3gnuchains/gcc-fork.git] / gcc / ch / timing.c

diff --git a/gcc/ch/timing.c b/gcc/ch/timing.c
index c477fe0..432ded2 100644 (file)
--- a/gcc/ch/timing.c
+++ b/gcc/ch/timing.c
@@ -1,5 +1,6 @@
 /* Implement timing-related actions for CHILL.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 1993, 1994, 1998, 2000, 2001
+   Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -15,7 +16,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"
@@ -28,10 +30,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "lex.h"
 #include "toplev.h"
 
-#ifndef LONG_TYPE_SIZE
-#define LONG_TYPE_SIZE BITS_PER_WORD
-#endif
-
 /* set non-zero if input text is forced to lowercase */
 extern int ignore_case;
 
@@ -55,7 +53,7 @@ static tree rtstime_type_node = NULL_TREE;
 */
 tree after_stack = NULL_TREE;
 
-/* in pass 1 we need a seperate list for the labels */
+/* in pass 1 we need a separate list for the labels */
 static tree after_stack_pass_1 = NULL_TREE;
 static tree after_help;
 
@@ -174,24 +172,24 @@ timing_init ()
                 endlink)))));
 
   builtin_function ("_abstime", long_ftype_int_int_int_int_int_int_int_ptr_int,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__check_cycle", void_ftype_ptr_durt_ptr_int,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__convert_duration_rtstime", void_ftype_durt_ptr,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__define_timeout", ptr_ftype_durt_ptr_int,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("_inttime", void_ftype_abstime_ptr,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__remaintime", int_ftype_ptr_durt_ptr,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__rtstime", void_ftype_ptr,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
   builtin_function ("__wait_until", int_ftype_abst_ptr_int,
-                   NOT_BUILT_IN, NULL_PTR);
+                   0, NOT_BUILT_IN, NULL_PTR);
 }
 
-#if 0
+/*
  *
  * build AT action
  *
@@ -208,7 +206,7 @@ timing_init ()
  * else
  *   to-action-list
  *
-#endif
+ */
 
 void
 build_at_action (t)
@@ -223,7 +221,7 @@ build_at_action (t)
   
   if (TREE_TYPE (abstime) != abs_timing_type_node)
     {
-      error ("absolute time value must be of mode TIME.");
+      error ("absolute time value must be of mode TIME");
       abstime = convert (abs_timing_type_node, build_int_2 (0, 0));
     }
   filename = force_addr_of (get_chill_filename ());
@@ -237,7 +235,7 @@ build_at_action (t)
   emit_line_note (input_filename, lineno);
 }
 
-#if 0
+/* 
  *
  * build CYCLE action
  *
@@ -256,7 +254,7 @@ build_at_action (t)
  *    goto label;
  *  }
  *
-#endif
+ */
 
 tree
 build_cycle_start (t)
@@ -280,7 +278,7 @@ build_cycle_start (t)
       
       if (TREE_TYPE (duration_value) != duration_timing_type_node)
        {
-         error ("duration primitive value must be of mode DURATION.");
+         error ("duration primitive value must be of mode DURATION");
          duration_value = convert (duration_timing_type_node, build_int_2 (0,0));
        }
       TREE_PURPOSE (TREE_PURPOSE (toid)) = duration_value;
@@ -319,7 +317,7 @@ build_cycle_end (toid)
   expand_goto (TREE_VALUE (toid));
 }
 
-#if 0
+/*
  *
  * build AFTER ACTION
  *
@@ -345,7 +343,7 @@ build_cycle_end (toid)
  *   end-label:
  * }
  *
-#endif
+ */
 
 void
 build_after_start (duration, delay_flag)
@@ -363,7 +361,7 @@ build_after_start (duration, delay_flag)
       
       if (TREE_TYPE (duration) != duration_timing_type_node)
         {
-         error ("duration primitive value must be of mode DURATION.");
+         error ("duration primitive value must be of mode DURATION");
          duration = convert (duration_timing_type_node, build_int_2 (0,0));
         }
       TREE_PURPOSE (value) = decl_temp1 (get_identifier ("AFTER_duration"),