From 509fae36838afef8460222a7ff47cd3ecbb9e742 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Sat, 13 Apr 2024 23:30:37 -0400
Subject: [PATCH] Remove references to FldLiteralA from __gg__move
---
libgcobol/libgcobol.cc | 4 ----
1 file changed, 4 deletions(-)
diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index aa1f1e329578..f26a21c6f0d8 100644
--- a/libgcobol/libgcobol.cc
+++ b/libgcobol/libgcobol.cc
@@ -4572,7 +4572,6 @@ __gg__move( struct cblc_refer_t *dest,
{
// For all other types, we just do a straight byte-for-byte move
case FldAlphanumeric:
- case FldLiteralA:
case FldNumericEdited:
case FldAlphaEdited:
case FldNumericDisplay:
@@ -4602,7 +4601,6 @@ __gg__move( struct cblc_refer_t *dest,
break;
case FldAlphanumeric:
- case FldLiteralA:
case FldNumericEdited:
case FldAlphaEdited:
// This is an ordinary alpha-to-alpha move:
@@ -4931,7 +4929,6 @@ __gg__move( struct cblc_refer_t *dest,
}
break;
- case FldLiteralA:
case FldAlphanumeric:
case FldNumericDisplay:
case FldNumericEdited:
@@ -5090,7 +5087,6 @@ __gg__move( struct cblc_refer_t *dest,
{
switch( source_type )
{
- case FldLiteralA:
case FldAlphanumeric:
{
char ach[256];
--
GitLab