# New Ticket Created by Leopold Toetsch # Please include the string: [perl #20358] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=20358 >
disassemble sometimes takes huge amounts of mem and dies. I'm using disassemble to get a test coverage of ops with this shell script: #!/bin/sh # op-stat DIS=disassemble [ -e .op-list1 ] && rm .op-list1 [ -e op-list-all ] && rm op-list-all [ -e op-list-s ] && rm op-list-s find . -name '*.pbc' -fprint /dev/stderr -exec $DIS {} \; | sed -e's/^[[:blank:]]*L[0-9]*://' | \ sed -e's/^[[:blank:]]+//' | cut -d\ -f1 >> .op-list1 sort < .op-list1 | uniq -c | sort -rg > op-list-all sort < .op-list1 | sed -e's/_.*//' | uniq -c | sort -rg > op-list-s echo T=`grep NAME lib/Parrot/OpLib/core.pm | wc -l` S=`grep NAME lib/Parrot/OpLib/core.pm | sort | uniq | wc -l` echo total ops $T echo ops types $S echo op usage stat wc -l op-list* | head -2