genericopenlibs/liboil/src/liboilcpu-misc.c
branchRCL_3
changeset 56 acd3cd4aaceb
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/liboil/src/liboilcpu-misc.c	Tue Aug 31 16:54:36 2010 +0300
@@ -0,0 +1,143 @@
+/*
+ * LIBOIL - Library of Optimized Inner Loops
+ * Copyright (c) 2003,2004 David A. Schleef <ds@schleef.org>
+ * 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 <liboil/liboilfunction.h>
+#include <liboil/liboildebug.h>
+#include <liboil/liboilcpu.h>
+#include <liboil/liboilfault.h>
+#include <liboil/liboilutils.h>
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <setjmp.h>
+#include <signal.h>
+#include <sys/time.h>
+#include <time.h>
+
+/***** alpha *****/
+
+#if defined(__alpha__)
+static unsigned long
+oil_profile_stamp_alpha(void)
+{
+  unsigned int ts;
+  __asm__ __volatile__ ("rpcc %0\n" : "=r"(ts));
+  return ts;
+}
+
+static void
+oil_cpu_detect_alpha(void)
+{
+  _oil_profile_stamp = oil_profile_stamp_alpha;
+}
+#endif
+
+/***** ia64 *****/
+
+#if defined(__ia64__)
+static unsigned long
+oil_profile_stamp_ia64(void)
+{
+  unsigned int ts;
+  __asm__ __volatile__("mov %0=ar.itc\n" : "=r"(ts) :: "memory");
+  return ts;
+}
+
+static void
+oil_cpu_detect_ia64(void)
+{
+  _oil_profile_stamp = oil_profile_stamp_ia64;
+}
+#endif
+
+/***** s390 *****/
+
+#if defined(__s390__)
+static unsigned long
+oil_profile_stamp_s390(void)
+{
+  uint64_t ts;
+  __asm__ __volatile__ ("STCK %0(%0)\n" : : "r" (&ts));
+  return ts;
+}
+
+static void
+oil_cpu_detect_s390(void)
+{
+  _oil_profile_stamp = oil_profile_stamp_s390;
+}
+#endif
+
+/***** mips *****/
+
+#if defined(__mips__)
+#if 0
+/* broken */
+static unsigned long
+oil_profile_stamp_mips(void)
+{
+	unsigned int ts;
+	__asm__ __volatile__ (
+		"	.set	push		\n"
+		"	.set	reorder		\n"
+		"	mfc0	%0,$9		\n"
+		"	.set	pop		\n"
+	: "=m" (ts));
+	return ts;
+}
+#endif
+
+static void
+oil_cpu_detect_mips(void)
+{
+  //_oil_profile_stamp = oil_profile_stamp_mips;
+}
+#endif
+
+void
+oil_cpu_detect_arch(void)
+{
+#ifdef __alpha__
+  oil_cpu_detect_alpha();
+#endif
+#ifdef __ia64__
+  oil_cpu_detect_ia64();
+#endif
+#ifdef __s390__
+  oil_cpu_detect_s390();
+#endif
+#ifdef __mips__
+  oil_cpu_detect_mips();
+#endif
+}
+