extern INT16 lastfp[];
extern INT16 lastfp[MAXCLIENTS];
CheckFloat( cntxtPtr, strmPtr )pexContext *cntxtPtr;checkStdHeader *strmPtr;{/* HACK ALERT ON */extern INT16 lastfp[];/* HACK ALERT OFF */    pexEnumTypeIndex fp;    if (cntxtPtr->client->swapped) {	cntxtPtr->pexRequest	    =  cPEXRequest;	cntxtPtr->pexSwapRequestOC  =  cPEXOutputCmd; 	cntxtPtr->pexSwapReply	    =  uPEXReply;	cntxtPtr->pexSwapReplyOC    =  uPEXOutputCmd;	SWAPSHORTC(&(strmPtr->fpFormat), &fp);	if ( fp == SERVER_NATIVE_FP ) {	    cntxtPtr->swap->ConvertFLOAT =  (ConvFunction)SwapFLOAT;	} else {	    if (fp == PEXDEC_F_Floating)		cntxtPtr->swap->ConvertFLOAT = (ConvFunction)SwapVaxToIEEE;	    else if (fp == PEXIeee_754_32)		cntxtPtr->swap->ConvertFLOAT = (ConvFunction)SwapIEEEToVax;	/* we don't do the other kinds yet */	    else PEX_ERR_EXIT(PEXFloatingPointFormatError,fp,cntxtPtr);	}    } else {	if ( (fp = strmPtr->fpFormat) == SERVER_NATIVE_FP ) {	    cntxtPtr->pexRequest	=  PEXRequest;	    cntxtPtr->pexSwapRequestOC	=  0;	    cntxtPtr->pexSwapReply	=  0;	    cntxtPtr->pexSwapReplyOC	=  0;	    cntxtPtr->swap->ConvertFLOAT=  0;	} else {	    cntxtPtr->pexRequest	=  cPEXRequest;	    cntxtPtr->pexSwapRequestOC	=  cPEXOutputCmd; 	    cntxtPtr->pexSwapReply	=  uPEXReply;	    cntxtPtr->pexSwapReplyOC	=  uPEXOutputCmd;	    if (fp == PEXDEC_F_Floating)		cntxtPtr->swap->ConvertFLOAT = (ConvFunction)ConvertVaxToIEEE;	    else if (fp == PEXIeee_754_32)		cntxtPtr->swap->ConvertFLOAT = (ConvFunction)ConvertIEEEToVax;	/* we don't do the other kinds yet */	    else PEX_ERR_EXIT(PEXFloatingPointFormatError,fp,cntxtPtr);	}    };    /* HACK ALERT ON */    /* set the floating point format for use by HackFloat */    lastfp[cntxtPtr->client->index] = fp;    /* HACK ALERT OFF */    return(Success);}