Fixes about word with several infiniteve

Author: feodor

contrib/tsearch2/query.c

@@ -278,7 +278,7 @@ pushval_morph(QPRS_STATE * state, int typeval, char *strval, int lenval, int2 we
 		pushval_asis(state, VAL, prs.words[count].word, prs.words[count].len, weight);
 		pfree(prs.words[count].word);
 		if (count)
-			pushquery(state, OPR, (int4) '&', 0, 0, 0);
+			pushquery(state, OPR, (int4) '|', 0, 0, 0);
 	}
 	pfree(prs.words);
 

contrib/tsearch2/tsvector.c

@@ -635,8 +635,10 @@ uniqueWORD(WORD * a, int4 l)
 					res->alen *= 2;
 					res->pos.apos = (uint16 *) repalloc(res->pos.apos, sizeof(uint16) * res->alen);
 				}
-				res->pos.apos[res->pos.apos[0] + 1] = LIMITPOS(ptr->pos.pos);
-				res->pos.apos[0]++;
+				if ( res->pos.apos[0]==0 || res->pos.apos[res->pos.apos[0]] != LIMITPOS(ptr->pos.pos) ) { 
+					res->pos.apos[res->pos.apos[0] + 1] = LIMITPOS(ptr->pos.pos);
+					res->pos.apos[0]++;
+				}
 			}
 		}
 		ptr++;