From 41086e91d04b3c5f10fdf054260e90c0970e5ac6 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Wed, 11 Dec 2002 04:35:59 +0000
Subject:  ""

svn path=/trunk/; revision=297
---
 externals/grill/pool/pool.cpp | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'externals/grill/pool/pool.cpp')

diff --git a/externals/grill/pool/pool.cpp b/externals/grill/pool/pool.cpp
index 21eaf279..9c30603c 100644
--- a/externals/grill/pool/pool.cpp
+++ b/externals/grill/pool/pool.cpp
@@ -205,6 +205,15 @@ poolval *pooldir::RefVal(const A &key)
 	return c || !ix?NULL:ix;
 }
 
+poolval *pooldir::RefVali(I rix)
+{
+	I c = 0;
+	poolval *ix = vals;
+	for(; ix && c < rix; ix = ix->nxt,++c) {}
+
+	return c == rix?ix:NULL;
+}
+
 flext::AtomList *pooldir::PeekVal(const A &key)
 {
 	poolval *ix = RefVal(key);
-- 
cgit v1.2.1