MonetDB: default - Fix getEnvironment

[Martin Kersten]

Changeset: 79d4d645328e for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=79d4d645328e
Modified Files:
        monetdb5/modules/mal/clients.mal
        monetdb5/modules/mal/inspect.c
Branch: default
Log Message:

Fix getEnvironment


diffs (26 lines):

diff --git a/monetdb5/modules/mal/clients.mal b/monetdb5/modules/mal/clients.mal
--- a/monetdb5/modules/mal/clients.mal
+++ b/monetdb5/modules/mal/clients.mal
@@ -15,7 +15,7 @@ pattern getId():int
 address CLTgetClientId
 comment "Return a number that uniquely represents the current client.";
 
-pattern getInfo( ):bat[:str,:str] 
+pattern getInfo( )(:bat[:oid,:str],:bat[:oid,:str])
 address CLTInfo
 comment "Pseudo bat with client attributes.";
 
diff --git a/monetdb5/modules/mal/inspect.c b/monetdb5/modules/mal/inspect.c
--- a/monetdb5/modules/mal/inspect.c
+++ b/monetdb5/modules/mal/inspect.c
@@ -496,6 +496,10 @@ INSPECTgetEnvironment(int *ret, int *ret
                BBPreleaseref(b->batCacheid);
                throw(MAL, "inspect.getEnvironment", MAL_MALLOC_FAIL);
        }
+       b = BATmirror(b);
+       BATseqbase(b,0);
+       bn = BATmirror(bn);
+       BATseqbase(bn,0);
 
        BBPkeepref(*ret = b->batCacheid);
        BBPkeepref(*ret2 = bn->batCacheid);
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list