// Copyright (c) 1995-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
// e32\euser\us_gcc.cpp
// 
//

#include "us_std.h"
#include <e32math.h>

extern "C" {

EXPORT_C TInt64 __fixsfdi(TReal32 a1)
//
// Convert float to long long
//
	{
	const TRealX f(a1);
	const TInt64 ret = f;
	return ret;
	}

}	// end of extern "C" declaration

#ifndef __REALS_MACHINE_CODED__
LOCAL_C void MathException(TInt aErrType) 
//
// Decides on type of maths exception according to error and raises exception.
// Added by AnnW, December 1996
//
	{

	TExcType excType=EExcGeneral;

	switch (aErrType)
		{
	case KErrArgument:				// error due to invalid operation
		excType=EExcFloatInvalidOperation;
		break;
	case KErrDivideByZero:
		excType=EExcFloatDivideByZero;
		break;
	case KErrOverflow:
		excType=EExcFloatOverflow;
		break;
	case KErrUnderflow:
		excType=EExcFloatUnderflow;
		break;
/*
	// also errors due to inexact result
	case KErrInexact:		// const not defined yet
		excType=EExcFloatInexact;
		break;
*/
	
	default:
		// Unknown error
		Panic(EMathUnknownError);
		}

	User::RaiseException(excType);
	}

EXPORT_C TReal32 __addsf3(TReal32 a1,TReal32 a2)
//
// Add two floats
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal32 trg;
	x1.Add(res,x2);	// need not check error because no underflow and others will not be lost in conversion
	TInt ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return(trg);
    }

EXPORT_C TReal64 __adddf3(TReal64 a1,TReal64 a2)
//
// Add two doubles
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal64 trg;
	x1.Add(res,x2);	// need not check error because no underflow and others will not be lost in conversion
	TInt ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return(trg);
    }

EXPORT_C TReal32 __subsf3(TReal32 a1,TReal32 a2)
//
// Subtract two floats
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal32 trg;
	x1.Sub(res,x2);	// need not check error because no underflow and others will not be lost in conversion
	TInt ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return(trg);
	}

EXPORT_C TReal64 __subdf3(TReal64 a1,TReal64 a2)
//
// Subtract two doubles
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal64 trg;
	x1.Sub(res,x2);	// need not check error because no underflow and others will not be lost in conversion
	TInt ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return(trg);    
    }

EXPORT_C TInt __cmpsf3(TReal32 a1,TReal32 a2)
//
// Compare two floats
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    if (x1<x2)
        return(-1);
    if (x1>x2)
        return(1);
    return(0);
    }

EXPORT_C TInt __cmpdf3(TReal64 a1,TReal64 a2)
//
// Compare two doubles
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    if (x1<x2)
        return(-1);
    if (x1>x2)
        return(1);
    return(0);
    }

EXPORT_C TInt __eqsf2(TReal32 a1,TReal32 a2)
//
// Compare if two floats are equal
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return (x1==x2 ? 0 : 1);
    }

EXPORT_C TInt __eqdf2(TReal64 a1,TReal64 a2)
//
// Compare if two doubles are equal
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return (x1==x2 ? 0 : 1);
    }

EXPORT_C TInt __nesf2(TReal32 a1,TReal32 a2)
//
// Compare if two floats are not equal
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1!=x2 ? 1 : 0);
    }

EXPORT_C TInt __nedf2(TReal64 a1,TReal64 a2)
//
// Compare if two doubles are not equal
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1!=x2 ? 1 : 0);
    }

EXPORT_C TInt __gtsf2(TReal32 a1,TReal32 a2)
//
// Compare if one float is greater than another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1>x2 ? +1 : -1);
    }

EXPORT_C TInt __gtdf2(TReal64 a1,TReal64 a2)
//
// Compare if one double is greater than another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1>x2 ? +1 : -1);
    }

EXPORT_C TInt __gesf2(TReal32 a1,TReal32 a2)
//
// Compare if one float is greater than or equal to another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1>=x2 ? 1 : -1);
    }

EXPORT_C TInt __gedf2(TReal64 a1,TReal64 a2)
//
// Compare if one double is greater than or equal to another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1>=x2 ? 1 : -1);
    }

EXPORT_C TInt __ltsf2(TReal32 a1,TReal32 a2)
//
// Compare if one float is less than another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1<x2 ? -1 : +1);
    }

EXPORT_C TInt __ltdf2(TReal64 a1,TReal64 a2)
//
// Compare if one double is less than another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1<x2 ? -1 : +1);
    }

EXPORT_C TInt __lesf2(TReal32 a1,TReal32 a2)
//
// Compare if one float is less than or equal to another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1<=x2 ? -1 : +1);
    }

EXPORT_C TInt __ledf2(TReal64 a1,TReal64 a2)
//
// Compare if one double is less than or equal to another
//
    {

    TRealX x1=a1;
    TRealX x2=a2;
    return(x1<=x2 ? -1 : +1);
    }

EXPORT_C TReal32 __mulsf3(TReal32 a1,TReal32 a2)
//
// Multiply two floats
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal32 trg;
	TInt ret=x1.Mult(res,x2);
	if (ret==KErrNone)		// must check this because if underflow, error is lost in conversion
		ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);
	
	return((TReal32)res);
    }

EXPORT_C TReal64 __muldf3(TReal64 a1,TReal64 a2)
//
// Multiply two doubles
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal64 trg;
	TInt ret=x1.Mult(res,x2);
	if (ret==KErrNone)		// must check this because if underflow, error is lost in conversion
		ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return((TReal64)res);
    }

EXPORT_C TReal32 __divsf3(TReal32 a1,TReal32 a2)
//
// Divide two floats
//
    {

    TRealX x1=a1;
    TRealX x2=a2;

	TRealX res;
	TReal32 trg;
	TInt ret=x1.Div(res,x2);
	if (ret==KErrNone)		// must check this because if underflow, error is lost in conversion
		ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);

	return((TReal32)res);
    }

EXPORT_C TReal64 __divdf3(TReal64 a1,TReal64 a2)
	//
	// Divide two doubles
	//
	{

	TRealX x1=a1;
	TRealX x2=a2;

	TRealX res;
	TReal64 trg;
	TInt ret=x1.Div(res,x2);
	if (ret==KErrNone)		// must check this because if underflow, error is lost in conversion
		ret=res.GetTReal(trg);
	if (ret!=KErrNone)
		MathException(ret);
	
	return((TReal64)res);
	}

EXPORT_C TReal32 __negsf2(TReal32 a1)
//
// Negate a float
//
    {

    TRealX x1=a1;
    return((TReal32)-x1);
    }

EXPORT_C TReal64 __negdf2(TReal64 a1)
//
// Negate a double
//
    {

    TRealX x1=a1;
    return((TReal64)-x1);
    }

EXPORT_C TReal32 __floatsisf(TInt a1)
//
// Convert int to float
//
    {

    return((TReal32)TRealX(a1));
    }

EXPORT_C TReal64 __floatsidf(TInt a1)
//
// Convert int to double
//
    {

    return((TReal64)TRealX(a1));
    }

EXPORT_C TInt __fixsfsi(TReal32 a1)
//
// Convert float to int
//
    {

    return((TInt)TRealX(a1));
    }

EXPORT_C TInt __fixdfsi(TReal64 a1)
//
// Convert double to int
//
    {

    return((TInt)TRealX(a1));
    }

EXPORT_C TReal64 __extendsfdf2(TReal32 a1)
//
// Convert a float to a double
//
    {

    return((TReal64)TRealX(a1));
    }

EXPORT_C TReal32 __truncdfsf2(TReal64 a1)
//
// Convert a double to a float
// Raises an exception if conversion results in an error
//
    {

	TRealX x1=a1;

	TInt ret;
	TReal32 trg;
	if ((ret=x1.GetTReal(trg))!=KErrNone)
		MathException(ret);

    return(trg);
    }
#endif //__REALS_MACHINE_CODED__