From f8109909bb3395636201c7a3e0eb03fd7f342133 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Fri, 22 Dec 2023 12:47:25 -0500
Subject: [PATCH] WIP: re-parsing CALL and UDF
---
gcc/cobol/parse.y | 2 --
gcc/cobol/symbols.h | 1 -
2 files changed, 3 deletions(-)
diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y
index 99c55295b906..dd354aea8821 100644
--- a/gcc/cobol/parse.y
+++ b/gcc/cobol/parse.y
@@ -7817,8 +7817,6 @@ ffi_by_ref: scalar_arg[refer]
ffi_by_con: expr
{
cbl_refer_t *r = new cbl_refer_t(*$1);
- r->field = new_temporary_clone($1->field);
- parser_move(r->field, $1->field);
$$ = new cbl_ffi_arg_t(by_content_e, r);
}
| LITERAL
diff --git a/gcc/cobol/symbols.h b/gcc/cobol/symbols.h
index 7fa780255391..c6a7c34d3d48 100644
--- a/gcc/cobol/symbols.h
+++ b/gcc/cobol/symbols.h
@@ -820,7 +820,6 @@ struct cbl_refer_t {
}
bool is_pointer() const { return addr_of || field->type == FldPointer; }
-
bool is_reference() const { return nsubscript > 0 || refmod.is_active(); }
bool is_table_reference() const { return nsubscript > 0; }
bool is_refmod_reference() const { return refmod.is_active(); }
--
GitLab