os/ossrv/genericopenlibs/liboil/src/math/math.c
author sl
Tue, 10 Jun 2014 14:32:02 +0200
changeset 1 260cb5ec6c19
permissions -rw-r--r--
Update contrib.
sl@0
     1
/*
sl@0
     2
 * LIBOIL - Library of Optimized Inner Loops
sl@0
     3
 * Copyright (c) 2005 David A. Schleef <ds@schleef.org>
sl@0
     4
 * All rights reserved.
sl@0
     5
 *
sl@0
     6
 * Redistribution and use in source and binary forms, with or without
sl@0
     7
 * modification, are permitted provided that the following conditions
sl@0
     8
 * are met:
sl@0
     9
 * 1. Redistributions of source code must retain the above copyright
sl@0
    10
 *    notice, this list of conditions and the following disclaimer.
sl@0
    11
 * 2. Redistributions in binary form must reproduce the above copyright
sl@0
    12
 *    notice, this list of conditions and the following disclaimer in the
sl@0
    13
 *    documentation and/or other materials provided with the distribution.
sl@0
    14
 * 
sl@0
    15
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
sl@0
    16
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
sl@0
    17
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
sl@0
    18
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
sl@0
    19
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
sl@0
    20
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
sl@0
    21
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
sl@0
    22
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
sl@0
    23
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
sl@0
    24
 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
sl@0
    25
 * POSSIBILITY OF SUCH DAMAGE.
sl@0
    26
 */
sl@0
    27
//Portions Copyright (c)  2008-2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 
sl@0
    28
sl@0
    29
#ifdef HAVE_CONFIG_H
sl@0
    30
#include "config.h"
sl@0
    31
#endif
sl@0
    32
sl@0
    33
#include <math.h>
sl@0
    34
sl@0
    35
#include <liboil/liboil.h>
sl@0
    36
#include <liboil/liboilfunction.h>
sl@0
    37
#include <liboil/liboilclasses.h>
sl@0
    38
sl@0
    39
sl@0
    40
#if 0
sl@0
    41
static void
sl@0
    42
add_f32_unroll4 (float *dest, float *src1, float *src2, int n)
sl@0
    43
{
sl@0
    44
  int i;
sl@0
    45
sl@0
    46
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
    47
    dest[i+0] = src1[i+0] + src2[i+0];
sl@0
    48
    dest[i+1] = src1[i+1] + src2[i+1];
sl@0
    49
    dest[i+2] = src1[i+2] + src2[i+2];
sl@0
    50
    dest[i+3] = src1[i+3] + src2[i+3];
sl@0
    51
  }
sl@0
    52
  for(;i<n;i++){
sl@0
    53
    dest[i] = src1[i] + src2[i];
sl@0
    54
  }
sl@0
    55
}
sl@0
    56
OIL_DEFINE_IMPL (add_f32_unroll4, add_f32);
sl@0
    57
#endif
sl@0
    58
sl@0
    59
#if 0
sl@0
    60
static void
sl@0
    61
add_f32_unroll4b (float *dest, float *src1, float *src2, int n)
sl@0
    62
{
sl@0
    63
  int i;
sl@0
    64
sl@0
    65
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
    66
    *dest++ = *src1++ + *src2++;
sl@0
    67
    *dest++ = *src1++ + *src2++;
sl@0
    68
    *dest++ = *src1++ + *src2++;
sl@0
    69
    *dest++ = *src1++ + *src2++;
sl@0
    70
  }
sl@0
    71
  for(;i<n;i++){
sl@0
    72
    *dest++ = *src1++ + *src2++;
sl@0
    73
  }
sl@0
    74
}
sl@0
    75
OIL_DEFINE_IMPL (add_f32_unroll4b, add_f32);
sl@0
    76
#endif
sl@0
    77
sl@0
    78
sl@0
    79
#if 0
sl@0
    80
static void
sl@0
    81
multiply_f32_unroll4 (float *dest, float *src1, float *src2, int n)
sl@0
    82
{
sl@0
    83
  int i;
sl@0
    84
sl@0
    85
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
    86
    dest[i+0] = src1[i+0] * src2[i+0];
sl@0
    87
    dest[i+1] = src1[i+1] * src2[i+1];
sl@0
    88
    dest[i+2] = src1[i+2] * src2[i+2];
sl@0
    89
    dest[i+3] = src1[i+3] * src2[i+3];
sl@0
    90
  }
sl@0
    91
  for(;i<n;i++){
sl@0
    92
    dest[i] = src1[i] * src2[i];
sl@0
    93
  }
sl@0
    94
}
sl@0
    95
OIL_DEFINE_IMPL (multiply_f32_unroll4, multiply_f32);
sl@0
    96
#endif
sl@0
    97
sl@0
    98
static void
sl@0
    99
scalaradd_f32_ns_unroll4 (float *dest, float *src1, float *src2, int n)
sl@0
   100
{
sl@0
   101
  int i;
sl@0
   102
sl@0
   103
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
   104
    dest[i+0] = src1[i+0] + src2[0];
sl@0
   105
    dest[i+1] = src1[i+1] + src2[0];
sl@0
   106
    dest[i+2] = src1[i+2] + src2[0];
sl@0
   107
    dest[i+3] = src1[i+3] + src2[0];
sl@0
   108
  }
sl@0
   109
  for(;i<n;i++){
sl@0
   110
    dest[i] = src1[i] + src2[0];
sl@0
   111
  }
sl@0
   112
}
sl@0
   113
OIL_DEFINE_IMPL (scalaradd_f32_ns_unroll4, scalaradd_f32_ns);
sl@0
   114
sl@0
   115
static void
sl@0
   116
scalarmultiply_f32_ns_unroll4 (float *dest, float *src1, float *src2, int n)
sl@0
   117
{
sl@0
   118
  int i;
sl@0
   119
sl@0
   120
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
   121
    dest[i+0] = src1[i+0] * src2[0];
sl@0
   122
    dest[i+1] = src1[i+1] * src2[0];
sl@0
   123
    dest[i+2] = src1[i+2] * src2[0];
sl@0
   124
    dest[i+3] = src1[i+3] * src2[0];
sl@0
   125
  }
sl@0
   126
  for(;i<n;i++){
sl@0
   127
    dest[i] = src1[i] * src2[0];
sl@0
   128
  }
sl@0
   129
}
sl@0
   130
OIL_DEFINE_IMPL (scalarmultiply_f32_ns_unroll4, scalarmultiply_f32_ns);
sl@0
   131
sl@0
   132
static void
sl@0
   133
scalarmultiply_f64_ns_unroll4 (double *dest, double *src1, double *src2, int n)
sl@0
   134
{
sl@0
   135
  int i;
sl@0
   136
sl@0
   137
  for(i=0;i<(n&(~0x3));i+=4){
sl@0
   138
    dest[i+0] = src1[i+0] * src2[0];
sl@0
   139
    dest[i+1] = src1[i+1] * src2[0];
sl@0
   140
    dest[i+2] = src1[i+2] * src2[0];
sl@0
   141
    dest[i+3] = src1[i+3] * src2[0];
sl@0
   142
  }
sl@0
   143
  for(;i<n;i++){
sl@0
   144
    dest[i] = src1[i] * src2[0];
sl@0
   145
  }
sl@0
   146
}
sl@0
   147
OIL_DEFINE_IMPL (scalarmultiply_f64_ns_unroll4, scalarmultiply_f64_ns);
sl@0
   148
sl@0
   149
#if 0
sl@0
   150
sl@0
   151
#ifdef	__SYMBIAN32__
sl@0
   152
 
sl@0
   153
OilFunctionImpl* __oil_function_impl_add_f32_unroll4() {
sl@0
   154
		return &_oil_function_impl_add_f32_unroll4;
sl@0
   155
}
sl@0
   156
#endif
sl@0
   157
sl@0
   158
#ifdef	__SYMBIAN32__
sl@0
   159
 
sl@0
   160
OilFunctionImpl* __oil_function_impl_add_f32_unroll4b() {
sl@0
   161
		return &_oil_function_impl_add_f32_unroll4b;
sl@0
   162
}
sl@0
   163
#endif
sl@0
   164
sl@0
   165
#ifdef	__SYMBIAN32__
sl@0
   166
 
sl@0
   167
OilFunctionImpl* __oil_function_impl_multiply_f32_unroll4() {
sl@0
   168
		return &_oil_function_impl_multiply_f32_unroll4;
sl@0
   169
}
sl@0
   170
#endif
sl@0
   171
sl@0
   172
#endif
sl@0
   173
#ifdef	__SYMBIAN32__
sl@0
   174
 
sl@0
   175
OilFunctionImpl* __oil_function_impl_scalaradd_f32_ns_unroll4() {
sl@0
   176
		return &_oil_function_impl_scalaradd_f32_ns_unroll4;
sl@0
   177
}
sl@0
   178
#endif
sl@0
   179
sl@0
   180
#ifdef	__SYMBIAN32__
sl@0
   181
 
sl@0
   182
OilFunctionImpl* __oil_function_impl_scalarmultiply_f32_ns_unroll4() {
sl@0
   183
		return &_oil_function_impl_scalarmultiply_f32_ns_unroll4;
sl@0
   184
}
sl@0
   185
#endif
sl@0
   186
sl@0
   187
#ifdef	__SYMBIAN32__
sl@0
   188
 
sl@0
   189
OilFunctionImpl* __oil_function_impl_scalarmultiply_f64_ns_unroll4() {
sl@0
   190
		return &_oil_function_impl_scalarmultiply_f64_ns_unroll4;
sl@0
   191
}
sl@0
   192
#endif
sl@0
   193