296 lines
9.2 KiB
NASM
296 lines
9.2 KiB
NASM
;
|
|
; Copyright (c) 2010 The WebM project authors. All Rights Reserved.
|
|
;
|
|
; Use of this source code is governed by a BSD-style license
|
|
; that can be found in the LICENSE file in the root of the source
|
|
; tree. An additional intellectual property rights grant can be found
|
|
; in the file PATENTS. All contributing project authors may
|
|
; be found in the AUTHORS file in the root of the source tree.
|
|
;
|
|
|
|
|
|
%include "vpx_ports/x86_abi_support.asm"
|
|
|
|
; /****************************************************************************
|
|
; * Notes:
|
|
; *
|
|
; * This implementation makes use of 16 bit fixed point version of two multiply
|
|
; * constants:
|
|
; * 1. sqrt(2) * cos (pi/8)
|
|
; * 2. sqrt(2) * sin (pi/8)
|
|
; * Because the first constant is bigger than 1, to maintain the same 16 bit
|
|
; * fixed point precision as the second one, we use a trick of
|
|
; * x * a = x + x*(a-1)
|
|
; * so
|
|
; * x * sqrt(2) * cos (pi/8) = x + x * (sqrt(2) *cos(pi/8)-1).
|
|
; *
|
|
; * For the second constant, because of the 16bit version is 35468, which
|
|
; * is bigger than 32768, in signed 16 bit multiply, it becomes a negative
|
|
; * number.
|
|
; * (x * (unsigned)35468 >> 16) = x * (signed)35468 >> 16 + x
|
|
; *
|
|
; **************************************************************************/
|
|
|
|
|
|
;void vp8_short_idct4x4llm_mmx(short *input, unsigned char *pred,
|
|
;int pitch, unsigned char *dest,int stride)
|
|
global sym(vp8_short_idct4x4llm_mmx) PRIVATE
|
|
sym(vp8_short_idct4x4llm_mmx):
|
|
push rbp
|
|
mov rbp, rsp
|
|
SHADOW_ARGS_TO_STACK 5
|
|
GET_GOT rbx
|
|
push rsi
|
|
push rdi
|
|
; end prolog
|
|
|
|
mov rax, arg(0) ;input
|
|
mov rsi, arg(1) ;pred
|
|
|
|
movq mm0, [rax ]
|
|
movq mm1, [rax+ 8]
|
|
movq mm2, [rax+16]
|
|
movq mm3, [rax+24]
|
|
|
|
%if 0
|
|
pxor mm7, mm7
|
|
movq [rax], mm7
|
|
movq [rax+8], mm7
|
|
movq [rax+16],mm7
|
|
movq [rax+24],mm7
|
|
%endif
|
|
movsxd rax, dword ptr arg(2) ;pitch
|
|
mov rdx, arg(3) ;dest
|
|
movsxd rdi, dword ptr arg(4) ;stride
|
|
|
|
|
|
psubw mm0, mm2 ; b1= 0-2
|
|
paddw mm2, mm2 ;
|
|
|
|
movq mm5, mm1
|
|
paddw mm2, mm0 ; a1 =0+2
|
|
|
|
pmulhw mm5, [GLOBAL(x_s1sqr2)];
|
|
paddw mm5, mm1 ; ip1 * sin(pi/8) * sqrt(2)
|
|
|
|
movq mm7, mm3 ;
|
|
pmulhw mm7, [GLOBAL(x_c1sqr2less1)];
|
|
|
|
paddw mm7, mm3 ; ip3 * cos(pi/8) * sqrt(2)
|
|
psubw mm7, mm5 ; c1
|
|
|
|
movq mm5, mm1
|
|
movq mm4, mm3
|
|
|
|
pmulhw mm5, [GLOBAL(x_c1sqr2less1)]
|
|
paddw mm5, mm1
|
|
|
|
pmulhw mm3, [GLOBAL(x_s1sqr2)]
|
|
paddw mm3, mm4
|
|
|
|
paddw mm3, mm5 ; d1
|
|
movq mm6, mm2 ; a1
|
|
|
|
movq mm4, mm0 ; b1
|
|
paddw mm2, mm3 ;0
|
|
|
|
paddw mm4, mm7 ;1
|
|
psubw mm0, mm7 ;2
|
|
|
|
psubw mm6, mm3 ;3
|
|
|
|
movq mm1, mm2 ; 03 02 01 00
|
|
movq mm3, mm4 ; 23 22 21 20
|
|
|
|
punpcklwd mm1, mm0 ; 11 01 10 00
|
|
punpckhwd mm2, mm0 ; 13 03 12 02
|
|
|
|
punpcklwd mm3, mm6 ; 31 21 30 20
|
|
punpckhwd mm4, mm6 ; 33 23 32 22
|
|
|
|
movq mm0, mm1 ; 11 01 10 00
|
|
movq mm5, mm2 ; 13 03 12 02
|
|
|
|
punpckldq mm0, mm3 ; 30 20 10 00
|
|
punpckhdq mm1, mm3 ; 31 21 11 01
|
|
|
|
punpckldq mm2, mm4 ; 32 22 12 02
|
|
punpckhdq mm5, mm4 ; 33 23 13 03
|
|
|
|
movq mm3, mm5 ; 33 23 13 03
|
|
|
|
psubw mm0, mm2 ; b1= 0-2
|
|
paddw mm2, mm2 ;
|
|
|
|
movq mm5, mm1
|
|
paddw mm2, mm0 ; a1 =0+2
|
|
|
|
pmulhw mm5, [GLOBAL(x_s1sqr2)];
|
|
paddw mm5, mm1 ; ip1 * sin(pi/8) * sqrt(2)
|
|
|
|
movq mm7, mm3 ;
|
|
pmulhw mm7, [GLOBAL(x_c1sqr2less1)];
|
|
|
|
paddw mm7, mm3 ; ip3 * cos(pi/8) * sqrt(2)
|
|
psubw mm7, mm5 ; c1
|
|
|
|
movq mm5, mm1
|
|
movq mm4, mm3
|
|
|
|
pmulhw mm5, [GLOBAL(x_c1sqr2less1)]
|
|
paddw mm5, mm1
|
|
|
|
pmulhw mm3, [GLOBAL(x_s1sqr2)]
|
|
paddw mm3, mm4
|
|
|
|
paddw mm3, mm5 ; d1
|
|
paddw mm0, [GLOBAL(fours)]
|
|
|
|
paddw mm2, [GLOBAL(fours)]
|
|
movq mm6, mm2 ; a1
|
|
|
|
movq mm4, mm0 ; b1
|
|
paddw mm2, mm3 ;0
|
|
|
|
paddw mm4, mm7 ;1
|
|
psubw mm0, mm7 ;2
|
|
|
|
psubw mm6, mm3 ;3
|
|
psraw mm2, 3
|
|
|
|
psraw mm0, 3
|
|
psraw mm4, 3
|
|
|
|
psraw mm6, 3
|
|
|
|
movq mm1, mm2 ; 03 02 01 00
|
|
movq mm3, mm4 ; 23 22 21 20
|
|
|
|
punpcklwd mm1, mm0 ; 11 01 10 00
|
|
punpckhwd mm2, mm0 ; 13 03 12 02
|
|
|
|
punpcklwd mm3, mm6 ; 31 21 30 20
|
|
punpckhwd mm4, mm6 ; 33 23 32 22
|
|
|
|
movq mm0, mm1 ; 11 01 10 00
|
|
movq mm5, mm2 ; 13 03 12 02
|
|
|
|
punpckldq mm0, mm3 ; 30 20 10 00
|
|
punpckhdq mm1, mm3 ; 31 21 11 01
|
|
|
|
punpckldq mm2, mm4 ; 32 22 12 02
|
|
punpckhdq mm5, mm4 ; 33 23 13 03
|
|
|
|
pxor mm7, mm7
|
|
|
|
movd mm4, [rsi]
|
|
punpcklbw mm4, mm7
|
|
paddsw mm0, mm4
|
|
packuswb mm0, mm7
|
|
movd [rdx], mm0
|
|
|
|
movd mm4, [rsi+rax]
|
|
punpcklbw mm4, mm7
|
|
paddsw mm1, mm4
|
|
packuswb mm1, mm7
|
|
movd [rdx+rdi], mm1
|
|
|
|
movd mm4, [rsi+2*rax]
|
|
punpcklbw mm4, mm7
|
|
paddsw mm2, mm4
|
|
packuswb mm2, mm7
|
|
movd [rdx+rdi*2], mm2
|
|
|
|
add rdx, rdi
|
|
add rsi, rax
|
|
|
|
movd mm4, [rsi+2*rax]
|
|
punpcklbw mm4, mm7
|
|
paddsw mm5, mm4
|
|
packuswb mm5, mm7
|
|
movd [rdx+rdi*2], mm5
|
|
|
|
; begin epilog
|
|
pop rdi
|
|
pop rsi
|
|
RESTORE_GOT
|
|
UNSHADOW_ARGS
|
|
pop rbp
|
|
ret
|
|
|
|
;void vp8_dc_only_idct_add_mmx(
|
|
;short input_dc,
|
|
;unsigned char *pred_ptr,
|
|
;int pred_stride,
|
|
;unsigned char *dst_ptr,
|
|
;int stride)
|
|
global sym(vp8_dc_only_idct_add_mmx) PRIVATE
|
|
sym(vp8_dc_only_idct_add_mmx):
|
|
push rbp
|
|
mov rbp, rsp
|
|
SHADOW_ARGS_TO_STACK 5
|
|
GET_GOT rbx
|
|
; end prolog
|
|
|
|
movd mm5, arg(0) ;input_dc
|
|
mov rax, arg(1) ;pred_ptr
|
|
movsxd rdx, dword ptr arg(2) ;pred_stride
|
|
|
|
pxor mm0, mm0
|
|
|
|
paddw mm5, [GLOBAL(fours)]
|
|
lea rcx, [rdx + rdx*2]
|
|
|
|
psraw mm5, 3
|
|
|
|
punpcklwd mm5, mm5
|
|
|
|
punpckldq mm5, mm5
|
|
|
|
movd mm1, [rax]
|
|
movd mm2, [rax+rdx]
|
|
movd mm3, [rax+2*rdx]
|
|
movd mm4, [rax+rcx]
|
|
|
|
mov rax, arg(3) ;d -- destination
|
|
movsxd rdx, dword ptr arg(4) ;dst_stride
|
|
|
|
punpcklbw mm1, mm0
|
|
paddsw mm1, mm5
|
|
packuswb mm1, mm0 ; pack and unpack to saturate
|
|
lea rcx, [rdx + rdx*2]
|
|
|
|
punpcklbw mm2, mm0
|
|
paddsw mm2, mm5
|
|
packuswb mm2, mm0 ; pack and unpack to saturate
|
|
|
|
punpcklbw mm3, mm0
|
|
paddsw mm3, mm5
|
|
packuswb mm3, mm0 ; pack and unpack to saturate
|
|
|
|
punpcklbw mm4, mm0
|
|
paddsw mm4, mm5
|
|
packuswb mm4, mm0 ; pack and unpack to saturate
|
|
|
|
movd [rax], mm1
|
|
movd [rax+rdx], mm2
|
|
movd [rax+2*rdx], mm3
|
|
movd [rax+rcx], mm4
|
|
|
|
; begin epilog
|
|
RESTORE_GOT
|
|
UNSHADOW_ARGS
|
|
pop rbp
|
|
ret
|
|
|
|
SECTION_RODATA
|
|
align 16
|
|
x_s1sqr2:
|
|
times 4 dw 0x8A8C
|
|
align 16
|
|
x_c1sqr2less1:
|
|
times 4 dw 0x4E7B
|
|
align 16
|
|
fours:
|
|
times 4 dw 0x0004
|