Update of /cvsroot/monetdb/MonetDB4/src/modules/plain
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv28129

Modified Files:
      Tag: MonetDB_4-20
        str.mx 
Log Message:
use correct nil value


Index: str.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB4/src/modules/plain/str.mx,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -d -r1.3.6.1 -r1.3.6.2
--- str.mx      13 Dec 2007 15:09:40 -0000      1.3.6.1
+++ str.mx      18 Dec 2007 08:37:49 -0000      1.3.6.2
@@ -1630,9 +1630,9 @@
 /* 64bit: should have wrd arg */
        unsigned char *s = (unsigned char *) val;
 
-       RETURN_NIL_IF(strNil(val) || *at == int_nil || *at < 0, TYPE_chr);
+       RETURN_NIL_IF(strNil(val) || *at == int_nil || *at < 0, TYPE_int);
        s = (unsigned char *) UTF8_strtail((str) s, *at);
-       RETURN_NIL_IF(*s == 0, TYPE_chr);
+       RETURN_NIL_IF(*s == 0, TYPE_int);
        @:UTF8_GETCHAR(*res,s)@
        return GDK_SUCCEED;
 }


-------------------------------------------------------------------------
SF.Net email is sponsored by:
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services
for just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins

Reply via email to