Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (F)
Guardian Procedure Calls Reference Manual—522629-013
5-259
FP_IEEE_ENV_CLEAR_ Procedure
Examples
C Example
#include <kfpieee.h>
void TotalEnvExample(void) {
fp_ieee_env previousEnv;
previousEnv = FP_IEEE_ENV_CLEAR_(); /*restore initial env*/
Do_Computation();
FP_IEEE_ENV_RESUME_( previousEnv ) /*restore previous env*/
}
TAL Example
proc DOCOMPUTATION; external;
?nolist
?source $system.system.kfpieee
?list
proc TotalEnvExample;
begin
int(32) previousEnv;
previousEnv := FP_IEEE_ENV_CLEAR_; ! revert to standard env
call DOCOMPUTATION; ! do IEEE floating-point computation
call FP_IEEE_ENV_RESUME_( previousEnv ) ! restore saved env
end;