Index: trunk/Ohana/src/libautocode/generate
===================================================================
--- trunk/Ohana/src/libautocode/generate	(revision 5448)
+++ trunk/Ohana/src/libautocode/generate	(revision 5900)
@@ -119,8 +119,11 @@
 	if ($type eq "unsigned int")  { $pt1 = "J"; }
 	if ($type eq "e_time") 	      { $pt1 = "J"; }
-	if ($type eq "e_void") 	      { $pt1 = "L"; }
-	# e_void is a 64 bit pointer, cast to size_t
 	if ($type eq "float")  	      { $pt1 = "E"; }
 	if ($type eq "double") 	      { $pt1 = "D"; }
+
+	if ($type eq "e_void") 	      { $pt1 = "B"; $Np = 8*$Np; }
+	# e_void is a 64 bit pointer, cast to size_t.  its value is not loaded
+	# from the table.
+
 	if (!$pt1) { die "unknown type $type"; }
 
@@ -190,7 +193,9 @@
 	if ($type eq "unsigned int")  { $pt1 = sprintf "I%s", $length; }
 	if ($type eq "e_time") 	      { $pt1 = sprintf "I%s", $length; }
-	if ($type eq "e_void") 	      { $pt1 = sprintf "I%s", $length; }
 	if ($type eq "float")  	      { $pt1 = sprintf "F%s", $length; }
 	if ($type eq "double") 	      { $pt1 = sprintf "F%s", $length; }
+
+	if ($type eq "e_void") 	      { $pt1 = sprintf "I%s", $length; }
+
 	if (!$pt1) { die "unknown type $type"; }