[ViewVC] Diff of: cvs/OpenCL/OpenCL.xs

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.75 by root, Sat May 5 14:18:35 2012 UTC vs.
Revision 1.76 by root, Sat May 5 14:49:52 2012 UTC

   IV iv;
   const char *name;
   #define const_iv(name) { (IV)CL_ ## name, # name },
 } ivstr;
+typedef struct
+{
+  NV nv;
+  const char *name;
+  #define const_nv(name) { (NV)CL_ ## name, # name },
+} nvstr;
 static const char *
 iv2str (IV value, const ivstr *base, int count, const char *fallback)
 {
   int i;
   static char strbuf [32];
         eq_signal_arg  = (void*)arg;
 BOOT:
 {
   HV *stash = gv_stashpv ("OpenCL", 1);
   static const ivstr *civ, const_iv[] = {
     { sizeof (cl_char  ), "SIZEOF_CHAR"   },
     { sizeof (cl_uchar ), "SIZEOF_UCHAR"  },
     { sizeof (cl_short ), "SIZEOF_SHORT"  },
     { sizeof (cl_ushort), "SIZEOF_USHORT" },
 #include "constiv.h"
   };
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ > const_iv; civ--)
     newCONSTSUB (stash, (char *)civ[-1].name, newSViv (civ[-1].iv));
+  static const nvstr *cnv, const_nv[] = {
+#include "constnv.h"
+  };
+  for (cnv = const_nv + sizeof (const_nv) / sizeof (const_nv [0]); cnv > const_nv; cnv--)
+    newCONSTSUB (stash, (char *)cnv[-1].name, newSVnv (cnv[-1].nv));
+  newCONSTSUB (stash, "NAN", newSVnv (CL_NAN)); // CL_NAN might be a function call
   stash_platform	= gv_stashpv ("OpenCL::Platform",	GV_ADD);
   stash_device		= gv_stashpv ("OpenCL::Device",		GV_ADD);
   stash_subdevice	= gv_stashpv ("OpenCL::SubDevice",	GV_ADD);
   stash_context		= gv_stashpv ("OpenCL::Context",	GV_ADD);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines