fixed build for clang

dvm/fdvm/trunk/Sage/lib/newsrc/comments.c

@@ -16,8 +16,15 @@
 #include "vextern.h"
 #include "annotate.tab.h"
 
+extern void Message(char *s, int l);
+
 void reset_semicoln_handler();
 void reset();
+int class_struct(int value);
+int is_declare(int value);
+int declare_symb(int value);
+int block_like(int state);
+int keep_original(int state);
 
 int lastdecl_id; /* o if no main_type appeared */
 int left_paren ;
@@ -484,8 +491,7 @@ int value ;
 
 }
 
-class_struct(value)
-register int value ;
+int class_struct(int value)
 {
   switch (value) {
   case ENUM :
@@ -496,8 +502,7 @@ register int value ;
   }
 }
 
-declare_symb(value)
-register int value ;
+int declare_symb(int value)
 {
   switch (value) {
   case TYPENAME :
@@ -523,8 +528,7 @@ void reset()
 /*   put_line_queue(line_pos_1,line_pos_fname); */
  }
 
-block_like(state)
-int state ;
+int block_like(int state)
 {
 
    switch( state) {
@@ -541,9 +545,7 @@ int state ;
  }
 }
 
-int
-is_declare(value)
-int value ;
+int is_declare(int value)
 {
   switch (value) {
   case   TYPENAME:
@@ -594,8 +596,7 @@ void reset_semicoln_handler()
 }
 
 
-keep_original(state)
-int state;
+int keep_original(int state)
 {
   switch (state) {
   case ELSE_EXPECTED_STATE: