From 087cfacad6c025d779e2e88d3bdd3605220a2e3d Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Sun, 16 Jul 2023 14:45:09 -0400
Subject: [PATCH] POINTER is capacity 8
---
gcc/cobol/util.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/cobol/util.cc b/gcc/cobol/util.cc
index 81a877745dad..2529254d315c 100644
--- a/gcc/cobol/util.cc
+++ b/gcc/cobol/util.cc
@@ -524,7 +524,7 @@ symbol_field_type_update( cbl_field_t *field,
// set the type
field->type = candidate;
if( field->data.capacity == 0 ) {
- static const cbl_field_data_t data = {0, 16, 32, 0,
+ static const cbl_field_data_t data = {0, 8, 0, 0,
NULL, NULL, {NULL}, {NULL}};
field->data = data;
field->attr &= ~ signable_e;
--
GitLab