#include "combine.h"

/* 
 * Combining functions contained in the solutions to problems
 */

char combine5px8_descr[] = "GNU pointer code, unrolled by 8";
/* $begin combine5px8-ans */
void combine5px8(vec_ptr v, data_t *dest)
{
    long length = vec_length(v); 
    long limit = length - 8; 
    data_t *data = get_vec_start(v); 
    data_t x = IDENT; 
    long i; 

    /* Combine 8 elements at a time */
    for (i = 0; i <= limit; i+=8) {
	x = x OPER data[0]
	    OPER data[1] 
	    OPER data[2] 
	    OPER data[3] 
	    OPER data[4] 
	    OPER data[5] 
	    OPER data[6] 
	    OPER data[7]; 
	data += 8; 
    }

    /* Finish any remaining elements */ 
    for (; i < length; i++) {
	x = x OPER data[0]; 
	data++; 
    }
    *dest = x; 
}
/* $end combine5px8-ans */


void register_combiners(void)
{
    add_combiner(combine5px8, combine5px8, combine5px8_descr);
}