--- freem/src/symtab_bltin.c	2025/01/19 02:04:04	1.1
+++ freem/src/symtab_bltin.c	2025/02/28 20:06:07	1.2
@@ -94,7 +94,7 @@ long str2long(char *string)
     return value;
 }
 
-void symtab_init ()
+void symtab_init (void)
 {
     register int i;
     union semun arg;
@@ -2475,12 +2475,11 @@ unsubscr:
 
 
 /******************************************************************************/
-short int collate (s, t)
-    char *s;
-    char *t;
     /* if 't' follows 's' in MUMPS collating sequence a 1 is returned
      * otherwise 0
      */
+
+short int collate (char *s, char *t)
 {
     short dif;
 
@@ -2552,11 +2551,10 @@ short int numeric (char *str)
 }					/* end of numeric() */
 
 /******************************************************************************/
-short int comp (s, t)
-    char *s;
-    char *t;			
     /* s and t are strings representing */
     /* MUMPS numbers. comp returns t>s  */
+
+short int comp (char *s, char *t)
 {
 
     register int s1 = s[0], t1 = t[0], point = '.';
@@ -2621,9 +2619,7 @@ short int comp (s, t)
 
 }					/* end of comp() */
 /******************************************************************************/
-void intstr (str, integ)			/* converts integer to string */
-    char *str;
-    short integ;
+void intstr (char *str, short integ)			/* converts integer to string */
 {
 
     if (integ < 0) {
@@ -2662,9 +2658,7 @@ void intstr (str, integ)			/* converts i
 }					/* end of intstr() */
 
 /******************************************************************************/
-void lintstr (str, integ)			/* converts long integer to string */
-    char *str;
-    long integ;
+void lintstr (char *str, long integ)			/* converts long integer to string */
 {
     char result[11];			/* 32 bit = 10 digits+sign */
     register int i = 0;
@@ -2700,10 +2694,8 @@ void lintstr (str, integ)			/* converts
  * alphabet for each character a pointer to the first variable beginning
  * with that letter is maintained. (0 indicates there's no such var.)
  */
-void udfsvn (action, key, data)		/* symbol table functions */
-    short action;			/* set_sym      get_sym   */
-    char *key;			/* lvn as ASCII-string */
-    char *data;
+
+void udfsvn (short action, char *key, char *data)		/* symbol table functions */
 {
 
 long keyl;			/* length of key                  */
@@ -2910,7 +2902,7 @@ old:
 
 
 /******************************************************************************/
-long getpmore ()
+long getpmore (void)
 {					/* try to get more 'partition' space. returns size increment */
     
     long siz;
@@ -2932,7 +2924,7 @@ long getpmore ()
 }					/* end getpmore */
 
 /******************************************************************************/
-long getumore ()
+long getumore (void)
 {					/* try to get more udfsvntab space. returns size increment */
     long siz, dif;
 
@@ -2958,7 +2950,7 @@ long getumore ()
 }					/* end getumore */
 
 /******************************************************************************/
-long getrmore ()
+long getrmore (void)
 {					/* try to get more routine space. returns size increment */
     long siz, dif;
     short i;
@@ -2990,7 +2982,7 @@ long getrmore ()
 }					/* end getrmore */
 
 /******************************************************************************/
-short int getnewmore ()
+short int getnewmore (void)
 {					/* enlarge new_buffers */
     char *newbuf;
     int i;