diff --git a/basis/cpu/x86/assembler/assembler.factor b/basis/cpu/x86/assembler/assembler.factor index b2de0cc6e4..ead1c8a695 100644 --- a/basis/cpu/x86/assembler/assembler.factor +++ b/basis/cpu/x86/assembler/assembler.factor @@ -432,6 +432,9 @@ PRIVATE> : MOVHPD ( dest src -- ) HEX: 16 HEX: 66 2-operand-sse ; : MOVSHDUP ( dest src -- ) HEX: 16 HEX: f3 2-operand-rm-sse ; +ALIAS: MOVHLPS MOVLPS +ALIAS: MOVLHPS MOVHPS + : PREFETCHNTA ( mem -- ) { BIN: 000 f { HEX: 0f HEX: 18 } } 1-operand ; : PREFETCHT0 ( mem -- ) { BIN: 001 f { HEX: 0f HEX: 18 } } 1-operand ; : PREFETCHT1 ( mem -- ) { BIN: 010 f { HEX: 0f HEX: 18 } } 1-operand ; diff --git a/basis/tools/deploy/shaker/strip-struct-arrays.factor b/basis/tools/deploy/shaker/strip-struct-arrays.factor index b83adc401a..022b5f1de9 100644 --- a/basis/tools/deploy/shaker/strip-struct-arrays.factor +++ b/basis/tools/deploy/shaker/strip-struct-arrays.factor @@ -1,5 +1,5 @@ -USING: kernel stack-checker.transforms struct-arrays.private ; -IN: struct-arrays +USING: kernel stack-checker.transforms ; +IN: struct-arrays.private : struct-element-constructor ( c-type -- word ) "Struct array usages must be compiled" throw ;