Update of /cvsroot/monetdb/pathfinder/runtime
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv2865/runtime

Modified Files:
        pf_support.mx 
Log Message:

cleaning up type switches and removing dead code


Index: pf_support.mx
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/runtime/pf_support.mx,v
retrieving revision 1.252
retrieving revision 1.253
diff -u -d -r1.252 -r1.253
--- pf_support.mx       24 Jul 2007 16:42:14 -0000      1.252
+++ pf_support.mx       25 Jul 2007 13:13:52 -0000      1.253
@@ -5193,7 +5193,7 @@
        }
 @
 @= merged_union_0
-       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ttpe[0])
+       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ATOMstorage(ttpe[0]))
         *  @2: tloc, tvar, tail
         *  @3: 0 1
         *  @4: tail value comparison,
@@ -5215,7 +5215,7 @@
        /* sucessively pair-wise merge-union the first BAT/column of all tables 
*/
 @
 @= merged_union_1
-       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ttpe[0])
+       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ATOMstorage(ttpe[0]))
         *  @2: tloc, tvar, tail (for BAT 0)
         *  @3: tloc, tvar, tail (for BAT 1)
         *  @4: simple, atom
@@ -5225,10 +5225,10 @@
        concat10 = FALSE;
        if (BATtordered(src[0])&BATtordered(src[1])&1 || (BATtordered(src[0])&1 
&& cnt[1]==1) || (cnt[0]==1 && BATtordered(src[1])&1) ) {
                if (!concat01) {
-                       concat01 = @4_LE([EMAIL 
PROTECTED](src[0],BUNlast(src[0])-BUNsize(src[0])),[EMAIL 
PROTECTED](src[1],csr[1]),@1);
+                       concat01 = @4_LE([EMAIL 
PROTECTED](src[0],BUNlast(src[0])-BUNsize(src[0])),[EMAIL 
PROTECTED](src[1],BUNfirst(src[1])),@1);
                }
                if (!concat01) {
-                       concat10 = @4_LT([EMAIL 
PROTECTED](src[1],BUNlast(src[1])-BUNsize(src[1])),[EMAIL 
PROTECTED](src[0],csr[0]),@1);
+                       concat10 = @4_LT([EMAIL 
PROTECTED](src[1],BUNlast(src[1])-BUNsize(src[1])),[EMAIL 
PROTECTED](src[0],BUNfirst(src[0])),@1);
                }
        }
        if (!concat01 && !concat10) {
@@ -5247,7 +5247,7 @@
        @:merged_union_0(@1,@2,0,TRUE)@
 @
 @= merged_union_2
-       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ttpe[0])
+       /*  @1: ATOMstorage(ttpe[0]) (chr, bte, sht, int, flt, lng, dbl, 
any=ATOMstorage(ttpe[0]))
         *  @2: tloc, tvar, tail (for BAT 0)
         *  @3: simple, atom
         */
@@ -5286,8 +5286,8 @@
                        @:merged_union_1(lng,tloc,tloc,simple)@
 #endif
                } else {
-                       any = src[0]->ttype;
-                       switch(ATOMstorage(any)) {
+                       any = ATOMstorage(src[0]->ttype);
+                       switch(any) {
                        case TYPE_chr:  @:merged_union_2(chr,tloc,simple)@
                        case TYPE_bte:  @:merged_union_2(bte,tloc,simple)@
                        case TYPE_sht:  @:merged_union_2(sht,tloc,simple)@
@@ -5406,20 +5406,6 @@
        }
 
        /* set BAT properties */
-
-@(
-       /* not required as concat01 & concat10 are inherited from above */
-       if (non_empty[ntabs] == 2) {
-               BAT *b0 = b[non_empty[0]][0];
-               BAT *b1 = b[non_empty[1]][0];
-               concat01 = concat10 = FALSE;
-               if (BATtordered(b0)&BATtordered(b1)&1 || (BATtordered(b0)&1 && 
BATcount(b1)==1) || (BATcount(b0)==1 && BATtordered(b1)&1) ) {
-                       concat01 = 
atom_LE(BUNtail(b0,BUNlast(b0)-BUNsize(b0)),BUNtail(b1,BUNfirst(b1)),ATOMstorage(ATOMtype(ttpe[0])));
-                       concat10 = !concat01 && \
-                                  
atom_LT(BUNtail(b1,BUNlast(b1)-BUNsize(b1)),BUNtail(b0,BUNfirst(b0)),ATOMstorage(ATOMtype(ttpe[0])));
-               }
-       }
-@)
        for (c=0; c<ncols; c++) {
                BATseqbase(bn[c], (oid)0);
                bn[c]->batBuns->free = dst[c] - bn[c]->batBuns->base;


-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins

Reply via email to