@@ -47,11 +47,6 @@ PROCEDURE GetLineNoFromLocation (locatio
PROCEDURE GetColumnNoFromLocation (location: location_t) : INTEGER ;
PROCEDURE GetFilenameFromLocation (location: location_t) : ADDRESS ;
PROCEDURE ErrorAt (location: location_t; message: ADDRESS) ;
-(*
-PROCEDURE ErrorAtf (location: location_t; message: ADDRESS; ...) ;
-PROCEDURE WarningAtf (location: location_t; message: ADDRESS; ...) ;
-PROCEDURE NoteAtf (location: location_t; message: ADDRESS; ...) ;
-*)
PROCEDURE ErrorAtf (location: location_t; message: ADDRESS) ;
PROCEDURE WarningAtf (location: location_t; message: ADDRESS) ;
PROCEDURE NoteAtf (location: location_t; message: ADDRESS) ;
@@ -55,9 +55,9 @@ EXTERN int m2linemap_GetLineNoFromLocati
EXTERN int m2linemap_GetColumnNoFromLocation (location_t location);
EXTERN const char *m2linemap_GetFilenameFromLocation (location_t location);
EXTERN void m2linemap_ErrorAt (location_t location, char *message);
-EXTERN void m2linemap_ErrorAtf (location_t location, const char *message, ...);
-EXTERN void m2linemap_WarningAtf (location_t location, const char *message, ...);
-EXTERN void m2linemap_NoteAtf (location_t location, const char *message, ...);
+EXTERN void m2linemap_ErrorAtf (location_t location, const char *message);
+EXTERN void m2linemap_WarningAtf (location_t location, const char *message);
+EXTERN void m2linemap_NoteAtf (location_t location, const char *message);
EXTERN void m2linemap_internal_error (const char *message);
@@ -182,8 +182,8 @@ m2linemap_ErrorAt (location_t location,
/* m2linemap_ErrorAtf - wraps up an error message. */
-void
-m2linemap_ErrorAtf (location_t location, const char *message, ...)
+static void
+m2linemap_ErrorAtf_1 (location_t location, const char *message, ...)
{
diagnostic_info diagnostic;
va_list ap;
@@ -195,10 +195,16 @@ m2linemap_ErrorAtf (location_t location,
va_end (ap);
}
+void
+m2linemap_ErrorAtf (location_t location, const char *message)
+{
+ m2linemap_ErrorAtf_1 (location, message);
+}
+
/* m2linemap_WarningAtf - wraps up a warning message. */
-void
-m2linemap_WarningAtf (location_t location, const char *message, ...)
+static void
+m2linemap_WarningAtf_1 (location_t location, const char *message, ...)
{
diagnostic_info diagnostic;
va_list ap;
@@ -210,10 +216,16 @@ m2linemap_WarningAtf (location_t locatio
va_end (ap);
}
+void
+m2linemap_WarningAtf (location_t location, const char *message)
+{
+ m2linemap_WarningAtf_1 (location, message);
+}
+
/* m2linemap_NoteAtf - wraps up a note message. */
-void
-m2linemap_NoteAtf (location_t location, const char *message, ...)
+static void
+m2linemap_NoteAtf_1 (location_t location, const char *message, ...)
{
diagnostic_info diagnostic;
va_list ap;
@@ -225,6 +237,12 @@ m2linemap_NoteAtf (location_t location,
va_end (ap);
}
+void
+m2linemap_NoteAtf (location_t location, const char *message)
+{
+ m2linemap_NoteAtf_1 (location, message);
+}
+
/* m2linemap_internal_error - allow Modula-2 to use the GCC internal error. */
void