From 9adec628c1c6b3d24f7a8642bbf5c0c84586d161 Mon Sep 17 00:00:00 2001 From: gingerBill Date: Wed, 14 Apr 2021 17:15:28 +0100 Subject: Add `@(cold)` attribute to procedure declarations --- src/check_decl.cpp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/check_decl.cpp') diff --git a/src/check_decl.cpp b/src/check_decl.cpp index 5e52597b9..51c0b6ee5 100644 --- a/src/check_decl.cpp +++ b/src/check_decl.cpp @@ -690,6 +690,10 @@ void check_proc_decl(CheckerContext *ctx, Entity *e, DeclInfo *d) { if (ac.test) { e->flags |= EntityFlag_Test; } + if (ac.set_cold) { + e->flags |= EntityFlag_Cold; + } + e->Procedure.is_export = ac.is_export; e->deprecated_message = ac.deprecated_message; ac.link_name = handle_link_name(ctx, e->token, ac.link_name, ac.link_prefix); -- cgit v1.2.3