155 lines
2.9 KiB
Factor
155 lines
2.9 KiB
Factor
USING: compiler.cfg.instructions compiler.cfg.write-barrier
|
|
tools.test ;
|
|
IN: compiler.cfg.write-barrier.tests
|
|
|
|
! Do need a write barrier on a random store.
|
|
{
|
|
V{
|
|
T{ peek## f 1 }
|
|
T{ set-slot## f 2 1 3 }
|
|
T{ write-barrier## f 1 3 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ peek## f 1 }
|
|
T{ set-slot## f 2 1 3 }
|
|
T{ write-barrier## f 1 3 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ peek## f 1 }
|
|
T{ set-slot-imm## f 2 1 }
|
|
T{ write-barrier-imm## f 1 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ peek## f 1 }
|
|
T{ set-slot-imm## f 2 1 }
|
|
T{ write-barrier-imm## f 1 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
! Don't need a write barrier on freshly allocated objects.
|
|
{
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ set-slot## f 2 1 3 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ set-slot## f 2 1 3 }
|
|
T{ write-barrier## f 1 3 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ set-slot-imm## f 2 1 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ set-slot-imm## f 2 1 }
|
|
T{ write-barrier-imm## f 1 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
! Do need a write barrier if there's a subroutine call between
|
|
! the allocation and the store.
|
|
{
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ box## }
|
|
T{ set-slot## f 2 1 3 }
|
|
T{ write-barrier## f 1 3 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ box## }
|
|
T{ set-slot## f 2 1 3 }
|
|
T{ write-barrier## f 1 3 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ box## }
|
|
T{ set-slot-imm## f 2 1 }
|
|
T{ write-barrier-imm## f 1 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ allot## f 1 }
|
|
T{ box## }
|
|
T{ set-slot-imm## f 2 1 }
|
|
T{ write-barrier-imm## f 1 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
! copy## instructions
|
|
{
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ set-slot-imm## f 3 1 }
|
|
T{ write-barrier-imm## f 2 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ set-slot-imm## f 3 1 }
|
|
T{ write-barrier-imm## f 2 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ set-slot-imm## f 3 2 }
|
|
T{ write-barrier-imm## f 1 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ set-slot-imm## f 3 2 }
|
|
T{ write-barrier-imm## f 1 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ copy## f 3 2 }
|
|
T{ set-slot-imm## f 3 1 }
|
|
T{ write-barrier-imm## f 2 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ copy## f 3 2 }
|
|
T{ set-slot-imm## f 3 1 }
|
|
T{ write-barrier-imm## f 2 }
|
|
} write-barriers-step
|
|
] unit-test
|
|
|
|
{
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ copy## f 3 2 }
|
|
T{ set-slot-imm## f 4 1 }
|
|
T{ write-barrier-imm## f 3 }
|
|
}
|
|
} [
|
|
V{
|
|
T{ copy## f 2 1 }
|
|
T{ copy## f 3 2 }
|
|
T{ set-slot-imm## f 4 1 }
|
|
T{ write-barrier-imm## f 3 }
|
|
} write-barriers-step
|
|
] unit-test
|