From d2e8b131a46cb875cc200868cf06fd5a7d7c7b08 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Mon, 8 Mar 2010 17:06:15 +0000 Subject: set only the exception mask as necessary. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2185 b956fd51-792f-4845-bead-9b4dfca2ff2c --- test/TestPortAudioDevice.pas | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'test') diff --git a/test/TestPortAudioDevice.pas b/test/TestPortAudioDevice.pas index ff5b70bc..1308858f 100644 --- a/test/TestPortAudioDevice.pas +++ b/test/TestPortAudioDevice.pas @@ -365,8 +365,7 @@ begin writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', Pa_GetErrorText(PaError)); {$IF Defined(DARWIN)} // floating point exceptions are raised. Therefore, set the exception mask. - SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, - exOverflow, exUnderflow, exPrecision]); + SetExceptionMask([exZeroDivide, exPrecision]); {$IFEND} for j := low(standardSampleRates) to high(standardSampleRates) do begin -- cgit v1.2.3