[complement-svn] SF.net SVN: complement: [1796] trunk/complement/explore/inquiry/shades/ double/test.c

[<com...@us...>]

Revision: 1796
          http://complement.svn.sourceforge.net/complement/?rev=1796&view=rev
Author:   complement
Date:     2007-12-06 07:45:37 -0800 (Thu, 06 Dec 2007)

Log Message:
-----------
long double?

Modified Paths:
--------------
    trunk/complement/explore/inquiry/shades/double/test.c

Modified: trunk/complement/explore/inquiry/shades/double/test.c
===================================================================
--- trunk/complement/explore/inquiry/shades/double/test.c	2007-11-30 15:28:18 UTC (rev 1795)
+++ trunk/complement/explore/inquiry/shades/double/test.c	2007-12-06 15:45:37 UTC (rev 1796)
@@ -7,6 +7,11 @@
   double d;
 };
 
+union LD {
+  unsigned char c[16];
+  long double d;
+};
+
 union U {
   unsigned u[2];
   double d;
@@ -17,6 +22,7 @@
   union D d;
   union ieee754_double ieee754;
   union U u;
+  union LD ld;
   int i;
 
   for ( i = 0; i < 16; ++i ) {
@@ -45,5 +51,15 @@
   }
   printf( "\n" );
 
+  printf( "%d\n", sizeof(unsigned short) );
+  printf( "%d\n", sizeof(long double) );
+
+  ld.d = 1.0;
+
+  for ( i = 0; i < 16; ++i ) {
+    printf( "%.2x ", ld.c[i] );
+  }
+  printf( "\n" );
+
   return 0;
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.