Symaptic: os/kernelhwsrv/kerneltest/e32test/math/t

     1 // Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 // All rights reserved.

     3 // This component and the accompanying materials are made available

     4 // under the terms of the License "Eclipse Public License v1.0"

     5 // which accompanies this distribution, and is available

     6 // at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 //

     8 // Initial Contributors:

     9 // Nokia Corporation - initial contribution.

    10 //

    11 // Contributors:

    12 //

    13 // Description:

    14 // e32test\math\t_gcc32.cpp

    15 // From UP_GCC.CPP, for emulating UP_GCC in T_R32.CPP tests

    16 //

    17 //

    20 #include <e32def.h>

    21 #include <e32def_private.h>

    23 #include "t_math.h"

    25 LOCAL_C void MathException(TInt aErrType)

    26 //

    27 // Decides on type of maths exception according to error and raises exception.

    28 // Added by AnnW, December 1996

    29 //

    30 	{

    32 	TExcType excType=EExcGeneral;

    34 	switch (aErrType)

    35 		{

    36 	case KErrArgument:				// error due to invalid operation

    37 		excType=EExcFloatInvalidOperation;

    38 		break;

    39 	case KErrDivideByZero:

    40 		excType=EExcFloatDivideByZero;

    41 		break;

    42 	case KErrOverflow:

    43 		excType=EExcFloatOverflow;

    44 		break;

    45 	case KErrUnderflow:

    46 		excType=EExcFloatUnderflow;

    47 		break;

    48 /*

    49 	// also errors due to inexact result

    50 	case KErrInexact:		// const not defined yet

    51 		excType=EExcFloatInexact;

    52 		break;

    53 */

    55 	default:

    56 		// Unknown error

    57 		User::Panic(_L("USER-Math"),EMathUnknownError);

    58 		}

    60 //	RThread thread;

    61 	User::RaiseException(excType);

    62 //	thread.RaiseException(excType);

    63 	}

    65 GLDEF_C TReal32 __addsf3(TReal32 a1,TReal32 a2)

    66 //

    67 // Add two floats

    68 //

    69     {

    71     TRealX x1=a1;

    72     TRealX x2=a2;

    74 	TRealX res;

    75 	TReal32 trg;

    76 	x1.Add(res,x2);

    77 	TInt ret=res.GetTReal(trg);

    78 	if (ret!=KErrNone)

    79 		MathException(ret);

    81 	return(trg);

    82     }

    84 GLDEF_C TReal32 __subsf3(TReal32 a1,TReal32 a2)

    85 //

    86 // Subtract two floats

    87 //

    88     {

    90     TRealX x1=a1;

    91     TRealX x2=a2;

    93 	TRealX res;

    94 	TReal32 trg;

    95 	x1.Sub(res,x2);

    96 	TInt ret=res.GetTReal(trg);

    97 	if (ret!=KErrNone)

    98 		MathException(ret);

   100 	return(trg);

   101 	}

   103 GLDEF_C TReal32 __mulsf3(TReal32 a1,TReal32 a2)

   104 //

   105 // Multiply two floats

   106 //

   107     {

   109     TRealX x1=a1;

   110     TRealX x2=a2;

   112 	TRealX res;

   113 	TReal32 trg;

   114 	TInt ret=x1.Mult(res,x2);

   115 	if (ret==KErrNone)

   116 		ret=res.GetTReal(trg);

   117 	if (ret!=KErrNone)

   118 		MathException(ret);

   120 	return((TReal32)res);

   121     }

   123 GLDEF_C TReal32 __divsf3(TReal32 a1,TReal32 a2)

   124 //

   125 // Divide two floats

   126 //

   127     {

   129     TRealX x1=a1;

   130     TRealX x2=a2;

   132 	TRealX res;

   133 	TReal32 trg;

   134 	TInt ret=x1.Div(res,x2);

   135 	if (ret==KErrNone)

   136 		ret=res.GetTReal(trg);

   137 	if (ret!=KErrNone)

   138 		MathException(ret);

   140 	return((TReal32)res);

   141     }

   143 GLDEF_C TReal32 __truncdfsf2(TReal64 a1)

   144 //

   145 // Convert a double to a float

   146 // Raises an exception if conversion results in an error

   147 //

   148     {

   150 	TRealX x1=a1;

   152 	TInt ret;

   153 	TReal32 trg;

   154 	if ((ret=x1.GetTReal(trg))!=KErrNone)

   155 		MathException(ret);

   157     return(trg);

   158     }

author	sl@SLION-WIN7.fritz.box
	Fri, 15 Jun 2012 03:10:57 +0200
changeset 0	bde4ae8d615e
permissions	-rw-r--r--