072 Memory Leak Split job attempt

create_project -force -part $::env(XRAY_PART) design design
set_property design_mode PinPlanning [current_fileset]
open_io_design -name io_1

#set_param tcl.collectionResultDisplayLimit 0
set_param messaging.disableStorage 1

proc process_block { start stop } {
    puts "inside interpreter $start $stop"
    set downhill_fp [open downhill_wires.txt a]
    set uphill_fp [open uphill_wires.txt a]

    set pips [get_pips]

    for { set i $start } { $i < $stop } { incr i } {
        set pip [lindex $pips $i]
        foreach downhill_node [get_nodes -downhill -of_object $pip] {
            set ordered_downhill_wires [get_wires -from $pip -of_object $downhill_node]
            puts $downhill_fp "$pip $downhill_node $ordered_downhill_wires"
        }
        foreach uphill_node [get_nodes -uphill -of_object $pip] {
            set ordered_uphill_wires [get_wires -to $pip -of_object $uphill_node]
            puts $uphill_fp "$pip $uphill_node $ordered_uphill_wires"
        }
    }

    close $downhill_fp
    close $uphill_fp
}

close [open downhill_wires.txt w]
close [open uphill_wires.txt w]

set pips [get_pips]
set pipslen [llength $pips]

set nbblocks 64
set blocksize [expr $pipslen / $nbblocks]

unset pips

for { set i 0 } { $i < $nbblocks } { incr i } {
    puts "Block: $i"
    set startI [expr $i * $blocksize]
    set stopI  [expr ($i + 1) * $blocksize]
    puts "StartI: $startI - StopI: $stopI"
    set tmpinterp [interp create]
    interp alias $tmpinterp process_block {} process_block
    interp eval $tmpinterp "process_block $startI $stopI"
    interp delete $tmpinterp
}