if (defined &TP_PERF_MEAS) {
    eval 'sub tpmeas {
        local($a, $b, $t, $c, $d, $e) = @_;
        eval " &Tpmeas(($a), ($b), $t, ($c), ($d), ($e))";
    }';
    eval 'sub TPMEASN {4000;}';
    eval 'sub TPtime_from_session {0x01;}';
    eval 'sub TPtime_to_session {0x02;}';
    eval 'sub TPtime_ack_rcvd {0x03;}';
    eval 'sub TPtime_ack_sent {0x04;}';
    eval 'sub TPtime_from_ll {0x05;}';
    eval 'sub TPtime_to_ll {0x06;}';
    eval 'sub TPsbsend {0x07;}';
    eval 'sub TPtime_open {0x08;}';
    eval 'sub TPtime_open_X {0x28;}';
    eval 'sub TPtime_close {0x09;}';
}
1;