@@ -4,6 +4,7 @@ USING: kernel math vectors arrays accessors namespaces ; IN: compiler.cfg TUPLE: basic-block < identity-tuple +id number { instructions vector } { successors vector } @@ -11,10 +12,13 @@ number : <basic-block> ( -- bb ) basic-block new + \ basic-block counter >>id V{ } clone >>instructions V{ } clone >>successors V{ } clone >>predecessors ; +M: basic-block hashcode* nip id>> ; + TUPLE: cfg { entry basic-block } word label spill-area-size reps post-order linear-order basis/compiler/cfg/cfg.factor @@ -585,16 +585,16 @@ TUPLE: alien-accessor-regression { b byte-array } { i fixnum } ; swap [ { tuple } declare 1 slot ] [ - 0 slot + 1 slot ] if ; -[ t ] [ f B{ } mutable-value-bug-1 byte-array type-number = ] unit-test +[ 0 ] [ f { } mutable-value-bug-1 ] unit-test : mutable-value-bug-2 ( a b -- c ) swap [ - 0 slot + 1 slot ] [ { tuple } declare 1 slot ] if ; -[ t ] [ t B{ } mutable-value-bug-2 byte-array type-number = ] unit-test +[ 0 ] [ t { } mutable-value-bug-2 ] unit-test basis/compiler/tests/intrinsics.factor @@ -134,7 +134,7 @@ $nl "If a pathname begins with " { $snippet "vocab:" } ", then it will be searched for in all current vocabulary roots (see " { $link "add-vocab-roots" } ")." ; ARTICLE: "io.pathnames.presentations" "Pathname presentations" -"Pathname presentations are objects that wrap a pathname string. Clicking a pathname presentation in the UI brings up the file in one of the supported editors. See " { $link "editor" } " for more details." +"Pathname presentations are objects that wrap a pathname string. Clicking a pathname presentation in the UI brings up the file in one of the supported editors. See " { $link "editor" } " for more details." { $subsections pathname <pathname> core/io/pathnames/pathnames-docs.factor 68f3087c1c6f606ebc6959e114146c7c612c9280 Slava Pestov slava@slava-pestovs-macbook-pro.local http://github.com/slavapestov/factor/commit/3b75114015d1365874d02baf37f7b8f4f9edcad4 3b75114015d1365874d02baf37f7b8f4f9edcad4

2009-11-11T00:40:24-08:00

Fixing test failures 6ea93a92ce3e3fa79fd48cfa40d389ccc48ca989 Slava Pestov slava@slava-pestovs-macbook-pro.local