From adb70fc775221b31db19c3649445e3f37e00f14b Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Tue, 24 Dec 2024 16:39:27 -0500
Subject: [PATCH] No calls to warnx remain in gcc/cobol
---
gcc/cobol/ChangeLog | 2 ++
gcc/cobol/parse_util.h | 2 +-
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/gcc/cobol/ChangeLog b/gcc/cobol/ChangeLog
index 6bd521345ba6..033fd645b395 100644
--- a/gcc/cobol/ChangeLog
+++ b/gcc/cobol/ChangeLog
@@ -46,4 +46,6 @@
convert scan_post.h to cbl_warning
convert scan.l to cbl_warning
convert parse_ante.h to cbl_warning
+ convert parse_util.h to cbl_warning
+ gcc/cobol has no calls to warnx
diff --git a/gcc/cobol/parse_util.h b/gcc/cobol/parse_util.h
index b273da9ed249..2a21d2def0b0 100644
--- a/gcc/cobol/parse_util.h
+++ b/gcc/cobol/parse_util.h
@@ -346,7 +346,7 @@ intrinsic_invalid_parameter( int token, size_t n, cbl_field_t **fields ) {
return token == descr.token;
} );
if( p == function_descrs_end ) {
- warnx( "%s: internal error: intrinsic function %s not found",
+ cbl_warning( "%s: internal error: intrinsic function %s not found",
__func__, keyword_str(token) );
return n? fields[0] : NULL;
}
--
GitLab