From 95873e66ab8cfe6fe7be3842e4a753961fd0bfb3 Mon Sep 17 00:00:00 2001 From: gingerBill Date: Fri, 14 Dec 2018 21:05:02 +0000 Subject: `deferred` procedure attribute --- src/check_decl.cpp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/check_decl.cpp') diff --git a/src/check_decl.cpp b/src/check_decl.cpp index 3fb53bb19..6723b6754 100644 --- a/src/check_decl.cpp +++ b/src/check_decl.cpp @@ -633,6 +633,11 @@ void check_proc_decl(CheckerContext *ctx, Entity *e, DeclInfo *d) { e->Procedure.link_name = ac.link_name; } + if (ac.deferred_procedure != nullptr) { + e->Procedure.deferred_procedure = ac.deferred_procedure; + array_add(&ctx->checker->procs_with_deferred_to_check, e); + } + if (is_foreign) { String name = e->token.string; if (e->Procedure.link_name.len > 0) { -- cgit v1.2.3