diff -r 000000000000 -r bde4ae8d615e os/ossrv/genericopenlibs/liboil/tsrc/examples/oil-suggest/src/oil-suggest.c --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/os/ossrv/genericopenlibs/liboil/tsrc/examples/oil-suggest/src/oil-suggest.c Fri Jun 15 03:10:57 2012 +0200 @@ -0,0 +1,156 @@ +/* + * LIBOIL - Library of Optimized Inner Loops + * Copyright (c) 2004 David A. Schleef + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, + * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES + * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, + * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING + * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include +#include + +#include +#include +#include +#include +#define LOG_FILE "c:\\logs\\examples_oil-suggest_log.txt" +#include "std_log_result.h" +#define LOG_FILENAME_LINE __FILE__, __LINE__ + +void create_xml(int result) +{ + if(result) + assert_failed = 1; + + testResultXml("examples_oil-suggest"); + close_log_file(); +} + +static int +is_poorly_strided (OilFunctionClass *klass) +{ + OilPrototype *proto; + int i; + int j; + OilParameter *param; + + proto = oil_prototype_from_string (klass->prototype); + for(i=0;in_params;i++) { + if (proto->params[i].is_stride) { + for(j=0;jn_params;j++) { + param = proto->params + j; + if (param->parameter_type == (proto->params[i].parameter_type - 1)) { + if (param->prestride_length == 1 && param->poststride_length == 0) { + oil_prototype_free (proto); + return 1; + } + } + } + } + } + oil_prototype_free (proto); + return 0; +} + +static double +get_speed_score (OilFunctionClass *klass) +{ + OilFunctionImpl *impl; + double max; + double x; + + max = 1.0; + for(impl = klass->first_impl; impl; impl = impl->next) { + x = klass->reference_impl->profile_ave / impl->profile_ave; + if (x > max) max = x; + } + return max; +} + +static void +oil_suggest_class (OilFunctionClass *klass, int verbose) +{ + double x; + + if (is_poorly_strided (klass)) return; + + x = get_speed_score (klass); + + if (x < 20.0) { + std_log(LOG_FILENAME_LINE,"%s %g\n", klass->name, x); + } +} + +static void +oil_suggest_all (void) +{ + int i; + int n; + + n = oil_class_get_n_classes (); + for (i = 0; i < n; i++){ + OilFunctionClass *klass = oil_class_get_by_index (i); + + oil_suggest_class (klass, 0); + } +} + +static void +oil_suggest (const char *s) +{ + OilFunctionClass *klass = oil_class_get (s); + + if (klass) { + oil_suggest_class (klass, 0); + } +} + +int +main (int argc, char *argv[]) +{ + int i; + + oil_init(); + + if (argc == 1) { + oil_suggest_all (); + create_xml(0); + return 0; + } + + for(i=1;i