add menuetlibc sources

git-svn-id: svn://kolibrios.org@1882 a494cfbc-eb01-0410-851d-a64ba20cac60
2011-02-21 13:30:08 +00:00
parent 39faeeed84
commit 4f5f25a6c2
1183 changed files with 107287 additions and 0 deletions
--- a/programs/develop/libraries/menuetlibc/src/libm/w_cabs.c
+++ b/programs/develop/libraries/menuetlibc/src/libm/w_cabs.c
@@ -0,0 +1,21 @@
+/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
+/*
+ * cabs() wrapper for hypot().
+ * 
+ * Written by J.T. Conklin, <jtc@wimsey.com>
+ * Placed into the Public Domain, 1994.
+ */
+
+#include <math.h>
+
+struct complex {
+	double x;
+	double y;
+};
+
+double
+cabs(z)
+	struct complex z;
+{
+	return hypot(z.x, z.y);
+}