function AddHandleIndex takes handle h returns nothing
    local integer id=GetHandleId(h)
    local integer qi
  
    if HaveSavedInteger(tempcache,id,pos) then
      set qi=LoadInteger(tempcache,id,pos)
      set inUse[qi]=inUse[qi]+1
    elseif lastsize>0 then
      set lastsize             =lastsize-1
      set inUse[last[lastsize]]=1
      call SaveInteger(tempcache,id,pos,last[lastsize])
    else
      set inUse[indexsize]=1
      call SaveInteger(tempcache,id,pos,indexsize)
      set indexsize=indexsize+1
    endif
  endfunction
  
  function GetHandleIndex takes handle h returns integer
    debug if not HaveSavedInteger(tempcache,GetHandleId(h),pos) then
    debug call BJDebugMsg("Error:[#100]")
    debug endif
    return LoadInteger(tempcache,GetHandleId(h),pos)
  endfunction
  
  function ClearHandleIndex takes handle h returns nothing
    local integer id=GetHandleId(h)
    local integer qi=LoadInteger(tempcache,id,pos)
    
    debug if HaveSavedInteger(tempcache,id,pos) then
      set inUse[qi]=inUse[qi]-1
      if inUse[qi]==0 then
        set last[lastsize]=qi
        set lastsize      =lastsize+1
        call FlushChildHashtable(tempcache,id)
      endif
    debug else
    debug call BJDebugMsg("Error:[#101]")
    debug endif
  endfunction
endlibrary