blob: 8f36918a94ad47b185f266c43522a46d66375818 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
//: So far we have local variables, and we can nest local variables of short
//: lifetimes inside longer ones. Now let's support 'global' variables that
//: last for the life of a routine. If we create multiple routines they won't
//: have access to each other's globals.
//:
//: This feature is still experimental and half-baked. You can't name global
//: variables, and so like in most tests they don't get checked for types (the
//: only known hole in the type system, can cause memory corruption). We might
//: fix these issues if we ever use globals. Or we might just drop the feature
//: entirely.
:(scenario global_space)
def main [
# pretend address:array:location; in practice we'll use new
10:number <- copy 0 # refcount
11:number <- copy 5 # length
# pretend address:array:location; in practice we'll use new
20:number <- copy 0 # refcount
21:number <- copy 5 # length
# actual start of this recipe
global-space:address:array:location <- copy 20/unsafe
default-space:address:array:location <- copy 10/unsafe
1:number <- copy 23
1:number/space:global <- copy 24
]
# store to default space: 10 + (skip refcount and length) 2 + (index) 1
+mem: storing 23 in location 13
# store to chained space: (contents of location 12) 20 + (refcount and length) 2 + (index) 1
+mem: storing 24 in location 23
//: to support it, create another special variable called global space
:(before "End is_disqualified Cases")
if (x.name == "global-space")
x.initialized = true;
:(before "End is_special_name Cases")
if (s == "global-space") return true;
//: writes to this variable go to a field in the current routine
:(before "End routine Fields")
int global_space;
:(before "End routine Constructor")
global_space = 0;
:(after "Begin Preprocess write_memory(x, data)")
if (x.name == "global-space") {
if (!scalar(data) || !is_space(x))
raise << maybe(current_recipe_name()) << "'global-space' should be of type address:array:location, but tried to write '" << to_string(x.type) << "'\n" << end();
if (Current_routine->global_space)
raise << "routine already has a global-space; you can't over-write your globals" << end();
Current_routine->global_space = data.at(0);
return;
}
//: now marking variables as /space:global looks them up inside this field
:(after "int space_base(const reagent& x)")
if (is_global(x)) {
if (!Current_routine->global_space)
raise << "routine has no global space\n" << end();
return Current_routine->global_space + /*skip refcount*/1;
}
//: for now let's not bother giving global variables names.
//: don't want to make them too comfortable to use.
:(scenario global_space_with_names)
def main [
global-space:address:array:location <- new location:type, 10
x:number <- copy 23
1:number/space:global <- copy 24
]
# don't complain about mixing numeric addresses and names
$error: 0
:(after "bool is_numeric_location(const reagent& x)")
if (is_global(x)) return false;
//: helpers
:(code)
bool is_global(const reagent& x) {
string_tree* s = property(x, "space");
return s && s->atom && s->value == "global";
}
|