73def sm86BarrierCode =
74 (lambda unrestricted barrier : (family SM86Barrier) .
75 (eliminate
76 SM86Barrier
77 (lambda unrestricted value : (family SM86Barrier) . Nat)
78 barrier
79 (branch SM86Barrier0 . (byte-to-nat (byte 0)))
80 (branch SM86Barrier1 . (byte-to-nat (byte 1)))
81 (branch SM86Barrier2 . (byte-to-nat (byte 2)))
82 (branch SM86Barrier3 . (byte-to-nat (byte 3)))
83 (branch SM86Barrier4 . (byte-to-nat (byte 4)))
84 (branch SM86Barrier5 . (byte-to-nat (byte 5)))
85 (branch SM86Barrier6 . (byte-to-nat (byte 6)))
86 (branch SM86BarrierNone . (byte-to-nat (byte 7)))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.