floorl.s raw

   1  .global floorl
   2  .type floorl,@function
   3  floorl:
   4  	fldt 8(%esp)
   5  1:	mov $0x7,%al
   6  1:	fstcw 8(%esp)
   7  	mov 9(%esp),%ah
   8  	mov %al,9(%esp)
   9  	fldcw 8(%esp)
  10  	frndint
  11  	mov %ah,9(%esp)
  12  	fldcw 8(%esp)
  13  	ret
  14  
  15  .global ceill
  16  .type ceill,@function
  17  ceill:
  18  	fldt 8(%esp)
  19  	mov $0xb,%al
  20  	jmp 1b
  21  
  22  .global truncl
  23  .type truncl,@function
  24  truncl:
  25  	fldt 8(%esp)
  26  	mov $0xf,%al
  27  	jmp 1b
  28