fpceil32.s
上传用户:nvosite88
上传日期:2007-01-17
资源大小:4983k
文件大小:2k
源码类别:

VxWorks

开发平台:

C/C++

  1. /* fpceil32.s - VxWorks conversion from Microtek tools to Sun native */
  2. /* Copyright 1984-1992 Wind River Systems, Inc. */
  3. /*
  4. modification history
  5. --------------------
  6. 01b,10nov92,jwt  added temporary (until USS patch) fix for ceil(+0.0) = 1.0.
  7. 01a,06aug92,jwt  converted.
  8. */
  9. /*
  10. ! ! ! ! !
  11. ! SPARClite Floating Point Library
  12. !
  13. ! Copyright (C) 1992 By
  14. ! United States Software Corporation
  15. ! 14215 N.W. Science Park Drive
  16. ! Portland, Oregon 97229
  17. !
  18. ! This software is furnished under a license and may be used
  19. ! and copied only in accordance with the terms of such license
  20. ! and with the inclusion of the above copyright notice.
  21. ! This software or any other copies thereof may not be provided
  22. ! or otherwise made available to any other person.  No title to
  23. ! and ownership of the software is hereby transferred.
  24. !
  25. ! The information in this software is subject to change without 
  26. ! notice and should not be construed as a commitment by United
  27. ! States Software Corporation.
  28. !
  29. ! First Release: V1.02 March 26 1992
  30. ! ! ! ! !
  31. .macro scan,p1,p2,p3
  32. .word 0x81602000 | (&p3<<25) | (&p1<<14) | p2
  33. .endm
  34. .macro umul,p1,p2,p3
  35. .word 0x80500000 | (&p3<<25) | (&p1<<14) | &p2
  36. .endm
  37. .macro divscc,p1,p2,p3
  38. .word 0x80e80000 | (&p3<<25) | (&p1<<14) | &p2
  39. .endm
  40. */
  41. #include "arch/sparc/ussSun4.h"
  42. .text
  43. .align 4
  44. .global _fpceil
  45. _fpceil:
  46. .global _ceilf
  47. _ceilf:
  48. save %sp,-96,%sp
  49. /* Test for positive zero */
  50. set 0xFF800000,%l1 /* sign (31) and exponent (30-23) */
  51. andcc %l1,%i0,%l1
  52. bne ceilNonZero
  53. nop
  54. clr %i0 /* return value */
  55. ret
  56. restore
  57. ceilNonZero:
  58. sethi   %hi(0x80000000),%i4
  59. and     %i4,%i0,%i1
  60. sll     %i0,1,%i3
  61. srl     %i3,24,%i3
  62. subcc   %i3,0xff,%g0
  63. be      Aspec    
  64. NOP
  65. or      %g0,0x96,%i4
  66. sub     %i4,%i3,%i3
  67. subcc   %i3,0,%i3
  68. ble     Aret           
  69. subcc   %i3,0x18,%g0
  70. bcs     i1             
  71. subcc   %i1,0,%i1
  72. bne     Azer     
  73. NOP
  74. ba,a    Aone     
  75. i1: subcc   %i1,0,%i1
  76. be,a i2                
  77. sub     %g0,%i0,%i0
  78. i2: or      %g0,1,%i2
  79. sll     %i2,%i3,%i2
  80. sub     %g0,%i2,%i2
  81. and     %i0,%i2,%i0
  82. subcc   %i1,0,%i1
  83. be,a Aret              
  84. sub     %g0,%i0,%i0
  85. Aret:
  86. A999: jmpl %i7+8,%g0
  87. restore %g0,0,%g0
  88. Aspec: sll     %i0,9,%i4
  89. subcc   %i4,0,%i4
  90. bne     Anan     
  91. NOP
  92. ba,a    Aret     
  93. Aone: ba      A999     
  94. sethi   %hi(0x3f800000),%i0
  95. Azer: ba      A999     
  96. or      %g0,%i1,%i0
  97. Anan: ba      A999     
  98. sethi   %hi(0xffc00000),%i0
  99. ! .end