From 8d3e84de237efbf5c376b486d7d559b3a516d1bf Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Sat, 13 Apr 2024 23:42:17 -0400
Subject: [PATCH] WIP: __gg__move_literala
---
libgcobol/libgcobol.cc | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index f26a21c6f0d8..b72762c11510 100644
--- a/libgcobol/libgcobol.cc
+++ b/libgcobol/libgcobol.cc
@@ -5220,8 +5220,10 @@ __gg__move_literala(struct cblc_refer_t *dest,
case FldNumericBinary:
{
- value = __gg__binary_value_from_refer(&rdigits, source);
-
+ int rdigits;
+ value = __gg__dirty_to_binary_internal( source->field->initial,
+ source->field->capacity,
+ &rdigits );
if( truncation_mode == trunc_std_e )
{
if( value < 0 )
--
GitLab