From 8e1c611dc1c2e4582d4ad674eac527f0371f42fa Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Sat, 13 Apr 2024 19:15:08 -0400
Subject: [PATCH] parser_display uses GENERIC to display FldLiteralA
---
gcc/cobol/genapi.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index 4c8f4f96746b..1a9e69000ff7 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -4358,7 +4358,7 @@ parser_display_internal(tree file_descriptor,
buffer_size = max_possible;
buffer = (char *)xrealloc(buffer, max_possible);
}
- internal_to_console(&buffer,
+ __gg__ascii_to_console(&buffer,
&buffer_size,
refer.field->data.initial,
refer.field->data.capacity );
--
GitLab