Copyright (C) 1994, Digital Equipment Corp. MODULE------------------------------------------------- thread initialization ---; IMPORT RTMisc; PROCEDURE FloatMode SetRounding (<*UNUSED*> md: RoundingMode) = BEGIN Die ("FloatMode.SetRounding not implemented"); END SetRounding; PROCEDUREGetRounding (): RoundingMode = BEGIN RETURN RoundingMode.NearestElseEven; (*** Die ("FloatMode.GetRounding not implemented"); ***) (*** <*ASSERT FALSE*> ***) END GetRounding; PROCEDUREGetFlags (): SET OF Flag = BEGIN Die ("FloatMode.GetFlags not implemented"); <*ASSERT FALSE*> END GetFlags; PROCEDURESetFlags (<*UNUSED*> s: SET OF Flag): SET OF Flag = BEGIN Die ("FloatMode.SetFlags not implemented"); <*ASSERT FALSE*> END SetFlags; PROCEDUREClearFlag (<*UNUSED*> f: Flag) = BEGIN Die ("FloatMode.ClearFlag not implemented"); END ClearFlag; PROCEDURESetBehavior (<*UNUSED*> f: Flag; <*UNUSED*> b: Behavior) = BEGIN Die ("FloatMode.SetBehavior not implemented"); END SetBehavior; PROCEDUREGetBehavior (<*UNUSED*> f: Flag): Behavior = BEGIN Die ("FloatMode.GetBehavior not implemented"); <*ASSERT FALSE*> END GetBehavior;
PROCEDURE----------------------------------------- floating-point fault handling ---InitThread (<*UNUSED*> VAR state: ThreadState) = BEGIN END InitThread;
PROCEDUREDie (msg: TEXT) = BEGIN RTMisc.FatalError (NIL, 0, msg); <*ASSERT FALSE*> END Die; BEGIN END FloatMode.