first steps to C file merge operation for incremental compilation

This commit is contained in:
Araq 2011-10-21 01:06:24 +02:00
commit a6f90d4cdd
8 changed files with 441 additions and 118 deletions

View file

@ -720,6 +720,11 @@ proc IdTableGet(t: TIdTable, key: int): PObject =
var index = IdTableRawGet(t, key)
if index >= 0: result = t.data[index].val
else: result = nil
iterator pairs*(t: TIdTable): tuple[key: int, value: PObject] =
for i in 0..high(t.data):
if t.data[i].key != nil:
yield (t.data[i].key.id, t.data[i].val)
proc IdTableRawInsert(data: var TIdPairSeq, key: PIdObj, val: PObject) =
var h: THash