+#endif
+
+IDL mdb_midl_alloc()
+{
+ IDL ids = malloc((MDB_IDL_UM_MAX+1) * sizeof(ID));
+ *ids++ = MDB_IDL_UM_MAX;
+ return ids;
+}
+
+void mdb_midl_free(IDL ids)
+{
+ free(ids-1);
+}
+
+int mdb_midl_shrink( IDL *idp )
+{
+ IDL ids = *idp;
+ if (ids[-1] > MDB_IDL_UM_MAX) {
+ ids = realloc(ids, (MDB_IDL_UM_MAX+1) * sizeof(ID));
+ *ids++ = MDB_IDL_UM_MAX;
+ *idp = ids;
+ return 1;
+ }
+ return 0;
+}
+
+int mdb_midl_append( IDL *idp, ID id )
+{
+ IDL ids = *idp;
+ /* Too big? */
+ if (ids[0] >= ids[-1]) {
+ IDL idn = ids-1;
+ /* grow it */
+ idn = realloc(idn, (*idn + MDB_IDL_UM_MAX + 1) * sizeof(ID));
+ if (!idn)
+ return -1;
+ *idn++ += MDB_IDL_UM_MAX;
+ ids = idn;
+ *idp = ids;
+ }
+ ids[0]++;
+ ids[ids[0]] = id;
+ return 0;
+}
+
+int mdb_midl_append_list( IDL *idp, IDL app )
+{
+ IDL ids = *idp;
+ /* Too big? */
+ if (ids[0] + app[0] >= ids[-1]) {
+ IDL idn = ids-1;
+ /* grow it */
+ idn = realloc(idn, (*idn + app[-1]) * sizeof(ID));
+ if (!idn)
+ return -1;
+ *idn++ += app[-1];
+ ids = idn;
+ *idp = ids;
+ }
+ memcpy(&ids[ids[0]+1], &app[1], app[0] * sizeof(ID));
+ ids[0] += app[0];
+ return 0;
+}
+
+/* Quicksort + Insertion sort for small arrays */
+
+#define SMALL 8
+#define SWAP(a,b) { itmp=(a); (a)=(b); (b)=itmp; }
+
+void
+mdb_midl_sort( IDL ids )
+{
+ /* Max possible depth of int-indexed tree * 2 items/level */
+ int istack[sizeof(int)*CHAR_BIT * 2];
+ int i,j,k,l,ir,jstack;
+ ID a, itmp;
+
+ ir = ids[0];
+ l = 1;
+ jstack = 0;
+ for(;;) {
+ if (ir - l < SMALL) { /* Insertion sort */
+ for (j=l+1;j<=ir;j++) {
+ a = ids[j];
+ for (i=j-1;i>=1;i--) {
+ if (ids[i] >= a) break;
+ ids[i+1] = ids[i];
+ }
+ ids[i+1] = a;
+ }
+ if (jstack == 0) break;
+ ir = istack[jstack--];
+ l = istack[jstack--];
+ } else {
+ k = (l + ir) >> 1; /* Choose median of left, center, right */
+ SWAP(ids[k], ids[l+1]);
+ if (ids[l] < ids[ir]) {
+ SWAP(ids[l], ids[ir]);
+ }
+ if (ids[l+1] < ids[ir]) {
+ SWAP(ids[l+1], ids[ir]);
+ }
+ if (ids[l] < ids[l+1]) {
+ SWAP(ids[l], ids[l+1]);
+ }
+ i = l+1;
+ j = ir;
+ a = ids[l+1];
+ for(;;) {
+ do i++; while(ids[i] > a);
+ do j--; while(ids[j] < a);
+ if (j < i) break;
+ SWAP(ids[i],ids[j]);
+ }
+ ids[l+1] = ids[j];
+ ids[j] = a;
+ jstack += 2;
+ if (ir-i+1 >= j-1) {
+ istack[jstack] = ir;
+ istack[jstack-1] = i;
+ ir = j-1;
+ } else {
+ istack[jstack] = j-1;
+ istack[jstack-1] = l;
+ l = i;
+ }
+ }
+ }
+}