deferred procedure attribute

This commit is contained in:
gingerBill
2018-12-14 21:05:02 +00:00
parent b7eebe5d00
commit 95873e66ab
5 changed files with 147 additions and 10 deletions

View File

@@ -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) {