--- language/modula3/m3compiler/m3cc/gcc/m3.c.orig Wed Aug 17 12:34:10 2005 +++ language/modula3/m3compiler/m3cc/gcc/m3.c Wed Aug 17 12:52:49 2005 @@ -27,7 +27,7 @@ -#include +#include #include #include #include @@ -991,15 +991,12 @@ static int current_dbg_type_count2; static int current_dbg_type_count3; -static void debug_tag (kind, id, va_alist) - char kind; - char *id; - va_dcl +static void debug_tag (char kind, char *id, ...) { va_list args; char *fmt; - va_start (args); + va_start (args, id); current_dbg_type_tag [0] = 'M'; current_dbg_type_tag [1] = kind; current_dbg_type_tag [2] = '_'; @@ -1031,16 +1028,14 @@ #define debug_field_id debug_field -static void debug_field_fmt (id, va_alist) - char *id; - va_dcl +static void debug_field_fmt (char *id, ...) { va_list args; char name [100]; char *fmt; memcpy (name, id, UID_SIZE); - va_start (args); + va_start (args, id); fmt = va_arg (args, char *); vsprintf (name + UID_SIZE, fmt, args); va_end (args);