1*0d34bfa2Suebayasi/* $NetBSD: fpgetmask.S,v 1.5 2014/05/23 02:34:19 uebayasi Exp $ */ 2a3a46419Sperry 380bba6a1Sjtc/* 480bba6a1Sjtc * Written by J.T. Conklin, Apr 4, 1995 580bba6a1Sjtc * Public domain. 680bba6a1Sjtc */ 780bba6a1Sjtc 880bba6a1Sjtc#include <machine/asm.h> 980bba6a1Sjtc 105d3e8294Sthorpej#ifdef WEAK_ALIAS 115d3e8294SthorpejWEAK_ALIAS(fpgetmask, _fpgetmask) 125d3e8294SthorpejENTRY(_fpgetmask) 135d3e8294Sthorpej#else 1480bba6a1SjtcENTRY(fpgetmask) 155d3e8294Sthorpej#endif 1680bba6a1Sjtc subl $4,%esp 1780bba6a1Sjtc fnstcw (%esp) 18ddbc579aSmycroft movl (%esp),%eax 1980bba6a1Sjtc notl %eax 2080bba6a1Sjtc andl $63,%eax 2180bba6a1Sjtc addl $4,%esp 2280bba6a1Sjtc ret 23*0d34bfa2Suebayasi#ifdef WEAK_ALIAS 24*0d34bfa2SuebayasiEND(_fpgetmask) 25*0d34bfa2Suebayasi#else 26*0d34bfa2SuebayasiEND(fpgetmask) 27*0d34bfa2Suebayasi#endif 28