compilers/pcc/pcc-libs-1.0.0/libpcc/_ftol.asm

   1 ; $Id: _ftol.asm,v 1.1 2009/03/15 00:17:16 gmcgarry Exp $
   2 ;
   3 ; Implementation of _ftol(), _ftol2() for win32 and masm.
   4 ;
   5                 .386
   6 _TEXT           segment use32 para public 'CODE'
   7                 public  __ftol2
   8 __ftol2         proc    near
   9                 assume  cs:_TEXT
  10                 fnstcw  word ptr [esp-2]
  11                 mov     ax, word ptr [esp-2]
  12                 or      ax, 0C00h
  13                 mov     word ptr [esp-4], ax
  14                 fldcw   word ptr [esp-4]
  15                 fistp   qword ptr [esp-12]
  16                 fldcw   word ptr [esp-2]
  17                 mov     eax, dword ptr [esp-12]
  18                 mov     edx, dword ptr [esp-8]
  19                 ret
  20 __ftol2         endp
  21
  22 _TEXT           ends
  23                 end
  24
  25                 alias   __ftol = __ftol2
  26                 public  __ftol