]> gitweb.factorcode.org Git - factor.git/commitdiff
compiler: fix D.
authorDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2015 01:14:16 +0000 (18:14 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2015 01:15:25 +0000 (18:15 -0700)
basis/cpu/architecture/architecture-docs.factor
basis/cpu/x86/x86-tests.factor
extra/compiler/cfg/gvn/gvn-tests.factor

index eb2c526c91408fa679bc529ec4b79d86e2e4d7a4..7ef6b365b19fb03f576230d4a295b7580336404d 100644 (file)
@@ -213,7 +213,7 @@ HELP: %replace-imm
 { $examples
   { $unchecked-example
     "USING: cpu.architecture make ;"
-    "[ 777 D 0 %replace-imm ] B{ } make disassemble"
+    "[ 777 D: 0 %replace-imm ] B{ } make disassemble"
     "0000000000aad8c0: 49c70690300000  mov qword [r14], 0x3090"
   }
 } ;
index 68a2993871b9d9c0d0c80a4306a5a97c3b933917..bc00d5ba3cb72b1799810c6fcb318b7d942de88f 100644 (file)
@@ -35,7 +35,7 @@ IN: cpu.x86.tests
 
 ! %clear
 { t } [
-    [ D 0 %clear ] B{ } make
+    [ D: 0 %clear ] B{ } make
     cpu x86.32? B{ 199 6 144 18 0 0 } B{ 73 199 6 144 18 0 0 } ? =
 ] unit-test
 
index b158cfed273aded832288a4bd30ab79e7f44427e..e9b2b4aab5a4961e0e248d5554654d77752d43a3 100644 (file)
@@ -73,24 +73,24 @@ cpu x86? [
     [
         V{
             T{ ##load-integer f 0 10 }
-            T{ ##replace-imm f 10 D 0 }
+            T{ ##replace-imm f 10 D: 0 }
         }
     ] [
         V{
             T{ ##load-integer f 0 10 }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         } value-number-bb
     ] unit-test
 
     [
         V{
             T{ ##load-reference f 0 f }
-            T{ ##replace-imm f f D 0 }
+            T{ ##replace-imm f f D: 0 }
         }
     ] [
         V{
             T{ ##load-reference f 0 f }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         } value-number-bb
     ] unit-test
 ] when
@@ -99,12 +99,12 @@ cpu x86.32? [
     [
         V{
             T{ ##load-reference f 0 + }
-            T{ ##replace-imm f + D 0 }
+            T{ ##replace-imm f + D: 0 }
         }
     ] [
         V{
             T{ ##load-reference f 0 + }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         } value-number-bb
     ] unit-test
 ] when
@@ -113,12 +113,12 @@ cpu x86.64? [
     [
         V{
             T{ ##load-integer f 0 10,000,000,000 }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         }
     ] [
         V{
             T{ ##load-integer f 0 10,000,000,000 }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         } value-number-bb
     ] unit-test
 
@@ -126,12 +126,12 @@ cpu x86.64? [
     [
         V{
             T{ ##load-integer f 0 0x7fffffff }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         }
     ] [
         V{
             T{ ##load-integer f 0 0x7fffffff }
-            T{ ##replace f 0 D 0 }
+            T{ ##replace f 0 D: 0 }
         } value-number-bb
     ] unit-test
 ] when
@@ -139,119 +139,119 @@ cpu x86.64? [
 ! Double compare elimination
 {
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare f 4 2 1 cc= }
         T{ ##copy f 6 4 any-rep }
-        T{ ##replace f 4 D 0 }
+        T{ ##replace f 4 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare f 4 2 1 cc= }
         T{ ##compare-imm f 6 4 f cc/= }
-        T{ ##replace f 6 D 0 }
+        T{ ##replace f 6 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 1 D: 1 }
         T{ ##compare-imm f 2 1 16 cc= }
         T{ ##copy f 3 2 any-rep }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 1 D: 1 }
         T{ ##compare-imm f 2 1 16 cc= }
         T{ ##compare-imm f 3 2 f cc/= }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare-integer f 4 2 1 cc> }
         T{ ##copy f 6 4 any-rep }
-        T{ ##replace f 4 D 0 }
+        T{ ##replace f 4 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare-integer f 4 2 1 cc> }
         T{ ##compare-imm f 6 4 f cc/= }
-        T{ ##replace f 6 D 0 }
+        T{ ##replace f 6 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare-integer f 4 2 1 cc<= }
         T{ ##compare-integer f 6 2 1 cc/<= }
-        T{ ##replace f 6 D 0 }
+        T{ ##replace f 6 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##compare-integer f 4 2 1 cc<= }
         T{ ##compare-imm f 6 4 f cc= }
-        T{ ##replace f 6 D 0 }
+        T{ ##replace f 6 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 1 D: 1 }
         T{ ##compare-integer-imm f 2 1 100 cc<= }
         T{ ##compare-integer-imm f 3 1 100 cc/<= }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 1 D: 1 }
         T{ ##compare-integer-imm f 2 1 100 cc<= }
         T{ ##compare-imm f 3 2 f cc= }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 8 D 0 }
-        T{ ##peek f 9 D -1 }
+        T{ ##peek f 8 D: 0 }
+        T{ ##peek f 9 D: -1 }
         T{ ##compare-float-unordered f 12 8 9 cc< }
         T{ ##compare-float-unordered f 14 8 9 cc/< }
-        T{ ##replace f 14 D 0 }
+        T{ ##replace f 14 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 8 D 0 }
-        T{ ##peek f 9 D -1 }
+        T{ ##peek f 8 D: 0 }
+        T{ ##peek f 9 D: -1 }
         T{ ##compare-float-unordered f 12 8 9 cc< }
         T{ ##compare-imm f 14 12 f cc= }
-        T{ ##replace f 14 D 0 }
+        T{ ##replace f 14 D: 0 }
     } value-number-bb trim-temps
 ] unit-test
 
 {
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##compare f 33 29 30 cc= }
         T{ ##compare-branch f 29 30 cc= }
     }
 } [
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##compare f 33 29 30 cc= }
         T{ ##compare-imm-branch f 33 f cc/= }
     } value-number-bb trim-temps
@@ -259,15 +259,15 @@ cpu x86.64? [
 
 {
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##compare-integer f 33 29 30 cc<= }
         T{ ##compare-integer-branch f 29 30 cc<= }
     }
 } [
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##compare-integer f 33 29 30 cc<= }
         T{ ##compare-imm-branch f 33 f cc/= }
     } value-number-bb trim-temps
@@ -275,15 +275,15 @@ cpu x86.64? [
 
 {
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##test f 33 29 30 cc= }
         T{ ##test-branch f 29 30 cc= }
     }
 } [
     V{
-        T{ ##peek f 29 D -1 }
-        T{ ##peek f 30 D -2 }
+        T{ ##peek f 29 D: -1 }
+        T{ ##peek f 30 D: -2 }
         T{ ##test f 33 29 30 cc= }
         T{ ##compare-imm-branch f 33 f cc/= }
     } value-number-bb trim-temps
@@ -291,13 +291,13 @@ cpu x86.64? [
 
 {
     V{
-        T{ ##peek f 29 D -1 }
+        T{ ##peek f 29 D: -1 }
         T{ ##test-imm f 33 29 30 cc= }
         T{ ##test-imm-branch f 29 30 cc= }
     }
 } [
     V{
-        T{ ##peek f 29 D -1 }
+        T{ ##peek f 29 D: -1 }
         T{ ##test-imm f 33 29 30 cc= }
         T{ ##compare-imm-branch f 33 f cc/= }
     } value-number-bb trim-temps
@@ -305,13 +305,13 @@ cpu x86.64? [
 
 {
     V{
-        T{ ##peek f 1 D -1 }
+        T{ ##peek f 1 D: -1 }
         T{ ##test-vector f 2 1 f float-4-rep vcc-any }
         T{ ##test-vector-branch f 1 f float-4-rep vcc-any }
     }
 } [
     V{
-        T{ ##peek f 1 D -1 }
+        T{ ##peek f 1 D: -1 }
         T{ ##test-vector f 2 1 f float-4-rep vcc-any }
         T{ ##compare-imm-branch f 2 f cc/= }
     } value-number-bb trim-temps
@@ -320,13 +320,13 @@ cpu x86.64? [
 cpu x86.32? [
     [
         V{
-            T{ ##peek f 1 D 0 }
+            T{ ##peek f 1 D: 0 }
             T{ ##compare-imm f 2 1 + cc= }
             T{ ##compare-imm-branch f 1 + cc= }
         }
     ] [
         V{
-            T{ ##peek f 1 D 0 }
+            T{ ##peek f 1 D: 0 }
             T{ ##compare-imm f 2 1 + cc= }
             T{ ##compare-imm-branch f 2 f cc/= }
         } value-number-bb trim-temps
@@ -336,13 +336,13 @@ cpu x86.32? [
 ! Immediate operand fusion
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add f 2 0 1 }
     } value-number-bb
@@ -350,13 +350,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add f 2 1 0 }
     } value-number-bb
@@ -364,13 +364,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 -100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##sub f 2 0 1 }
     } value-number-bb
@@ -378,25 +378,25 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sub f 1 0 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul f 2 0 1 }
     } value-number-bb
@@ -404,13 +404,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul f 2 1 0 }
     } value-number-bb
@@ -418,25 +418,25 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##shl-imm f 2 1 3 }
     }
 } [
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##mul-imm f 2 1 8 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -1 }
         T{ ##neg f 2 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -1 }
         T{ ##mul f 2 0 1 }
     } value-number-bb
@@ -444,13 +444,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -1 }
         T{ ##neg f 2 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -1 }
         T{ ##mul f 2 1 0 }
     } value-number-bb
@@ -458,13 +458,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
         T{ ##neg f 2 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
         T{ ##sub f 2 1 0 }
     } value-number-bb
@@ -472,14 +472,14 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
         T{ ##neg f 2 0 }
         T{ ##copy f 3 0 any-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
         T{ ##sub f 2 1 0 }
         T{ ##sub f 3 1 2 }
@@ -488,13 +488,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##neg f 1 0 }
         T{ ##copy f 2 0 any-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##neg f 1 0 }
         T{ ##neg f 2 1 }
     } value-number-bb
@@ -502,13 +502,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##not f 1 0 }
         T{ ##copy f 2 0 any-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##not f 1 0 }
         T{ ##not f 2 1 }
     } value-number-bb
@@ -516,13 +516,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and f 2 0 1 }
     } value-number-bb
@@ -530,13 +530,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and f 2 1 0 }
     } value-number-bb
@@ -544,13 +544,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or f 2 0 1 }
     } value-number-bb
@@ -558,13 +558,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or f 2 1 0 }
     } value-number-bb
@@ -572,13 +572,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor f 2 0 1 }
     } value-number-bb
@@ -586,13 +586,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor-imm f 2 0 100 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor f 2 1 0 }
     } value-number-bb
@@ -600,13 +600,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-imm f 2 0 100 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare f 2 0 1 cc= }
     } value-number-bb trim-temps
@@ -614,13 +614,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-imm f 2 0 100 cc<= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer f 2 0 1 cc<= }
     } value-number-bb trim-temps
@@ -629,13 +629,13 @@ cpu x86.32? [
 cpu x86.32? [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 + }
             T{ ##compare-imm f 2 0 + cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 + }
             T{ ##compare f 2 0 1 cc= }
         } value-number-bb trim-temps
@@ -643,13 +643,13 @@ cpu x86.32? [
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 + }
             T{ ##compare-imm-branch f 0 + cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 + }
             T{ ##compare-branch f 0 1 cc= }
         } value-number-bb trim-temps
@@ -659,13 +659,13 @@ cpu x86.32? [
 cpu x86.32? [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 3.5 }
             T{ ##compare f 2 0 1 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 3.5 }
             T{ ##compare f 2 0 1 cc= }
         } value-number-bb trim-temps
@@ -673,13 +673,13 @@ cpu x86.32? [
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 3.5 }
             T{ ##compare-branch f 0 1 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-reference f 1 3.5 }
             T{ ##compare-branch f 0 1 cc= }
         } value-number-bb trim-temps
@@ -688,13 +688,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-imm f 2 0 100 cc>= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer f 2 1 0 cc<= }
     } value-number-bb trim-temps
@@ -702,13 +702,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-imm-branch f 0 100 cc<= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-branch f 0 1 cc<= }
     } value-number-bb
@@ -716,13 +716,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-imm-branch f 0 100 cc>= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##compare-integer-branch f 1 0 cc<= }
     } value-number-bb trim-temps
@@ -827,25 +827,25 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 f }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc< }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
         T{ ##load-reference f 2 f }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
         T{ ##compare-integer f 2 0 1 cc< }
     } value-number-bb
@@ -853,60 +853,60 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 t }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc<= }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 f }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc> }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 t }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc>= }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 f }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc/= }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 t }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer f 1 0 0 cc= }
     } value-number-bb
 ] unit-test
@@ -1011,24 +1011,24 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 t }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare f 1 0 0 cc= }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 f }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare f 1 0 0 cc/= }
     } value-number-bb
 ] unit-test
@@ -1084,15 +1084,15 @@ cpu x86.32? [
 ! Rewriting a ##test of an ##and into a ##test
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##and f 2 0 1 }
         T{ ##test f 3 0 1 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##and f 2 0 1 }
         T{ ##test f 3 2 2 cc= }
     } value-number-bb
@@ -1100,13 +1100,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##and-imm f 2 0 12 }
         T{ ##test-imm f 3 0 12 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##and-imm f 2 0 12 }
         T{ ##test f 3 2 2 cc= }
     } value-number-bb
@@ -1115,13 +1115,13 @@ cpu x86.32? [
 ! Rewriting ##test into ##test-imm
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-imm f 2 0 10 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test f 2 0 1 cc= }
     } value-number-bb trim-temps
@@ -1129,13 +1129,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-imm f 2 0 10 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test f 2 1 0 cc= }
     } value-number-bb trim-temps
@@ -1143,13 +1143,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-imm-branch f 0 10 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-branch f 0 1 cc= }
     } value-number-bb
@@ -1157,13 +1157,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-imm-branch f 0 10 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-branch f 1 0 cc= }
     } value-number-bb
@@ -1171,13 +1171,13 @@ cpu x86.32? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-imm-branch f 0 10 cc= }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 10 }
         T{ ##test-branch f 1 0 cc= }
     } value-number-bb
@@ -1187,13 +1187,13 @@ cpu x86.32? [
 cpu x86.64? [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 100000000000 }
             T{ ##test f 2 1 0 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 100000000000 }
             T{ ##test f 2 1 0 cc= }
         } value-number-bb
@@ -1201,13 +1201,13 @@ cpu x86.64? [
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 100000000000 }
             T{ ##test-branch f 1 0 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 100000000000 }
             T{ ##test-branch f 1 0 cc= }
         } value-number-bb
@@ -1218,72 +1218,72 @@ cpu x86.64? [
 cpu x86? [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##test f 1 0 0 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm f 1 0 0 cc= }
         } value-number-bb
     ] unit-test
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##test f 1 0 0 cc/= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm f 1 0 0 cc/= }
         } value-number-bb
     ] unit-test
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm f 1 0 0 cc<= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm f 1 0 0 cc<= }
         } value-number-bb
     ] unit-test
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##test-branch f 0 0 cc= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm-branch f 0 0 cc= }
         } value-number-bb
     ] unit-test
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##test-branch f 0 0 cc/= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm-branch f 0 0 cc/= }
         } value-number-bb
     ] unit-test
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm-branch f 0 0 cc<= }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##compare-integer-imm-branch f 0 0 cc<= }
         } value-number-bb
     ] unit-test
@@ -1292,7 +1292,7 @@ cpu x86? [
 ! Reassociation
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1300,7 +1300,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1310,7 +1310,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1318,7 +1318,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add f 2 1 0 }
         T{ ##load-integer f 3 50 }
@@ -1328,7 +1328,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1336,7 +1336,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1346,7 +1346,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##add-imm f 2 0 -100 }
         T{ ##load-integer f 3 50 }
@@ -1354,7 +1354,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##sub f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1364,7 +1364,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1372,7 +1372,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1382,7 +1382,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1390,7 +1390,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##mul f 2 1 0 }
         T{ ##load-integer f 3 50 }
@@ -1400,7 +1400,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1408,7 +1408,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1418,7 +1418,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1426,7 +1426,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##and f 2 1 0 }
         T{ ##load-integer f 3 50 }
@@ -1436,7 +1436,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1444,7 +1444,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1454,7 +1454,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1462,7 +1462,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##or f 2 1 0 }
         T{ ##load-integer f 3 50 }
@@ -1472,7 +1472,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1480,7 +1480,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor f 2 0 1 }
         T{ ##load-integer f 3 50 }
@@ -1490,7 +1490,7 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor-imm f 2 0 100 }
         T{ ##load-integer f 3 50 }
@@ -1498,7 +1498,7 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 100 }
         T{ ##xor f 2 1 0 }
         T{ ##load-integer f 3 50 }
@@ -1508,113 +1508,113 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shl-imm f 1 0 10 }
         T{ ##shl-imm f 2 0 21 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shl-imm f 1 0 10 }
         T{ ##shl-imm f 2 1 11 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shl-imm f 1 0 10 }
         T{ ##shl-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shl-imm f 1 0 10 }
         T{ ##shl-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sar-imm f 1 0 10 }
         T{ ##sar-imm f 2 0 21 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sar-imm f 1 0 10 }
         T{ ##sar-imm f 2 1 11 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sar-imm f 1 0 10 }
         T{ ##sar-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sar-imm f 1 0 10 }
         T{ ##sar-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##shr-imm f 2 0 21 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##shr-imm f 2 1 11 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##shr-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##shr-imm f 2 1 $[ cell-bits 1 - ] }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##sar-imm f 2 1 11 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 1 0 10 }
         T{ ##sar-imm f 2 1 11 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
@@ -1623,308 +1623,308 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 10 }
         T{ ##shl-imm f 3 0 2 }
         T{ ##add-imm f 2 3 40 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 10 }
         T{ ##shl-imm f 2 1 2 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 10 }
         T{ ##mul-imm f 4 0 3 }
         T{ ##add-imm f 2 4 30 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 10 }
         T{ ##mul-imm f 2 1 3 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 -10 }
         T{ ##shl-imm f 5 0 2 }
         T{ ##add-imm f 2 5 -40 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sub-imm f 1 0 10 }
         T{ ##shl-imm f 2 1 2 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##add-imm f 1 0 -10 }
         T{ ##mul-imm f 6 0 3 }
         T{ ##add-imm f 2 6 -30 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sub-imm f 1 0 10 }
         T{ ##mul-imm f 2 1 3 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 ! Simplification
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##copy f 3 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##add-imm f 3 0 0 }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##copy f 3 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##or-imm f 3 0 0 }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##copy f 3 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##xor-imm f 3 0 0 }
-        T{ ##replace f 3 D 0 }
+        T{ ##replace f 3 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##and-imm f 1 0 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##and-imm f 1 0 -1 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##and f 1 0 0 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##or-imm f 1 0 0 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -1 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##or-imm f 1 0 -1 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##or f 1 0 0 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##xor-imm f 1 0 0 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##not f 1 0 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##xor-imm f 1 0 -1 }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##xor f 1 0 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##mul-imm f 2 0 1 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shl-imm f 2 0 0 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shr-imm f 2 0 0 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##sar-imm f 2 0 0 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 ! Constant folding
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 3 }
         T{ ##load-integer f 3 4 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 3 }
         T{ ##add f 3 1 2 }
@@ -1933,14 +1933,14 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 3 }
         T{ ##load-integer f 3 -2 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 3 }
         T{ ##sub f 3 1 2 }
@@ -1949,14 +1949,14 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 3 }
         T{ ##load-integer f 3 6 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 3 }
         T{ ##mul f 3 1 2 }
@@ -1965,14 +1965,14 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 1 }
         T{ ##load-integer f 3 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 1 }
         T{ ##and f 3 1 2 }
@@ -1981,14 +1981,14 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 1 }
         T{ ##load-integer f 3 3 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 1 }
         T{ ##or f 3 1 2 }
@@ -1997,14 +1997,14 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 3 }
         T{ ##load-integer f 3 1 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 2 }
         T{ ##load-integer f 2 3 }
         T{ ##xor f 3 1 2 }
@@ -2013,13 +2013,13 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 3 8 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##shl-imm f 3 1 3 }
     } value-number-bb
@@ -2028,13 +2028,13 @@ cpu x86? [
 cell 8 = [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 -1 }
             T{ ##load-integer f 3 0xffffffffffff }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 -1 }
             T{ ##shr-imm f 3 1 16 }
         } value-number-bb
@@ -2043,13 +2043,13 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -8 }
         T{ ##load-integer f 3 -4 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 -8 }
         T{ ##sar-imm f 3 1 1 }
     } value-number-bb
@@ -2058,14 +2058,14 @@ cell 8 = [
 cell 8 = [
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 65536 }
             T{ ##load-integer f 2 140737488355328 }
             T{ ##add f 3 0 2 }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 1 65536 }
             T{ ##shl-imm f 2 1 31 }
             T{ ##add f 3 0 2 }
@@ -2074,13 +2074,13 @@ cell 8 = [
 
     [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 2 140737488355328 }
             T{ ##add f 3 0 2 }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
+            T{ ##peek f 0 D: 0 }
             T{ ##load-integer f 2 140737488355328 }
             T{ ##add f 3 0 2 }
         } value-number-bb
@@ -2090,14 +2090,14 @@ cell 8 = [
     cpu ppc? [
         [
             V{
-                T{ ##peek f 0 D 0 }
+                T{ ##peek f 0 D: 0 }
                 T{ ##load-integer f 2 2147483647 }
                 T{ ##add-imm f 3 0 2147483647 }
                 T{ ##add-imm f 4 3 2147483647 }
             }
         ] [
             V{
-                T{ ##peek f 0 D 0 }
+                T{ ##peek f 0 D: 0 }
                 T{ ##load-integer f 2 2147483647 }
                 T{ ##add f 3 0 2 }
                 T{ ##add f 4 3 2 }
@@ -2108,13 +2108,13 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 -1 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##neg f 2 1 }
     } value-number-bb
@@ -2122,13 +2122,13 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##load-integer f 2 -2 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 1 1 }
         T{ ##not f 2 1 }
     } value-number-bb
@@ -2166,49 +2166,49 @@ cell 8 = [
 ! Alien boxing and unboxing
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##box-alien f 1 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##box-alien f 1 0 }
         T{ ##unbox-alien f 2 1 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##box-alien f 1 0 }
         T{ ##copy f 2 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##box-alien f 1 0 }
         T{ ##unbox-any-c-ptr f 2 1 }
-        T{ ##replace f 2 D 0 }
+        T{ ##replace f 2 D: 0 }
     } value-number-bb
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 0 }
         T{ ##copy f 1 0 any-rep }
-        T{ ##replace f 0 D 0 }
+        T{ ##replace f 0 D: 0 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 0 }
         T{ ##box-displaced-alien f 1 2 0 c-ptr }
-        T{ ##replace f 1 D 0 }
+        T{ ##replace f 1 D: 0 }
     } value-number-bb
 ] unit-test
 
@@ -2216,7 +2216,7 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 16 }
         T{ ##box-displaced-alien f 1 2 0 c-ptr }
         T{ ##unbox-any-c-ptr f 4 0 }
@@ -2224,7 +2224,7 @@ cell 8 = [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 16 }
         T{ ##box-displaced-alien f 1 2 0 c-ptr }
         T{ ##unbox-any-c-ptr f 3 1 }
@@ -2235,7 +2235,7 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##box-alien f 0 1 }
         T{ ##load-integer f 2 16 }
         T{ ##box-displaced-alien f 3 2 0 c-ptr }
@@ -2244,7 +2244,7 @@ cell 8 = [
     }
 } [
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##box-alien f 0 1 }
         T{ ##load-integer f 2 16 }
         T{ ##box-displaced-alien f 3 2 0 c-ptr }
@@ -2256,30 +2256,30 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 0 }
         T{ ##copy f 3 0 any-rep }
-        T{ ##replace f 0 D 1 }
+        T{ ##replace f 0 D: 1 }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-integer f 2 0 }
         T{ ##box-displaced-alien f 3 2 0 c-ptr }
-        T{ ##replace f 3 D 1 }
+        T{ ##replace f 3 D: 1 }
     } value-number-bb
 ] unit-test
 
 ! Various SIMD simplifications
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##vector>scalar f 1 0 float-4-rep }
         T{ ##copy f 2 0 any-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##vector>scalar f 1 0 float-4-rep }
         T{ ##scalar>vector f 2 1 float-4-rep }
     } value-number-bb
@@ -2297,13 +2297,13 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shuffle-vector-imm f 1 0 { 1 2 3 0 } float-4-rep }
         T{ ##shuffle-vector-imm f 2 0 { 0 2 3 1 } float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##shuffle-vector-imm f 1 0 { 1 2 3 0 } float-4-rep }
         T{ ##shuffle-vector-imm f 2 1 { 3 1 2 0 } float-4-rep }
     } value-number-bb
@@ -2457,16 +2457,16 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##and-vector  f 5 4 1 float-4-rep }
@@ -2475,15 +2475,15 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##and-vector  f 5 4 1 float-4-rep }
     } value-number-bb
@@ -2493,16 +2493,16 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##and-vector  f 5 1 4 float-4-rep }
@@ -2511,15 +2511,15 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##and-vector  f 5 1 4 float-4-rep }
     } value-number-bb
@@ -2529,16 +2529,16 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##and-vector  f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##andn-vector f 5 4 1 float-4-rep }
@@ -2547,15 +2547,15 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##and-vector  f 5 0 1 float-4-rep }
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##not-vector  f 4 0 float-4-rep }
         T{ ##andn-vector f 5 4 1 float-4-rep }
     } value-number-bb
@@ -2565,9 +2565,9 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
@@ -2576,9 +2576,9 @@ cell 8 = [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##fill-vector f 3 float-4-rep }
         T{ ##xor-vector  f 4 0 3 float-4-rep }
         T{ ##and-vector  f 5 4 1 float-4-rep }
@@ -2589,9 +2589,9 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##not-vector  f 4 0   float-4-rep }
         T{ ##andn-vector f 5 0 1 float-4-rep }
         T{ ##and-vector  f 6 0 2 float-4-rep }
@@ -2599,9 +2599,9 @@ cell 8 = [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
-        T{ ##peek f 2 D 2 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
+        T{ ##peek f 2 D: 2 }
         T{ ##not-vector  f 4 0   float-4-rep }
         T{ ##and-vector  f 5 4 1 float-4-rep }
         T{ ##andn-vector f 6 4 2 float-4-rep }
@@ -2681,92 +2681,92 @@ cell 8 = [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     1
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc< }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     0
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc<= }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     1
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc> }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     0
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc>= }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     0
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc= }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##branch }
     }
     1
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare-integer-branch f 0 0 cc/= }
     } test-branch-folding
 ] unit-test
 
 {
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##load-reference f 1 t }
         T{ ##branch }
     }
     0
 } [
     V{
-        T{ ##peek f 0 D 0 }
+        T{ ##peek f 0 D: 0 }
         T{ ##compare f 1 0 0 cc<= }
         T{ ##compare-imm-branch f 1 f cc/= }
     } test-branch-folding
@@ -2776,7 +2776,7 @@ cell 8 = [
 V{ T{ ##branch } } 0 test-bb
 
 V{
-    T{ ##peek f 0 D 0 }
+    T{ ##peek f 0 D: 0 }
     T{ ##compare-integer-branch f 0 0 cc< }
 } 1 test-bb
 
@@ -2792,7 +2792,7 @@ V{
 
 V{
     T{ ##phi f 3 H{ { 2 1 } { 3 2 } } }
-    T{ ##replace f 3 D 0 }
+    T{ ##replace f 3 D: 0 }
     T{ ##return }
 } 4 test-bb
 
@@ -2814,12 +2814,12 @@ test-diamond
 { 2 } [ 4 get instructions>> length ] unit-test
 
 V{
-    T{ ##peek f 0 D 0 }
+    T{ ##peek f 0 D: 0 }
     T{ ##branch }
 } 0 test-bb
 
 V{
-    T{ ##peek f 1 D 1 }
+    T{ ##peek f 1 D: 1 }
     T{ ##compare-integer-branch f 1 1 cc< }
 } 1 test-bb
 
@@ -2834,7 +2834,7 @@ V{
 } 3 test-bb
 
 V{
-    T{ ##replace f 3 D 0 }
+    T{ ##replace f 3 D: 0 }
     T{ ##return }
 } 4 test-bb
 
@@ -2849,7 +2849,7 @@ test-diamond
 V{ T{ ##prologue } T{ ##branch } } 0 test-bb
 
 V{
-    T{ ##peek { dst 15 } { loc D 0 } }
+    T{ ##peek { dst 15 } { loc D: 0 } }
     T{ ##copy { dst 16 } { src 15 } { rep any-rep } }
     T{ ##copy { dst 17 } { src 15 } { rep any-rep } }
     T{ ##copy { dst 18 } { src 15 } { rep any-rep } }
@@ -2877,7 +2877,7 @@ V{
 } 2 test-bb
 
 V{
-    T{ ##replace { src 25 } { loc D 0 } }
+    T{ ##replace { src 25 } { loc D: 0 } }
     T{ ##epilogue }
     T{ ##return }
 } 3 test-bb
@@ -2894,7 +2894,7 @@ V{
 } 4 test-bb
 
 V{
-    T{ ##replace { src 28 } { loc D 0 } }
+    T{ ##replace { src 28 } { loc D: 0 } }
     T{ ##epilogue }
     T{ ##return }
 } 5 test-bb
@@ -2915,15 +2915,15 @@ V{
 cpu x86? [
     [
         V{
-            T{ ##peek f 0 D 0 }
-            T{ ##peek f 1 D 1 }
+            T{ ##peek f 0 D: 0 }
+            T{ ##peek f 1 D: 1 }
             T{ ##add-imm f 2 1 2 }
             T{ ##slot f 3 0 1 $[ cell log2 ] $[ 7 2 cells - ] }
         }
     ] [
         V{
-            T{ ##peek f 0 D 0 }
-            T{ ##peek f 1 D 1 }
+            T{ ##peek f 0 D: 0 }
+            T{ ##peek f 1 D: 1 }
             T{ ##add-imm f 2 1 2 }
             T{ ##slot f 3 0 2 $[ cell log2 ] 7 }
         } value-number-bb
@@ -2935,14 +2935,14 @@ cpu x86? [
 ! Base offset fusion on ##load/store-memory-imm
 {
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##tagged>integer f 2 1 }
         T{ ##add-imm f 3 2 10 }
         T{ ##load-memory-imm f 4 2 10 int-rep c:uchar }
     }
 } [
     V{
-        T{ ##peek f 1 D 0 }
+        T{ ##peek f 1 D: 0 }
         T{ ##tagged>integer f 2 1 }
         T{ ##add-imm f 3 2 10 }
         T{ ##load-memory-imm f 4 3 0 int-rep c:uchar }
@@ -2951,8 +2951,8 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 10 }
@@ -2960,8 +2960,8 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 10 }
@@ -2972,8 +2972,8 @@ cpu x86? [
 ! Displacement fusion on ##load/store-memory-imm
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add f 4 2 3 }
@@ -2981,8 +2981,8 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add f 4 2 3 }
@@ -2992,8 +2992,8 @@ cpu x86? [
 
 {
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add f 4 2 3 }
@@ -3001,8 +3001,8 @@ cpu x86? [
     }
 } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add f 4 2 3 }
@@ -3014,8 +3014,8 @@ cpu x86? [
 cpu x86?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 2 31337 }
@@ -3024,8 +3024,8 @@ cpu x86?
 ]
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 2 31337 }
@@ -3034,8 +3034,8 @@ cpu x86?
 ] ?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 2 31337 }
@@ -3047,8 +3047,8 @@ cpu x86?
 cpu x86?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 31337 }
@@ -3057,8 +3057,8 @@ cpu x86?
 ]
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 31337 }
@@ -3067,8 +3067,8 @@ cpu x86?
 ] ?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 31337 }
@@ -3080,8 +3080,8 @@ cpu x86?
 ! ##load/store-memory with non-zero scale
 { } [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##add-imm f 4 3 10 }
@@ -3093,8 +3093,8 @@ cpu x86?
 cpu x86?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##shl-imm f 4 3 2 }
@@ -3103,8 +3103,8 @@ cpu x86?
 ]
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##shl-imm f 4 3 2 }
@@ -3113,8 +3113,8 @@ cpu x86?
 ] ?
 [
     V{
-        T{ ##peek f 0 D 0 }
-        T{ ##peek f 1 D 1 }
+        T{ ##peek f 0 D: 0 }
+        T{ ##peek f 1 D: 1 }
         T{ ##tagged>integer f 2 0 }
         T{ ##tagged>integer f 3 1 }
         T{ ##shl-imm f 4 3 2 }
@@ -3126,8 +3126,8 @@ cpu x86? [
     ! Don't do scale fusion if there's already a scale
     [ ] [
         V{
-            T{ ##peek f 0 D 0 }
-            T{ ##peek f 1 D 1 }
+            T{ ##peek f 0 D: 0 }
+            T{ ##peek f 1 D: 1 }
             T{ ##tagged>integer f 2 0 }
             T{ ##tagged>integer f 3 1 }
             T{ ##shl-imm f 4 3 2 }
@@ -3138,8 +3138,8 @@ cpu x86? [
     ! Don't do scale fusion if the scale factor is out of range
     [ ] [
         V{
-            T{ ##peek f 0 D 0 }
-            T{ ##peek f 1 D 1 }
+            T{ ##peek f 0 D: 0 }
+            T{ ##peek f 1 D: 1 }
             T{ ##tagged>integer f 2 0 }
             T{ ##tagged>integer f 3 1 }
             T{ ##shl-imm f 4 3 4 }
@@ -3155,19 +3155,19 @@ cpu x86? [
 V{ T{ ##branch } } 0 test-bb
 
 V{
-    T{ ##inc { loc D -1 } }
-    T{ ##peek { dst 1 } { loc D -1 } }
+    T{ ##inc { loc D: -1 } }
+    T{ ##peek { dst 1 } { loc D: -1 } }
     T{ ##compare-imm-branch { src1 1 } { src2 f } { cc cc/= } }
 } 1 test-bb
 
 V{
-    T{ ##inc { loc D 1 } }
+    T{ ##inc { loc D: 1 } }
     T{ ##load-integer { dst 2 } { val 100 } }
     T{ ##branch }
 } 2 test-bb
 
 V{
-    T{ ##inc { loc D 1 } }
+    T{ ##inc { loc D: 1 } }
     T{ ##load-integer { dst 3 } { val 200 } }
     T{ ##branch }
 } 3 test-bb
@@ -3192,7 +3192,7 @@ test-diamond
 V{ T{ ##prologue } T{ ##branch } } 0 test-bb
 
 V{
-    T{ ##inc f D 3 }
+    T{ ##inc f D: 3 }
     T{ ##load-integer f 21 0 }
     T{ ##load-integer f 22 100 }
     T{ ##load-integer f 23 0 }
@@ -3227,8 +3227,8 @@ V{
 } 2 test-bb
 
 V{
-    T{ ##inc f D -2 }
-    T{ ##replace f 29 D 0 }
+    T{ ##inc f D: -2 }
+    T{ ##replace f 29 D: 0 }
     T{ ##branch }
 } 4 test-bb