diff options
| author | Jason Kercher <JKercher@JSM.lcl> | 2022-03-10 09:34:48 -0500 |
|---|---|---|
| committer | Jason Kercher <JKercher@JSM.lcl> | 2022-03-10 09:34:48 -0500 |
| commit | b91c0ec7154008b0b84973054e4487ed4d733aba (patch) | |
| tree | cdbc19eeeb3aa9160880e1e62462b9915c60660d /src/check_decl.cpp | |
| parent | bad295cf695e623591f737fb68556ea0a76a53ce (diff) | |
| parent | dc8d28c383a404d01dcbcb65ba84ff814da9424e (diff) | |
Merge remote-tracking branch 'upstream/master' into os2_linux
Diffstat (limited to 'src/check_decl.cpp')
| -rw-r--r-- | src/check_decl.cpp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/check_decl.cpp b/src/check_decl.cpp index 45d741532..3fdd944f9 100644 --- a/src/check_decl.cpp +++ b/src/check_decl.cpp @@ -174,6 +174,10 @@ void check_init_constant(CheckerContext *ctx, Entity *e, Operand *operand) { return; } + if (is_type_proc(e->type)) { + error(e->token, "Illegal declaration of a constant procedure value"); + } + e->parent_proc_decl = ctx->curr_proc_decl; e->Constant.value = operand->value; |