2005-09-23 01:59:42 +00:00
|
|
|
/*
|
|
|
|
|
===========================================================================
|
|
|
|
|
Copyright (C) 1999-2005 Id Software, Inc.
|
|
|
|
|
|
|
|
|
|
This file is part of Quake III Arena source code.
|
|
|
|
|
|
|
|
|
|
Quake III Arena source code is free software; you can redistribute it
|
|
|
|
|
and/or modify it under the terms of the GNU General Public License as
|
|
|
|
|
published by the Free Software Foundation; either version 2 of the License,
|
|
|
|
|
or (at your option) any later version.
|
|
|
|
|
|
|
|
|
|
Quake III Arena source code is distributed in the hope that it will be
|
|
|
|
|
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with Foobar; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
|
|
|
===========================================================================
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// qftol -- fast floating point to long conversion.
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
// 23/09/05 Ported to gas by intel2gas, best supporting actor Tim Angus
|
|
|
|
|
// <tim@ngus.net>
|
|
|
|
|
|
|
|
|
|
#include "qasm.h"
|
|
|
|
|
|
2006-01-04 03:14:01 +00:00
|
|
|
#if id386
|
2005-09-23 01:59:42 +00:00
|
|
|
|
|
|
|
|
.data
|
|
|
|
|
|
|
|
|
|
temp: .float 0.0
|
|
|
|
|
fpucw: .long 0
|
|
|
|
|
|
|
|
|
|
// Precision Control Field , 2 bits / 0x0300
|
|
|
|
|
// PC24 0x0000 Single precision (24 bits).
|
|
|
|
|
// PC53 0x0200 Double precision (53 bits).
|
|
|
|
|
// PC64 0x0300 Extended precision (64 bits).
|
|
|
|
|
|
|
|
|
|
// Rounding Control Field, 2 bits / 0x0C00
|
|
|
|
|
// RCN 0x0000 Rounding to nearest (even).
|
|
|
|
|
// RCD 0x0400 Rounding down (directed, minus).
|
|
|
|
|
// RCU 0x0800 Rounding up (directed plus).
|
|
|
|
|
// RC0 0x0C00 Rounding towards zero (chop mode).
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// rounding towards nearest (even)
|
|
|
|
|
cw027F: .long 0x027F
|
|
|
|
|
cw037F: .long 0x037F
|
|
|
|
|
|
|
|
|
|
// rounding towards zero (chop mode)
|
|
|
|
|
cw0E7F: .long 0x0E7F
|
|
|
|
|
cw0F7F: .long 0x0F7F
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.text
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// int qftol( void ) - default control word
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(qftol)
|
|
|
|
|
|
|
|
|
|
C(qftol):
|
|
|
|
|
fistpl temp
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// int qftol027F( void ) - DirectX FPU
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(qftol027F)
|
|
|
|
|
|
|
|
|
|
C(qftol027F):
|
|
|
|
|
fnstcw fpucw
|
|
|
|
|
fldcw cw027F
|
|
|
|
|
fistpl temp
|
|
|
|
|
fldcw fpucw
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// int qftol037F( void ) - Linux FPU
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(qftol037F)
|
|
|
|
|
|
|
|
|
|
C(qftol037F):
|
|
|
|
|
fnstcw fpucw
|
|
|
|
|
fldcw cw037F
|
|
|
|
|
fistpl temp
|
|
|
|
|
fldcw fpucw
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// int qftol0F7F( void ) - ANSI
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(qftol0F7F)
|
|
|
|
|
|
|
|
|
|
C(qftol0F7F):
|
|
|
|
|
fnstcw fpucw
|
|
|
|
|
fldcw cw0F7F
|
|
|
|
|
fistpl temp
|
|
|
|
|
fldcw fpucw
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// int qftol0E7F( void )
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(qftol0E7F)
|
|
|
|
|
|
|
|
|
|
C(qftol0E7F):
|
|
|
|
|
fnstcw fpucw
|
|
|
|
|
fldcw cw0E7F
|
|
|
|
|
fistpl temp
|
|
|
|
|
fldcw fpucw
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// long Q_ftol( float q )
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(Q_ftol)
|
|
|
|
|
|
|
|
|
|
C(Q_ftol):
|
|
|
|
|
flds 4(%esp)
|
|
|
|
|
fistpl temp
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//
|
|
|
|
|
// long qftol0F7F( float q ) - Linux FPU
|
|
|
|
|
//
|
|
|
|
|
|
|
|
|
|
.global C(Q_ftol0F7F)
|
|
|
|
|
|
|
|
|
|
C(Q_ftol0F7F):
|
|
|
|
|
fnstcw fpucw
|
|
|
|
|
flds 4(%esp)
|
|
|
|
|
fldcw cw0F7F
|
|
|
|
|
fistpl temp
|
|
|
|
|
fldcw fpucw
|
|
|
|
|
movl temp,%eax
|
|
|
|
|
ret
|
|
|
|
|
#endif
|
