From 8f39ebbe5a7628e8d4597d39f9253c23fead53a6 Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Sun, 1 Oct 2017 20:01:00 +0100
Subject: Procedure literals for default values in structs

---
 src/exact_value.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/exact_value.cpp')

diff --git a/src/exact_value.cpp b/src/exact_value.cpp
index 4f9f1e40f..ac70b42f4 100644
--- a/src/exact_value.cpp
+++ b/src/exact_value.cpp
@@ -22,6 +22,7 @@ enum ExactValueKind {
 	ExactValue_Complex,
 	ExactValue_Pointer,
 	ExactValue_Compound, // TODO(bill): Is this good enough?
+	ExactValue_Procedure, // TODO(bill): Is this good enough?
 	ExactValue_Type,
 
 	ExactValue_Count,
@@ -37,6 +38,7 @@ struct ExactValue {
 		i64           value_pointer;
 		Complex128    value_complex;
 		AstNode *     value_compound;
+		AstNode *     value_procedure;
 		Type *        value_type;
 	};
 };
@@ -109,6 +111,12 @@ ExactValue exact_value_type(Type *type) {
 	return result;
 }
 
+ExactValue exact_value_procedure(AstNode *node) {
+	ExactValue result = {ExactValue_Procedure};
+	result.value_procedure = node;
+	return result;
+}
+
 
 ExactValue exact_value_integer_from_string(String string) {
 	return exact_value_u128(u128_from_string(string));
-- 
cgit v1.2.3