HTTP/1.1 -1 Read error in cache disk data: SuccessContent-Type: application/x-troff Last-Modified: Fri, 30 Apr 2010 17:00:05 GMT ETag: "62ee0-6bc-485772cc116a2" Content-length: 1724 Connection: Close Proxy-Connection: Close X-Cache: HIT from web1.osuosl.org Server: ProxyTrack 0.5 (HTTrack 3.49.2) .macro parrot_debug(location) printerr "@ " printerr .location printerr "\n" .include 'interpinfo.pasm' $I1234 = interpinfo .INTERPINFO_TOTAL_MEM_ALLOC printerr " TOTAL_MEM_ALLOC............: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_ACTIVE_PMCS printerr " ACTIVE_PMCS................: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_ACTIVE_BUFFERS printerr " ACTIVE_BUFFERS.............: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_TOTAL_PMCS printerr " TOTAL_PMCS.................: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_TOTAL_BUFFERS printerr " TOTAL_BUFFERS..............: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_HEADER_ALLOCS_SINCE_COLLECT printerr " HEADER_ALLOCS_SINCE_COLLECT: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_MEM_ALLOCS_SINCE_COLLECT printerr " MEM_ALLOCS_SINCE_COLLECT...: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_TOTAL_COPIED printerr " TOTAL_COPIED...............: " printerr $I1234 printerr "\n" $I1234 = interpinfo .INTERPINFO_IMPATIENT_PMCS printerr " IMPATIENT_PMCS.............: " printerr $I1234 printerr "\n" .endm .sub main :main sweep 1 .parrot_debug('START') .local int count count= 1000 loop: unless count goto done $P0 = new 'CodeString' $P0.'emit'("%%") $S0 = $P0 dec count goto loop done: sweep 1 .parrot_debug('POST LOOP') sweep 1 .parrot_debug('END') .end alue="Search" />