diff options
-rw-r--r-- | 032array.cc | 12 | ||||
-rw-r--r-- | 042name.cc | 4 | ||||
-rw-r--r-- | 043new.cc | 8 | ||||
-rw-r--r-- | 044space.cc | 6 |
4 files changed, 15 insertions, 15 deletions
diff --git a/032array.cc b/032array.cc index d00f5939..9f816ceb 100644 --- a/032array.cc +++ b/032array.cc @@ -30,7 +30,7 @@ recipe main [ 3:number <- copy 15 4:number <- copy 16 5:address:array:number <- copy 1 - 6:array:number <- copy 5:address:array:number/lookup + 6:array:number <- copy *5:address:array:number ] +mem: storing 3 in location 6 +mem: storing 14 in location 7 @@ -119,7 +119,7 @@ recipe main [ 3:number <- copy 15 4:number <- copy 16 5:address:array:number <- copy 1 - 6:number <- index 5:address:array:number/lookup, 1 + 6:number <- index *5:address:array:number, 1 ] +mem: storing 15 in location 6 @@ -134,7 +134,7 @@ recipe main [ 6:number <- copy 15 7:number <- copy 16 8:address:array:point <- copy 1 - index 8:address:array:point/lookup, 4 # less than size of array in locations, but larger than its length in elements + index *8:address:array:point, 4 # less than size of array in locations, but larger than its length in elements ] +warn: main: invalid index 4 @@ -149,7 +149,7 @@ recipe main [ 6:number <- copy 15 7:number <- copy 16 8:address:array:point <- copy 1 - index 8:address:array:point/lookup, -1 + index *8:address:array:point, -1 ] +warn: main: invalid index -1 @@ -206,7 +206,7 @@ recipe main [ 6:number <- copy 15 7:number <- copy 16 8:address:array:point <- copy 1 - index-address 8:address:array:point/lookup, 4 # less than size of array in locations, but larger than its length in elements + index-address *8:address:array:point, 4 # less than size of array in locations, but larger than its length in elements ] +warn: main: invalid index 4 @@ -221,7 +221,7 @@ recipe main [ 6:number <- copy 15 7:number <- copy 16 8:address:array:point <- copy 1 - index-address 8:address:array:point/lookup, -1 + index-address *8:address:array:point, -1 ] +warn: main: invalid index -1 diff --git a/042name.cc b/042name.cc index e1d978c8..ae27f5bf 100644 --- a/042name.cc +++ b/042name.cc @@ -186,8 +186,8 @@ Type[point].element_names.push_back("y"); :(scenario transform_names_transforms_container_elements) recipe main [ p:address:point <- copy 0 # unsafe - a:number <- get p:address:point/lookup, y:offset - b:number <- get p:address:point/lookup, x:offset + a:number <- get *p:address:point, y:offset + b:number <- get *p:address:point, x:offset ] +name: element y of type point is at offset 1 +name: element x of type point is at offset 0 diff --git a/043new.cc b/043new.cc index 3e256ca7..191d9e87 100644 --- a/043new.cc +++ b/043new.cc @@ -133,7 +133,7 @@ void ensure_space(long long int size) { % Memory[Memory_allocated_until] = 1; recipe main [ 1:address:number <- new number:type - 2:number <- copy 1:address:number/lookup + 2:number <- copy *1:address:number ] +mem: storing 0 in location 2 @@ -287,7 +287,7 @@ recipe main [ :(scenario new_string) recipe main [ 1:address:array:character <- new [abc def] - 2:character <- index 1:address:array:character/lookup, 5 + 2:character <- index *1:address:array:character, 5 ] # number code for 'e' +mem: storing 101 in location 2 @@ -295,8 +295,8 @@ recipe main [ :(scenario new_string_handles_unicode) recipe main [ 1:address:array:character <- new [a«c] - 2:number <- length 1:address:array:character/lookup - 3:character <- index 1:address:array:character/lookup, 1 + 2:number <- length *1:address:array:character + 3:character <- index *1:address:array:character, 1 ] +mem: storing 3 in location 2 # unicode for '«' diff --git a/044space.cc b/044space.cc index 5c3f97c4..3a0fe57a 100644 --- a/044space.cc +++ b/044space.cc @@ -21,7 +21,7 @@ recipe main [ # actual start of this recipe default-space:address:array:location <- copy 1000 1:address:number <- copy 3 - 8:number/raw <- copy 1:address:number/lookup + 8:number/raw <- copy *1:address:number ] +mem: storing 34 in location 8 @@ -76,7 +76,7 @@ recipe main [ # actual start of this recipe default-space:address:array:location <- copy 1000 1:address:point <- copy 12 - 9:number/raw <- get 1:address:point/lookup, 1:offset + 9:number/raw <- get *1:address:point, 1:offset ] +mem: storing 35 in location 9 @@ -96,7 +96,7 @@ recipe main [ # actual start of this recipe default-space:address:array:location <- copy 1000 1:address:array:number <- copy 12 - 9:number/raw <- index 1:address:array:number/lookup, 1 + 9:number/raw <- index *1:address:array:number, 1 ] +mem: storing 35 in location 9 |