You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

306 lines
11KB

  1. /*
  2. * idct BlackFin
  3. *
  4. * Copyright (C) 2007 Marc Hoffman <marc.hoffman@analog.com>
  5. *
  6. * This file is part of FFmpeg.
  7. *
  8. * FFmpeg is free software; you can redistribute it and/or
  9. * modify it under the terms of the GNU Lesser General Public
  10. * License as published by the Free Software Foundation; either
  11. * version 2.1 of the License, or (at your option) any later version.
  12. *
  13. * FFmpeg is distributed in the hope that it will be useful,
  14. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  16. * Lesser General Public License for more details.
  17. *
  18. * You should have received a copy of the GNU Lesser General Public
  19. * License along with FFmpeg; if not, write to the Free Software
  20. * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  21. */
  22. /*
  23. This blackfin DSP code implements an 8x8 inverse type II DCT.
  24. Prototype : void ff_bfin_idct(DCTELEM *in)
  25. Registers Used : A0, A1, R0-R7, I0-I3, B0, B2, B3, M0-M2, L0-L3, P0-P5, LC0.
  26. Performance :
  27. Code Size : 498 Bytes.
  28. Cycle Count : 417 Cycles
  29. -----------------------------------------------------------
  30. FFMPEG conformance testing results
  31. -----------------------------------------------------------
  32. dct-test: modified with the following
  33. dct_error("BFINidct", 1, ff_bfin_idct, idct, test);
  34. produces the following output
  35. root:/u/ffmpeg/bhead/libavcodec> ./dct-test -i
  36. ffmpeg DCT/IDCT test
  37. 8 15 -2 21 24 17 0 10
  38. 2 -10 -5 -5 -3 7 -14 -3
  39. 2 -13 -10 -19 18 -6 6 -2
  40. 9 4 16 -3 9 12 10 15
  41. 15 -9 -2 10 1 16 0 -15
  42. -15 5 7 3 13 0 13 20
  43. -6 -15 24 9 -18 1 9 -22
  44. -8 25 23 2 -7 0 30 13
  45. IDCT BFINidct: err_inf=1 err2=0.01002344 syserr=0.00150000 maxout=266 blockSumErr=64
  46. IDCT BFINidct: 88.3 kdct/s
  47. */
  48. #include "config_bfin.h"
  49. #ifdef __FDPIC__
  50. .section .l1.data.B,"aw",@progbits
  51. #else
  52. .data
  53. #endif
  54. .align 4;
  55. coefs:
  56. .short 0x5a82; // C4
  57. .short 0x5a82; // C4
  58. .short 0x30FC; //cos(3pi/8) C6
  59. .short 0x7642; //cos(pi/8) C2
  60. .short 0x18F9; //cos(7pi/16)
  61. .short 0x7D8A; //cos(pi/16)
  62. .short 0x471D; //cos(5pi/16)
  63. .short 0x6A6E; //cos(3pi/16)
  64. .short 0x18F9; //cos(7pi/16)
  65. .short 0x7D8A; //cos(pi/16)
  66. #ifdef __FDPIC__
  67. .section .l1.data.A,"aw",@progbits
  68. #endif
  69. vtmp: .space 256
  70. #define TMP0 FP-8
  71. #define TMP1 FP-12
  72. #define TMP2 FP-16
  73. .text
  74. DEFUN(idct,mL1,
  75. (DCTELEM *block)):
  76. /********************** Function Prologue *********************************/
  77. link 16;
  78. [--SP] = (R7:4, P5:3); // Push the registers onto the stack.
  79. B0 = R0; // Pointer to Input matrix
  80. RELOC(R1, P3, coefs); // Pointer to Coefficients
  81. RELOC(R2, P3, vtmp); // Pointer to Temporary matrix
  82. B3 = R1;
  83. B2 = R2;
  84. L3 = 20; // L3 is used for making the coefficient array
  85. // circular.
  86. // MUST BE RESTORED TO ZERO at function exit.
  87. M1 = 16 (X); // All these registers are initialized for
  88. M3 = 8(X); // modifying address offsets.
  89. I0 = B0; // I0 points to Input Element (0, 0).
  90. I2 = B0; // I2 points to Input Element (0, 0).
  91. I2 += M3 || R0.H = W[I0];
  92. // Element 0 is read into R0.H
  93. I1 = I2; // I1 points to input Element (0, 6).
  94. I1 += 4 || R0.L = W[I2++];
  95. // I2 points to input Element (0, 4).
  96. // Element 4 is read into R0.L.
  97. P2 = 8 (X);
  98. P3 = 32 (X);
  99. P4 = -32 (X);
  100. P5 = 98 (X);
  101. R7 = 0x8000(Z);
  102. I3 = B3; // I3 points to Coefficients
  103. P0 = B2; // P0 points to array Element (0, 0) of temp
  104. P1 = B2;
  105. R7 = [I3++] || [TMP2]=R7; // Coefficient C4 is read into R7.H and R7.L.
  106. MNOP;
  107. NOP;
  108. /*
  109. * A1 = Y0 * cos(pi/4)
  110. * A0 = Y0 * cos(pi/4)
  111. * A1 = A1 + Y4 * cos(pi/4)
  112. * A0 = A0 - Y4 * cos(pi/4)
  113. * load:
  114. * R1=(Y2,Y6)
  115. * R7=(C2,C6)
  116. * res:
  117. * R3=Y0, R2=Y4
  118. */
  119. A1=R7.H*R0.H, A0=R7.H*R0.H (IS) || I0+= 4 || R1.L=W[I1++];
  120. R3=(A1+=R7.H*R0.L), R2=(A0-=R7.H*R0.L) (IS) || R1.H=W[I0--] || R7=[I3++];
  121. LSETUP (.0, .1) LC0 = P2; // perform 8 1d idcts
  122. P2 = 112 (X);
  123. P1 = P1 + P2; // P1 points to element (7, 0) of temp buffer.
  124. P2 = -94(X);
  125. .0:
  126. /*
  127. * A1 = Y2 * cos(3pi/8)
  128. * A0 = Y2 * cos(pi/8)
  129. * A1 = A1 - Y6 * cos(pi/8)
  130. * A0 = A0 + Y6 * cos(3pi/8)
  131. * R5 = (Y1,Y7)
  132. * R7 = (C1,C7)
  133. * res:
  134. * R1=Y2, R0=Y6
  135. */
  136. A1=R7.L*R1.H, A0=R7.H*R1.H (IS) || I0+=4 || R5.H=W[I0];
  137. R1=(A1-=R7.H*R1.L), R0=(A0+=R7.L*R1.L) (IS) || R5.L=W[I1--] || R7=[I3++];
  138. /*
  139. * Y0 = Y0 + Y6.
  140. * Y4 = Y4 + Y2.
  141. * Y2 = Y4 - Y2.
  142. * Y6 = Y0 - Y6.
  143. * R3 is saved
  144. * R6.l=Y3
  145. * note: R3: Y0, R2: Y4, R1: Y2, R0: Y6
  146. */
  147. R3=R3+R0, R0=R3-R0;
  148. R2=R2+R1, R1=R2-R1 || [TMP0]=R3 || R6.L=W[I0--];
  149. /*
  150. * Compute the odd portion (1,3,5,7) even is done.
  151. *
  152. * Y1 = C7 * Y1 - C1 * Y7 + C3 * Y5 - C5 * Y3.
  153. * Y7 = C1 * Y1 + C7 * Y7 + C5 * Y5 + C3 * Y3.
  154. * Y5 = C5 * Y1 + C3 * Y7 + C7 * Y5 - C1 * Y3.
  155. * Y3 = C3 * Y1 - C5 * Y7 - C1 * Y5 - C7 * Y3.
  156. */
  157. // R5=(Y1,Y7) R6=(Y5,Y3) // R7=(C1,C7)
  158. A1 =R7.L*R5.H, A0 =R7.H*R5.H (IS) || [TMP1]=R2 || R6.H=W[I2--];
  159. A1-=R7.H*R5.L, A0+=R7.L*R5.L (IS) || I0-=4 || R7=[I3++];
  160. A1+=R7.H*R6.H, A0+=R7.L*R6.H (IS) || I0+=M1; // R7=(C3,C5)
  161. R3 =(A1-=R7.L*R6.L), R2 =(A0+=R7.H*R6.L) (IS);
  162. A1 =R7.L*R5.H, A0 =R7.H*R5.H (IS) || R4=[TMP0];
  163. A1+=R7.H*R5.L, A0-=R7.L*R5.L (IS) || I1+=M1 || R7=[I3++]; // R7=(C1,C7)
  164. A1+=R7.L*R6.H, A0-=R7.H*R6.H (IS);
  165. R7 =(A1-=R7.H*R6.L), R6 =(A0-=R7.L*R6.L) (IS) || I2+=M1;
  166. // R3=Y1, R2=Y7, R7=Y5, R6=Y3
  167. /* Transpose write column. */
  168. R5.H=R4+R2 (RND12); // Y0=Y0+Y7
  169. R5.L=R4-R2 (RND12) || R4 = [TMP1]; // Y7=Y7-Y0
  170. R2.H=R1+R7 (RND12) || W[P0++P3]=R5.H; // Y2=Y2+Y5 st Y0
  171. R2.L=R1-R7 (RND12) || W[P1++P4]=R5.L || R7=[I3++]; // Y5=Y2-Y5 st Y7
  172. R5.H=R0-R3 (RND12) || W[P0++P3]=R2.H || R1.L=W[I1++]; // Y1=Y6-Y1 st Y2
  173. R5.L=R0+R3 (RND12) || W[P1++P4]=R2.L || R0.H=W[I0++]; // Y6=Y6+Y1 st Y5
  174. R3.H=R4-R6 (RND12) || W[P0++P3]=R5.H || R0.L=W[I2++]; // Y3=Y3-Y4 st Y1
  175. R3.L=R4+R6 (RND12) || W[P1++P4]=R5.L || R1.H=W[I0++]; // Y4=Y3+Y4 st Y6
  176. /* pipeline loop start, + drain Y3, Y4 */
  177. A1=R7.H*R0.H, A0=R7.H*R0.H (IS) || W[P0++P2]= R3.H || R1.H = W[I0--];
  178. .1: R3=(A1+=R7.H*R0.L), R2=(A0-=R7.H*R0.L) (IS) || W[P1++P5]= R3.L || R7 = [I3++];
  179. I0 = B2; // I0 points to Input Element (0, 0)
  180. I2 = B2; // I2 points to Input Element (0, 0)
  181. I2 += M3 || R0.H = W[I0];
  182. // Y0 is read in R0.H
  183. I1 = I2; // I1 points to input Element (0, 6)
  184. I1 += 4 || R0.L = W[I2++];
  185. // I2 points to input Element (0, 4)
  186. // Y4 is read in R0.L
  187. P2 = 8 (X);
  188. I3 = B3; // I3 points to Coefficients
  189. P0 = B0; // P0 points to array Element (0, 0) for writing
  190. // output
  191. P1 = B0;
  192. R7 = [I3++]; // R7.H = C4 and R7.L = C4
  193. NOP;
  194. /*
  195. * A1 = Y0 * cos(pi/4)
  196. * A0 = Y0 * cos(pi/4)
  197. * A1 = A1 + Y4 * cos(pi/4)
  198. * A0 = A0 - Y4 * cos(pi/4)
  199. * load:
  200. * R1=(Y2,Y6)
  201. * R7=(C2,C6)
  202. * res:
  203. * R3=Y0, R2=Y4
  204. */
  205. A1=R7.H*R0.H, A0=R7.H*R0.H (IS) || I0+=4 || R1.L=W[I1++];
  206. R3=(A1+=R7.H*R0.L), R2=(A0-=R7.H*R0.L) (IS) || R1.H=W[I0--] || R7=[I3++];
  207. LSETUP (.2, .3) LC0 = P2; // peform 8 1d idcts
  208. P2 = 112 (X);
  209. P1 = P1 + P2;
  210. P2 = -94(X);
  211. .2:
  212. /*
  213. * A1 = Y2 * cos(3pi/8)
  214. * A0 = Y2 * cos(pi/8)
  215. * A1 = A1 - Y6 * cos(pi/8)
  216. * A0 = A0 + Y6 * cos(3pi/8)
  217. * R5 = (Y1,Y7)
  218. * R7 = (C1,C7)
  219. * res:
  220. * R1=Y2, R0=Y6
  221. */
  222. A1=R7.L*R1.H, A0=R7.H*R1.H (IS) || I0+=4 || R5.H=W[I0];
  223. R1=(A1-=R7.H*R1.L), R0=(A0+=R7.L*R1.L) (IS) || R5.L=W[I1--] || R7=[I3++];
  224. /*
  225. * Y0 = Y0 + Y6.
  226. * Y4 = Y4 + Y2.
  227. * Y2 = Y4 - Y2.
  228. * Y6 = Y0 - Y6.
  229. * R3 is saved
  230. * R6.l=Y3
  231. * note: R3: Y0, R2: Y4, R1: Y2, R0: Y6
  232. */
  233. R3=R3+R0, R0=R3-R0;
  234. R2=R2+R1, R1=R2-R1 || [TMP0]=R3 || R6.L=W[I0--];
  235. /*
  236. * Compute the odd portion (1,3,5,7) even is done.
  237. *
  238. * Y1 = C7 * Y1 - C1 * Y7 + C3 * Y5 - C5 * Y3.
  239. * Y7 = C1 * Y1 + C7 * Y7 + C5 * Y5 + C3 * Y3.
  240. * Y5 = C5 * Y1 + C3 * Y7 + C7 * Y5 - C1 * Y3.
  241. * Y3 = C3 * Y1 - C5 * Y7 - C1 * Y5 - C7 * Y3.
  242. */
  243. // R5=(Y1,Y7) R6=(Y5,Y3) // R7=(C1,C7)
  244. A1 =R7.L*R5.H, A0 =R7.H*R5.H (IS) || [TMP1]=R2 || R6.H=W[I2--];
  245. A1-=R7.H*R5.L, A0+=R7.L*R5.L (IS) || I0-=4 || R7=[I3++];
  246. A1+=R7.H*R6.H, A0+=R7.L*R6.H (IS) || I0+=M1; // R7=(C3,C5)
  247. R3 =(A1-=R7.L*R6.L), R2 =(A0+=R7.H*R6.L) (IS);
  248. A1 =R7.L*R5.H, A0 =R7.H*R5.H (IS) || R4=[TMP0];
  249. A1+=R7.H*R5.L, A0-=R7.L*R5.L (IS) || I1+=M1 || R7=[I3++]; // R7=(C1,C7)
  250. A1+=R7.L*R6.H, A0-=R7.H*R6.H (IS);
  251. R7 =(A1-=R7.H*R6.L), R6 =(A0-=R7.L*R6.L) (IS) || I2+=M1;
  252. // R3=Y1, R2=Y7, R7=Y5, R6=Y3
  253. /* Transpose write column. */
  254. R5.H=R4+R2 (RND20); // Y0=Y0+Y7
  255. R5.L=R4-R2 (RND20) || R4 = [TMP1]; // Y7=Y7-Y0
  256. R2.H=R1+R7 (RND20) || W[P0++P3]=R5.H; // Y2=Y2+Y5 st Y0
  257. R2.L=R1-R7 (RND20) || W[P1++P4]=R5.L || R7=[I3++]; // Y5=Y2-Y5 st Y7
  258. R5.H=R0-R3 (RND20) || W[P0++P3]=R2.H || R1.L=W[I1++]; // Y1=Y6-Y1 st Y2
  259. R5.L=R0+R3 (RND20) || W[P1++P4]=R2.L || R0.H=W[I0++]; // Y6=Y6+Y1 st Y5
  260. R3.H=R4-R6 (RND20) || W[P0++P3]=R5.H || R0.L=W[I2++]; // Y3=Y3-Y4 st Y1
  261. R3.L=R4+R6 (RND20) || W[P1++P4]=R5.L || R1.H=W[I0++]; // Y4=Y3+Y4 st Y6
  262. /* pipeline loop start, + drain Y3, Y4 */
  263. A1=R7.H*R0.H, A0=R7.H*R0.H (IS) || W[P0++P2]= R3.H || R1.H = W[I0--];
  264. .3: R3=(A1+=R7.H*R0.L), R2=(A0-=R7.H*R0.L) (IS) || W[P1++P5]= R3.L || R7 = [I3++];
  265. L3 = 0;
  266. (R7:4,P5:3)=[SP++];
  267. unlink;
  268. RTS;
  269. DEFUN_END(idct)