From 72c4fb2ddacc9fccb8ebe8cba9d1322ddcaac017 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 30 Apr 2015 00:02:54 -0700 Subject: 1226 - bugfix in allocating arrays Also our first test of printing to screen. --- cpp/.traces/channel-read-not-full | 404 +++++++++++++++++++------------------- 1 file changed, 202 insertions(+), 202 deletions(-) (limited to 'cpp/.traces/channel-read-not-full') diff --git a/cpp/.traces/channel-read-not-full b/cpp/.traces/channel-read-not-full index 859eaefd..d05be04b 100644 --- a/cpp/.traces/channel-read-not-full +++ b/cpp/.traces/channel-read-not-full @@ -31,34 +31,34 @@ mem/0: array size is 30 mem/0: new alloc: 1000 run/0: instruction init-channel/1 run/0: {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel"]} <- new {name: "channel", value: 10, type: 0, properties: ["channel": "type"]} -mem/0: new alloc: 1030 -mem/0: storing 1030 in location 1002 +mem/0: new alloc: 1031 +mem/0: storing 1031 in location 1002 run/0: instruction init-channel/2 run/0: {name: "full", value: 2, type: 2-1, properties: ["full": "address":"integer"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is result -mem/0: location 1002 is 1030 +mem/0: location 1002 is 1031 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: address to copy is 1031 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1003 run/0: instruction init-channel/3 run/0: {name: "full", value: 2, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]} run/0: ingredient 0 is 0 -mem/0: location 1003 is 1030 -mem/0: storing 0 in location 1030 +mem/0: location 1003 is 1031 +mem/0: storing 0 in location 1031 run/0: instruction init-channel/4 run/0: {name: "free", value: 3, type: 2-1, properties: ["free": "address":"integer"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is result -mem/0: location 1002 is 1030 +mem/0: location 1002 is 1031 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: address to copy is 1032 +run/0: product 0 is 1032 +mem/0: storing 1032 in location 1004 run/0: instruction init-channel/5 run/0: {name: "free", value: 3, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]} run/0: ingredient 0 is 0 -mem/0: location 1004 is 1031 -mem/0: storing 0 in location 1031 +mem/0: location 1004 is 1032 +mem/0: storing 0 in location 1032 run/0: instruction init-channel/6 run/0: {name: "capacity", value: 4, type: 1, properties: ["capacity": "integer"]} <- next-ingredient run/0: product 0 is 1 @@ -73,471 +73,471 @@ mem/0: storing 2 in location 1005 run/0: instruction init-channel/8 run/0: {name: "dest", value: 5, type: 2-2-5-1, properties: ["dest": "address":"address":"array":"location"]} <- get-address {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]} run/0: ingredient 0 is result -mem/0: location 1002 is 1030 +mem/0: location 1002 is 1031 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: address to copy is 1033 +run/0: product 0 is 1033 +mem/0: storing 1033 in location 1006 run/0: instruction init-channel/9 run/0: {name: "dest", value: 5, type: 2-2-5-1, properties: ["dest": "address":"address":"array":"location", "deref": ]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "capacity", value: 4, type: 1, properties: ["capacity": "integer"]} 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 +mem/0: new alloc: 1034 +mem/0: location 1006 is 1033 +mem/0: storing 1034 in location 1033 run/0: instruction init-channel/10 run/0: reply {name: "result", value: 1, type: 2-10, properties: ["result": "address":"channel"]} -mem/0: location 1002 is 1030 -run/0: result 0 is 1030 -mem/0: storing 1030 in location 1 +mem/0: location 1002 is 1031 +run/0: result 0 is 1031 +mem/0: storing 1031 in location 1 run/0: instruction test-channel-read-not-full/1 run/0: {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- write {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]}, {name: "34", value: 34, type: 0, properties: ["34": "literal"]} -mem/0: location 1 is 1030 +mem/0: location 1 is 1031 run/0: instruction write/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1035 +mem/0: new alloc: 1037 run/0: instruction write/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1037 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1039 run/0: instruction write/2 run/0: {name: "val", value: 2, type: 1, properties: ["val": "location"]} <- next-ingredient run/0: product 0 is 34 -mem/0: storing 34 in location 1038 +mem/0: storing 34 in location 1040 run/0: instruction write/4 run/0: {name: "full", value: 3, type: 3, properties: ["full": "boolean"]} <- channel-full? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} -mem/0: location 1037 is 1030 +mem/0: location 1039 is 1031 run/0: instruction channel-full?/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1065 +mem/0: new alloc: 1068 run/0: instruction channel-full?/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1067 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1070 run/0: instruction channel-full?/2 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1067 is 1030 +mem/0: location 1070 is 1031 run/0: ingredient 1 is first-free -run/0: address to copy is 1031 +run/0: address to copy is 1032 run/0: its type is 1 -mem/0: location 1031 is 0 +mem/0: location 1032 is 0 run/0: product 0 is 0 -mem/0: storing 0 in location 1068 +mem/0: storing 0 in location 1071 run/0: instruction channel-full?/3 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- add {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]} run/0: ingredient 0 is tmp -mem/0: location 1068 is 0 +mem/0: location 1071 is 0 run/0: ingredient 1 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1068 +mem/0: storing 1 in location 1071 run/0: instruction channel-full?/5 run/0: {name: "len", value: 3, type: 1, properties: ["len": "integer"]} <- channel-capacity {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} -mem/0: location 1067 is 1030 +mem/0: location 1070 is 1031 run/0: instruction channel-capacity/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1095 +mem/0: new alloc: 1099 run/0: instruction channel-capacity/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1097 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1101 run/0: instruction channel-capacity/2 run/0: {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1097 is 1030 +mem/0: location 1101 is 1031 run/0: ingredient 1 is data -run/0: address to copy is 1032 +run/0: address to copy is 1033 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 +mem/0: location 1033 is 1034 +run/0: product 0 is 1034 +mem/0: storing 1034 in location 1102 run/0: instruction channel-capacity/3 run/0: {name: "result", value: 3, type: 1, properties: ["result": "integer"]} <- length {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location", "deref": ]} -mem/0: location 1098 is 1033 -mem/0: storing 2 in location 1099 +mem/0: location 1102 is 1034 +mem/0: storing 2 in location 1103 run/0: instruction channel-capacity/4 run/0: reply {name: "result", value: 3, type: 1, properties: ["result": "integer"]} -mem/0: location 1099 is 2 +mem/0: location 1103 is 2 run/0: result 0 is 2 -mem/0: storing 2 in location 1069 +mem/0: storing 2 in location 1072 run/0: instruction channel-full?/6 run/0: {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "len", value: 3, type: 1, properties: ["len": "integer"]} run/0: ingredient 0 is tmp -mem/0: location 1068 is 1 +mem/0: location 1071 is 1 run/0: ingredient 1 is len -mem/0: location 1069 is 2 +mem/0: location 1072 is 2 run/0: product 0 is 0 -mem/0: storing 0 in location 1070 +mem/0: storing 0 in location 1073 run/0: instruction channel-full?/7 run/0: break-unless {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]} -mem/0: location 1070 is 0 +mem/0: location 1073 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: {name: "full", value: 5, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1067 is 1030 +mem/0: location 1070 is 1031 run/0: ingredient 1 is first-full -run/0: address to copy is 1030 +run/0: address to copy is 1031 run/0: its type is 1 -mem/0: location 1030 is 0 +mem/0: location 1031 is 0 run/0: product 0 is 0 -mem/0: storing 0 in location 1071 +mem/0: storing 0 in location 1074 run/0: instruction channel-full?/11 run/0: {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 5, type: 1, properties: ["full": "integer"]}, {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} run/0: ingredient 0 is full -mem/0: location 1071 is 0 +mem/0: location 1074 is 0 run/0: ingredient 1 is tmp -mem/0: location 1068 is 1 +mem/0: location 1071 is 1 run/0: product 0 is 0 -mem/0: storing 0 in location 1072 +mem/0: storing 0 in location 1075 run/0: instruction channel-full?/12 run/0: reply {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} -mem/0: location 1072 is 0 +mem/0: location 1075 is 0 run/0: result 0 is 0 -mem/0: storing 0 in location 1039 +mem/0: storing 0 in location 1041 run/0: instruction write/5 run/0: break-unless {name: "full", value: 3, type: 3, properties: ["full": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]} -mem/0: location 1039 is 0 +mem/0: location 1041 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: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1037 is 1030 +mem/0: location 1039 is 1031 run/0: ingredient 1 is data -run/0: address to copy is 1032 +run/0: address to copy is 1033 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 +mem/0: location 1033 is 1034 +run/0: product 0 is 1034 +mem/0: storing 1034 in location 1043 run/0: instruction write/10 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1037 is 1030 +mem/0: location 1039 is 1031 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: address to copy is 1032 +run/0: product 0 is 1032 +mem/0: storing 1032 in location 1044 run/0: instruction write/11 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location"]} <- index-address {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]} run/0: ingredient 0 is circular-buffer -mem/0: location 1041 is 1033 +mem/0: location 1043 is 1034 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 +mem/0: location 1044 is 1032 +mem/0: location 1032 is 0 +run/0: address to copy is 1035 +run/0: product 0 is 1035 +mem/0: storing 1035 in location 1045 run/0: instruction write/12 run/0: {name: "dest", value: 7, type: 2-1, properties: ["dest": "address":"location", "deref": ]} <- copy {name: "val", value: 2, type: 1, properties: ["val": "location"]} 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 +mem/0: location 1040 is 34 +mem/0: location 1045 is 1035 +mem/0: storing 34 in location 1035 run/0: instruction write/13 run/0: {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]} <- add {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]} run/0: ingredient 0 is free -mem/0: location 1042 is 1031 -mem/0: location 1031 is 0 +mem/0: location 1044 is 1032 +mem/0: location 1032 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 +mem/0: location 1044 is 1032 +mem/0: storing 1 in location 1032 run/0: instruction write/15 run/0: {name: "len", value: 8, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]} -mem/0: location 1041 is 1033 -mem/0: storing 2 in location 1044 +mem/0: location 1043 is 1034 +mem/0: storing 2 in location 1046 run/0: instruction write/16 run/0: {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "free", value: 6, type: 2-1, properties: ["free": "address":"integer", "deref": ]}, {name: "len", value: 8, type: 1, properties: ["len": "integer"]} run/0: ingredient 0 is free -mem/0: location 1042 is 1031 -mem/0: location 1031 is 1 +mem/0: location 1044 is 1032 +mem/0: location 1032 is 1 run/0: ingredient 1 is len -mem/0: location 1044 is 2 +mem/0: location 1046 is 2 run/0: product 0 is 0 -mem/0: storing 0 in location 1045 +mem/0: storing 0 in location 1047 run/0: instruction write/17 run/0: break-unless {name: "at-end?", value: 9, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]} -mem/0: location 1045 is 0 +mem/0: location 1047 is 0 run/0: ingredient 0 is 0 run/0: ingredient 1 is run/0: jumping to instruction 19 run/0: instruction write/20 run/0: reply {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]} -mem/0: location 1037 is 1030 -run/0: result 0 is 1030 -mem/0: storing 1030 in location 1 +mem/0: location 1039 is 1031 +run/0: result 0 is 1031 +mem/0: storing 1031 in location 1 run/0: instruction test-channel-read-not-full/2 run/0: {name: "_", value: 0, type: 0, properties: ["_": "dummy"]}, {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} <- read {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} -mem/0: location 1 is 1030 +mem/0: location 1 is 1031 run/0: instruction read/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1125 +mem/0: new alloc: 1130 run/0: instruction read/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1127 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1132 run/0: instruction read/3 run/0: {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]} <- channel-empty? {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} -mem/0: location 1127 is 1030 +mem/0: location 1132 is 1031 run/0: instruction channel-empty?/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1155 +mem/0: new alloc: 1161 run/0: instruction channel-empty?/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1157 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1163 run/0: instruction channel-empty?/2 run/0: {name: "full", value: 2, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1157 is 1030 +mem/0: location 1163 is 1031 run/0: ingredient 1 is first-full -run/0: address to copy is 1030 +run/0: address to copy is 1031 run/0: its type is 1 -mem/0: location 1030 is 0 +mem/0: location 1031 is 0 run/0: product 0 is 0 -mem/0: storing 0 in location 1158 +mem/0: storing 0 in location 1164 run/0: instruction channel-empty?/3 run/0: {name: "free", value: 3, type: 1, properties: ["free": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1157 is 1030 +mem/0: location 1163 is 1031 run/0: ingredient 1 is first-free -run/0: address to copy is 1031 +run/0: address to copy is 1032 run/0: its type is 1 -mem/0: location 1031 is 1 +mem/0: location 1032 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1159 +mem/0: storing 1 in location 1165 run/0: instruction channel-empty?/4 run/0: {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 2, type: 1, properties: ["full": "integer"]}, {name: "free", value: 3, type: 1, properties: ["free": "integer"]} run/0: ingredient 0 is full -mem/0: location 1158 is 0 +mem/0: location 1164 is 0 run/0: ingredient 1 is free -mem/0: location 1159 is 1 +mem/0: location 1165 is 1 run/0: product 0 is 0 -mem/0: storing 0 in location 1160 +mem/0: storing 0 in location 1166 run/0: instruction channel-empty?/5 run/0: reply {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} -mem/0: location 1160 is 0 +mem/0: location 1166 is 0 run/0: result 0 is 0 -mem/0: storing 0 in location 1128 +mem/0: storing 0 in location 1133 run/0: instruction read/4 run/0: break-unless {name: "empty", value: 2, type: 3, properties: ["empty": "boolean"]}, {name: "", value: 2, type: , properties: ["": ]} -mem/0: location 1128 is 0 +mem/0: location 1133 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: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer"]} <- get-address {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1127 is 1030 +mem/0: location 1132 is 1031 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: address to copy is 1031 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1135 run/0: instruction read/9 run/0: {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1127 is 1030 +mem/0: location 1132 is 1031 run/0: ingredient 1 is data -run/0: address to copy is 1032 +run/0: address to copy is 1033 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 +mem/0: location 1033 is 1034 +run/0: product 0 is 1034 +mem/0: storing 1034 in location 1136 run/0: instruction read/10 run/0: {name: "result", value: 6, type: 1, properties: ["result": "location"]} <- index {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]}, {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]} 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 +mem/0: location 1136 is 1034 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 +mem/0: location 1135 is 1031 +mem/0: location 1031 is 0 +run/0: address to copy is 1035 run/0: its type is 1 -mem/0: location 1034 is 34 +mem/0: location 1035 is 34 run/0: product 0 is 34 -mem/0: storing 34 in location 1132 +mem/0: storing 34 in location 1137 run/0: instruction read/11 run/0: {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]} <- add {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]} run/0: ingredient 0 is full -mem/0: location 1130 is 1030 -mem/0: location 1030 is 0 +mem/0: location 1135 is 1031 +mem/0: location 1031 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 +mem/0: location 1135 is 1031 +mem/0: storing 1 in location 1031 run/0: instruction read/13 run/0: {name: "len", value: 7, type: 1, properties: ["len": "integer"]} <- length {name: "circular-buffer", value: 5, type: 2-5-1, properties: ["circular-buffer": "address":"array":"location", "deref": ]} -mem/0: location 1131 is 1033 -mem/0: storing 2 in location 1133 +mem/0: location 1136 is 1034 +mem/0: storing 2 in location 1138 run/0: instruction read/14 run/0: {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "full", value: 4, type: 2-1, properties: ["full": "address":"integer", "deref": ]}, {name: "len", value: 7, type: 1, properties: ["len": "integer"]} run/0: ingredient 0 is full -mem/0: location 1130 is 1030 -mem/0: location 1030 is 1 +mem/0: location 1135 is 1031 +mem/0: location 1031 is 1 run/0: ingredient 1 is len -mem/0: location 1133 is 2 +mem/0: location 1138 is 2 run/0: product 0 is 0 -mem/0: storing 0 in location 1134 +mem/0: storing 0 in location 1139 run/0: instruction read/15 run/0: break-unless {name: "at-end?", value: 8, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]} -mem/0: location 1134 is 0 +mem/0: location 1139 is 0 run/0: ingredient 0 is 0 run/0: ingredient 1 is run/0: jumping to instruction 17 run/0: instruction read/18 run/0: reply {name: "result", value: 6, type: 1, properties: ["result": "location"]}, {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "same-as-ingredient": "0"]} -mem/0: location 1132 is 34 -mem/0: location 1127 is 1030 +mem/0: location 1137 is 34 +mem/0: location 1132 is 1031 run/0: result 0 is 34 -run/0: result 1 is 1030 -mem/0: storing 1030 in location 1 +run/0: result 1 is 1031 +mem/0: storing 1031 in location 1 run/0: instruction test-channel-read-not-full/3 run/0: {name: "2", value: 2, type: 1, properties: ["2": "integer"]} <- channel-empty? {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} -mem/0: location 1 is 1030 +mem/0: location 1 is 1031 run/0: instruction channel-empty?/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1185 +mem/0: new alloc: 1192 run/0: instruction channel-empty?/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1187 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1194 run/0: instruction channel-empty?/2 run/0: {name: "full", value: 2, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1187 is 1030 +mem/0: location 1194 is 1031 run/0: ingredient 1 is first-full -run/0: address to copy is 1030 +run/0: address to copy is 1031 run/0: its type is 1 -mem/0: location 1030 is 1 +mem/0: location 1031 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1188 +mem/0: storing 1 in location 1195 run/0: instruction channel-empty?/3 run/0: {name: "free", value: 3, type: 1, properties: ["free": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1187 is 1030 +mem/0: location 1194 is 1031 run/0: ingredient 1 is first-free -run/0: address to copy is 1031 +run/0: address to copy is 1032 run/0: its type is 1 -mem/0: location 1031 is 1 +mem/0: location 1032 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1189 +mem/0: storing 1 in location 1196 run/0: instruction channel-empty?/4 run/0: {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 2, type: 1, properties: ["full": "integer"]}, {name: "free", value: 3, type: 1, properties: ["free": "integer"]} run/0: ingredient 0 is full -mem/0: location 1188 is 1 +mem/0: location 1195 is 1 run/0: ingredient 1 is free -mem/0: location 1189 is 1 +mem/0: location 1196 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1190 +mem/0: storing 1 in location 1197 run/0: instruction channel-empty?/5 run/0: reply {name: "result", value: 4, type: 3, properties: ["result": "boolean"]} -mem/0: location 1190 is 1 +mem/0: location 1197 is 1 run/0: result 0 is 1 mem/0: storing 1 in location 2 run/0: instruction test-channel-read-not-full/4 run/0: {name: "3", value: 3, type: 1, properties: ["3": "integer"]} <- channel-full? {name: "1", value: 1, type: 2-10, properties: ["1": "address":"channel"]} -mem/0: location 1 is 1030 +mem/0: location 1 is 1031 run/0: instruction channel-full?/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1215 +mem/0: new alloc: 1223 run/0: instruction channel-full?/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1217 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1225 run/0: instruction channel-full?/2 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-free", value: 1, type: 0, properties: ["first-free": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1217 is 1030 +mem/0: location 1225 is 1031 run/0: ingredient 1 is first-free -run/0: address to copy is 1031 +run/0: address to copy is 1032 run/0: its type is 1 -mem/0: location 1031 is 1 +mem/0: location 1032 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1218 +mem/0: storing 1 in location 1226 run/0: instruction channel-full?/3 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- add {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "1", value: 1, type: 0, properties: ["1": "literal"]} run/0: ingredient 0 is tmp -mem/0: location 1218 is 1 +mem/0: location 1226 is 1 run/0: ingredient 1 is 1 run/0: product 0 is 2 -mem/0: storing 2 in location 1218 +mem/0: storing 2 in location 1226 run/0: instruction channel-full?/5 run/0: {name: "len", value: 3, type: 1, properties: ["len": "integer"]} <- channel-capacity {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} -mem/0: location 1217 is 1030 +mem/0: location 1225 is 1031 run/0: instruction channel-capacity/0 run/0: {name: "default-space", value: 0, type: 2-5-1, properties: ["default-space": "address":"array":"location"]} <- new {name: "location", value: 1, type: 0, properties: ["location": "type"]}, {name: "30", value: 30, type: 0, properties: ["30": "literal"]} mem/0: array size is 30 -mem/0: new alloc: 1245 +mem/0: new alloc: 1254 run/0: instruction channel-capacity/1 run/0: {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel"]} <- next-ingredient -run/0: product 0 is 1030 -mem/0: storing 1030 in location 1247 +run/0: product 0 is 1031 +mem/0: storing 1031 in location 1256 run/0: instruction channel-capacity/2 run/0: {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "data", value: 2, type: 0, properties: ["data": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1247 is 1030 +mem/0: location 1256 is 1031 run/0: ingredient 1 is data -run/0: address to copy is 1032 +run/0: address to copy is 1033 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 +mem/0: location 1033 is 1034 +run/0: product 0 is 1034 +mem/0: storing 1034 in location 1257 run/0: instruction channel-capacity/3 run/0: {name: "result", value: 3, type: 1, properties: ["result": "integer"]} <- length {name: "q", value: 2, type: 2-5-1, properties: ["q": "address":"array":"location", "deref": ]} -mem/0: location 1248 is 1033 -mem/0: storing 2 in location 1249 +mem/0: location 1257 is 1034 +mem/0: storing 2 in location 1258 run/0: instruction channel-capacity/4 run/0: reply {name: "result", value: 3, type: 1, properties: ["result": "integer"]} -mem/0: location 1249 is 2 +mem/0: location 1258 is 2 run/0: result 0 is 2 -mem/0: storing 2 in location 1219 +mem/0: storing 2 in location 1227 run/0: instruction channel-full?/6 run/0: {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]} <- greater-or-equal {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]}, {name: "len", value: 3, type: 1, properties: ["len": "integer"]} run/0: ingredient 0 is tmp -mem/0: location 1218 is 2 +mem/0: location 1226 is 2 run/0: ingredient 1 is len -mem/0: location 1219 is 2 +mem/0: location 1227 is 2 run/0: product 0 is 1 -mem/0: storing 1 in location 1220 +mem/0: storing 1 in location 1228 run/0: instruction channel-full?/7 run/0: break-unless {name: "at-end?", value: 4, type: 3, properties: ["at-end?": "boolean"]}, {name: "", value: 1, type: , properties: ["": ]} -mem/0: location 1220 is 1 +mem/0: location 1228 is 1 run/0: ingredient 0 is 1 run/0: jump-unless fell through run/0: instruction channel-full?/8 run/0: {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} <- copy {name: "0", value: 0, type: 0, properties: ["0": "literal"]} run/0: ingredient 0 is 0 -mem/0: storing 0 in location 1218 +mem/0: storing 0 in location 1226 run/0: instruction channel-full?/10 run/0: {name: "full", value: 5, type: 1, properties: ["full": "integer"]} <- get {name: "chan", value: 1, type: 2-10, properties: ["chan": "address":"channel", "deref": ]}, {name: "first-full", value: 0, type: 0, properties: ["first-full": "offset"]} run/0: ingredient 0 is chan -mem/0: location 1217 is 1030 +mem/0: location 1225 is 1031 run/0: ingredient 1 is first-full -run/0: address to copy is 1030 +run/0: address to copy is 1031 run/0: its type is 1 -mem/0: location 1030 is 1 +mem/0: location 1031 is 1 run/0: product 0 is 1 -mem/0: storing 1 in location 1221 +mem/0: storing 1 in location 1229 run/0: instruction channel-full?/11 run/0: {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} <- equal {name: "full", value: 5, type: 1, properties: ["full": "integer"]}, {name: "tmp", value: 2, type: 1, properties: ["tmp": "integer"]} run/0: ingredient 0 is full -mem/0: location 1221 is 1 +mem/0: location 1229 is 1 run/0: ingredient 1 is tmp -mem/0: location 1218 is 0 +mem/0: location 1226 is 0 run/0: product 0 is 0 -mem/0: storing 0 in location 1222 +mem/0: storing 0 in location 1230 run/0: instruction channel-full?/12 run/0: reply {name: "result", value: 6, type: 3, properties: ["result": "boolean"]} -mem/0: location 1222 is 0 +mem/0: location 1230 is 0 run/0: result 0 is 0 mem/0: storing 0 in location 3 -- cgit 1.4.1-2-gfad0