#!/bin/perl

# system "addr2line -C -f -s -e p_nop.exe < trace.ssp > lines.ssp";

open(T, "trace.ssp");
open(L, "lines.ssp");

while ($addr = <T>) {
    $addr =~ s/[\r\n]+$//;
    $func = <L>;
    $func =~ s/[\r\n]+$//;
    $line = <L>;
    $line =~ s/[\r\n]+$//;
    print "$addr $func $line\n";
}