add a (commented out) diagnostic to trait_mod:<is>, tweak the mysql e…

…xample, add a .gitignore
lopnor · May 26, 2010 · f2fccb0 · f2fccb0
1 parent 59e240f
commit f2fccb0
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,2 @@
+*.pir
+*~
diff --git a/examples/mysqlclient.p6 b/examples/mysqlclient.p6
@@ -62,7 +62,7 @@ sub mysql_field_count( OpaquePointer $mysql_client )
     { ... }
 
 sub mysql_free_result( OpaquePointer $result_set )
-    returns OpaquePointer
+#   returns OpaquePointer
     is native('libmysqlclient')
     { ... }
 
@@ -83,7 +83,7 @@ sub mysql_library_init( Int $argc, OpaquePointer $argv,
     { ... }
 
 sub mysql_library_end()
-    returns OpaquePointer # currently not working, should be void
+#   returns OpaquePointer # currently not working, should be void
     is native('libmysqlclient')
     { ... }
 

diff --git a/lib/NativeCall.pm6 b/lib/NativeCall.pm6
@@ -94,6 +94,7 @@ our multi trait_mod:<is>(Routine $r, $libname, :$native!) {
     my $call-sig      = perl6-sig-to-backend-sig($r);
     my $return-mapper = make-mapper($r.returns);
     my $lib           = pir::loadlib__Ps($libname);
+    # warn "routine $r.name() signature $call-sig";
     unless $lib {
         die "The native library '$libname' required for '$entry-point' could not be located";
     }