1 files changed, 458 insertions, 0 deletions
diff --git a/cpp/.traces/channel-read-not-full b/cpp/.traces/channel-read-not-full
new file mode 100644
index 00000000..8f754bad
--- /dev/null
+++ b/cpp/.traces/channel-read-not-full
@@ -0,0 +1,458 @@
+parse/0: instruction: 108
+parse/0:   ingredient: {name: "1", value: 0, type: 0, properties: ["1": "literal", "capacity": ]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 109
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   ingredient: {name: "34", value: 0, type: 0, properties: ["34": "literal"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 111
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}
+parse/0:   product: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0: instruction: 112
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "2", value: 0, type: 1, properties: ["2": "integer"]}
+parse/0: instruction: 110
+parse/0:   ingredient: {name: "1", value: 0, type: 2-10, properties: ["1": "address":"channel"]}
+parse/0:   product: {name: "3", value: 0, type: 1, properties: ["3": "integer"]}
+after-brace/0: recipe test-channel-read-not-full
+after-brace/0: init-channel ...
+after-brace/0: write ...
+after-brace/0: read ...
+after-brace/0: channel-empty? ...
+after-brace/0: channel-full? ...
+new/0: routine allocated memory from 1000 to 101000
+schedule/0: test-channel-read-not-full
+run/0: instruction test-channel-read-not-full/0
+run/0: instruction init-channel/0
+mem/0: array size is 30
+mem/0: new alloc: 1000
+run/0: instruction init-channel/1
+mem/0: new alloc: 1030
+mem/0: storing 1030 in location 1002
+run/0: instruction init-channel/2
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1003
+run/0: instruction init-channel/3
+run/0: ingredient 0 is 0
+mem/0: location 1003 is 1030
+mem/0: storing 0 in location 1030
+run/0: instruction init-channel/4
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1004
+run/0: instruction init-channel/5
+run/0: ingredient 0 is 0
+mem/0: location 1004 is 1031
+mem/0: storing 0 in location 1031
+run/0: instruction init-channel/6
+run/0: product 0 is 1
+mem/0: storing 1 in location 1005
+run/0: instruction init-channel/7
+run/0: ingredient 0 is capacity
+mem/0: location 1005 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1005
+run/0: instruction init-channel/8
+run/0: ingredient 0 is result
+mem/0: location 1002 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: product 0 is 1032
+mem/0: storing 1032 in location 1006
+run/0: instruction init-channel/9
+mem/0: location 1005 is 2
+mem/0: array size is 2
+mem/0: new alloc: 1033
+mem/0: location 1006 is 1032
+mem/0: storing 1033 in location 1032
+run/0: instruction init-channel/10
+mem/0: location 1002 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/1
+mem/0: location 1 is 1030
+run/0: instruction write/0
+mem/0: array size is 30
+mem/0: new alloc: 1035
+run/0: instruction write/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1037
+run/0: instruction write/2
+run/0: product 0 is 34
+mem/0: storing 34 in location 1038
+run/0: instruction write/4
+mem/0: location 1037 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1065
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1067
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1068
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1068
+run/0: instruction channel-full?/5
+mem/0: location 1067 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1095
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1097
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1097 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1098
+run/0: instruction channel-capacity/3
+mem/0: location 1098 is 1033
+mem/0: storing 2 in location 1099
+run/0: instruction channel-capacity/4
+mem/0: location 1099 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1069
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1068 is 1
+run/0: ingredient 1 is len
+mem/0: location 1069 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1070
+run/0: instruction channel-full?/7
+mem/0: location 1070 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 9
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1067 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1071
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1071 is 0
+run/0: ingredient 1 is tmp
+mem/0: location 1068 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1072
+run/0: instruction channel-full?/12
+mem/0: location 1072 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1039
+run/0: instruction write/5
+mem/0: location 1039 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 8
+run/0: instruction write/9
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1041
+run/0: instruction write/10
+run/0: ingredient 0 is chan
+mem/0: location 1037 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: product 0 is 1031
+mem/0: storing 1031 in location 1042
+run/0: instruction write/11
+run/0: ingredient 0 is circular-buffer
+mem/0: location 1041 is 1033
+run/0: ingredient 1 is {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: address to copy is 1034
+run/0: product 0 is 1034
+mem/0: storing 1034 in location 1043
+run/0: instruction write/12
+run/0: ingredient 0 is val
+mem/0: location 1038 is 34
+mem/0: location 1043 is 1034
+mem/0: storing 34 in location 1034
+run/0: instruction write/13
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1042 is 1031
+mem/0: storing 1 in location 1031
+run/0: instruction write/15
+mem/0: location 1041 is 1033
+mem/0: storing 2 in location 1044
+run/0: instruction write/16
+run/0: ingredient 0 is free
+mem/0: location 1042 is 1031
+mem/0: location 1031 is 1
+run/0: ingredient 1 is len
+mem/0: location 1044 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1045
+run/0: instruction write/17
+mem/0: location 1045 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 19
+run/0: instruction write/20
+mem/0: location 1037 is 1030
+run/0: result 0 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/2
+mem/0: location 1 is 1030
+run/0: instruction read/0
+mem/0: array size is 30
+mem/0: new alloc: 1125
+run/0: instruction read/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1127
+run/0: instruction read/3
+mem/0: location 1127 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1155
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1157
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1158
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1157 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1159
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1158 is 0
+run/0: ingredient 1 is free
+mem/0: location 1159 is 1
+run/0: product 0 is 0
+mem/0: storing 0 in location 1160
+run/0: instruction channel-empty?/5
+mem/0: location 1160 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 1128
+run/0: instruction read/4
+mem/0: location 1128 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 7
+run/0: instruction read/8
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1130
+run/0: instruction read/9
+run/0: ingredient 0 is chan
+mem/0: location 1127 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1131
+run/0: instruction read/10
+run/0: ingredient 0 is {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}
+mem/0: location 1131 is 1033
+run/0: ingredient 1 is {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: address to copy is 1034
+run/0: its type is 1
+mem/0: location 1034 is 34
+run/0: product 0 is 34
+mem/0: storing 34 in location 1132
+run/0: instruction read/11
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 0
+run/0: ingredient 1 is 1
+run/0: product 0 is 1
+mem/0: location 1130 is 1030
+mem/0: storing 1 in location 1030
+run/0: instruction read/13
+mem/0: location 1131 is 1033
+mem/0: storing 2 in location 1133
+run/0: instruction read/14
+run/0: ingredient 0 is full
+mem/0: location 1130 is 1030
+mem/0: location 1030 is 1
+run/0: ingredient 1 is len
+mem/0: location 1133 is 2
+run/0: product 0 is 0
+mem/0: storing 0 in location 1134
+run/0: instruction read/15
+mem/0: location 1134 is 0
+run/0: ingredient 0 is 0
+run/0: ingredient 1 is 
+run/0: jumping to instruction 17
+run/0: instruction read/18
+mem/0: location 1132 is 34
+mem/0: location 1127 is 1030
+run/0: result 0 is 34
+run/0: result 1 is 1030
+mem/0: storing 1030 in location 1
+run/0: instruction test-channel-read-not-full/3
+mem/0: location 1 is 1030
+run/0: instruction channel-empty?/0
+mem/0: array size is 30
+mem/0: new alloc: 1185
+run/0: instruction channel-empty?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1187
+run/0: instruction channel-empty?/2
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1188
+run/0: instruction channel-empty?/3
+run/0: ingredient 0 is chan
+mem/0: location 1187 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1189
+run/0: instruction channel-empty?/4
+run/0: ingredient 0 is full
+mem/0: location 1188 is 1
+run/0: ingredient 1 is free
+mem/0: location 1189 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1190
+run/0: instruction channel-empty?/5
+mem/0: location 1190 is 1
+run/0: result 0 is 1
+mem/0: storing 1 in location 2
+run/0: instruction test-channel-read-not-full/4
+mem/0: location 1 is 1030
+run/0: instruction channel-full?/0
+mem/0: array size is 30
+mem/0: new alloc: 1215
+run/0: instruction channel-full?/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1217
+run/0: instruction channel-full?/2
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-free
+run/0: address to copy is 1031
+run/0: its type is 1
+mem/0: location 1031 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1218
+run/0: instruction channel-full?/3
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 1
+run/0: ingredient 1 is 1
+run/0: product 0 is 2
+mem/0: storing 2 in location 1218
+run/0: instruction channel-full?/5
+mem/0: location 1217 is 1030
+run/0: instruction channel-capacity/0
+mem/0: array size is 30
+mem/0: new alloc: 1245
+run/0: instruction channel-capacity/1
+run/0: product 0 is 1030
+mem/0: storing 1030 in location 1247
+run/0: instruction channel-capacity/2
+run/0: ingredient 0 is chan
+mem/0: location 1247 is 1030
+run/0: ingredient 1 is data
+run/0: address to copy is 1032
+run/0: its type is 2
+mem/0: location 1032 is 1033
+run/0: product 0 is 1033
+mem/0: storing 1033 in location 1248
+run/0: instruction channel-capacity/3
+mem/0: location 1248 is 1033
+mem/0: storing 2 in location 1249
+run/0: instruction channel-capacity/4
+mem/0: location 1249 is 2
+run/0: result 0 is 2
+mem/0: storing 2 in location 1219
+run/0: instruction channel-full?/6
+run/0: ingredient 0 is tmp
+mem/0: location 1218 is 2
+run/0: ingredient 1 is len
+mem/0: location 1219 is 2
+run/0: product 0 is 1
+mem/0: storing 1 in location 1220
+run/0: instruction channel-full?/7
+mem/0: location 1220 is 1
+run/0: ingredient 0 is 1
+run/0: jump-unless fell through
+run/0: instruction channel-full?/8
+run/0: ingredient 0 is 0
+mem/0: storing 0 in location 1218
+run/0: instruction channel-full?/10
+run/0: ingredient 0 is chan
+mem/0: location 1217 is 1030
+run/0: ingredient 1 is first-full
+run/0: address to copy is 1030
+run/0: its type is 1
+mem/0: location 1030 is 1
+run/0: product 0 is 1
+mem/0: storing 1 in location 1221
+run/0: instruction channel-full?/11
+run/0: ingredient 0 is full
+mem/0: location 1221 is 1
+run/0: ingredient 1 is tmp
+mem/0: location 1218 is 0
+run/0: product 0 is 0
+mem/0: storing 0 in location 1222
+run/0: instruction channel-full?/12
+mem/0: location 1222 is 0
+run/0: result 0 is 0
+mem/0: storing 0 in location 3