Created
July 25, 2011 20:06
-
-
Save anonymous/1105053 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| .HLL "squaak" | |
| .namespace [] | |
| .include "except_types.pasm" | |
| .sub "_block1000" :anon :subid("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 0 | |
| .const 'Sub' $P1049 = "22_1311623305.27346" | |
| capture_lex $P1049 | |
| .const 'Sub' $P1045 = "21_1311623305.27346" | |
| capture_lex $P1045 | |
| .const 'Sub' $P1042 = "20_1311623305.27346" | |
| capture_lex $P1042 | |
| .const 'Sub' $P1038 = "19_1311623305.27346" | |
| capture_lex $P1038 | |
| .const 'Sub' $P1035 = "18_1311623305.27346" | |
| capture_lex $P1035 | |
| .const 'Sub' $P1033 = "17_1311623305.27346" | |
| capture_lex $P1033 | |
| .const 'Sub' $P1030 = "16_1311623305.27346" | |
| capture_lex $P1030 | |
| .const 'Sub' $P1026 = "15_1311623305.27346" | |
| capture_lex $P1026 | |
| .const 'Sub' $P1022 = "14_1311623305.27346" | |
| capture_lex $P1022 | |
| .const 'Sub' $P1018 = "13_1311623305.27346" | |
| capture_lex $P1018 | |
| .const 'Sub' $P1015 = "12_1311623305.27346" | |
| capture_lex $P1015 | |
| .const 'Sub' $P1007 = "11_1311623305.27346" | |
| capture_lex $P1007 | |
| .annotate 'line', 2 | |
| get_global $P100, "print" | |
| unless_null $P100, vivify_23 | |
| new $P100, "Undef" | |
| vivify_23: | |
| $P100("1..25") | |
| .annotate 'line', 5 | |
| new $P101, "Integer" | |
| assign $P101, 1 | |
| set_global "g", $P101 | |
| .annotate 'line', 6 | |
| get_global $P102, "print" | |
| unless_null $P102, vivify_24 | |
| new $P102, "Undef" | |
| vivify_24: | |
| get_global $P103, "g" | |
| unless_null $P103, vivify_25 | |
| new $P103, "Undef" | |
| vivify_25: | |
| $P102("ok ", $P103) | |
| .annotate 'line', 9 | |
| new $P104, "Integer" | |
| assign $P104, 2 | |
| set $P1002, $P104 | |
| .lex "x", $P1002 | |
| .annotate 'line', 10 | |
| get_global $P105, "print" | |
| unless_null $P105, vivify_26 | |
| new $P105, "Undef" | |
| vivify_26: | |
| find_lex $P106, "x" | |
| unless_null $P106, vivify_27 | |
| new $P106, "Undef" | |
| vivify_27: | |
| $P105("ok ", $P106) | |
| .annotate 'line', 13 | |
| $P107 = "!hash"() | |
| set $P1003, $P107 | |
| .lex "hsh", $P1003 | |
| .annotate 'line', 14 | |
| new $P108, "String" | |
| assign $P108, "hi" | |
| set $P1004, $P108 | |
| .lex "key", $P1004 | |
| .annotate 'line', 15 | |
| new $P109, "Integer" | |
| assign $P109, 3 | |
| find_lex $P110, "key" | |
| unless_null $P110, vivify_28 | |
| new $P110, "Undef" | |
| vivify_28: | |
| find_lex $P111, "hsh" | |
| unless_null $P111, vivify_29 | |
| new $P111, "Hash" | |
| store_lex "hsh", $P111 | |
| vivify_29: | |
| set $P111[$P110], $P109 | |
| .annotate 'line', 17 | |
| get_global $P112, "print" | |
| unless_null $P112, vivify_30 | |
| new $P112, "Undef" | |
| vivify_30: | |
| find_lex $P113, "key" | |
| unless_null $P113, vivify_31 | |
| new $P113, "Undef" | |
| vivify_31: | |
| find_lex $P114, "hsh" | |
| unless_null $P114, vivify_32 | |
| new $P114, "Hash" | |
| vivify_32: | |
| set $P115, $P114[$P113] | |
| unless_null $P115, vivify_33 | |
| new $P115, "Undef" | |
| vivify_33: | |
| $P112("ok ", $P115) | |
| .annotate 'line', 20 | |
| $P116 = "!array"() | |
| set $P1005, $P116 | |
| .lex "arr", $P1005 | |
| .annotate 'line', 21 | |
| new $P117, "Integer" | |
| assign $P117, 10 | |
| set $P1006, $P117 | |
| .lex "idx", $P1006 | |
| .annotate 'line', 22 | |
| new $P118, "Integer" | |
| assign $P118, 4 | |
| find_lex $P119, "idx" | |
| unless_null $P119, vivify_34 | |
| new $P119, "Undef" | |
| vivify_34: | |
| find_lex $P120, "arr" | |
| unless_null $P120, vivify_35 | |
| new $P120, "ResizablePMCArray" | |
| store_lex "arr", $P120 | |
| vivify_35: | |
| set $P120[$P119], $P118 | |
| .annotate 'line', 24 | |
| get_global $P121, "print" | |
| unless_null $P121, vivify_36 | |
| new $P121, "Undef" | |
| vivify_36: | |
| find_lex $P122, "idx" | |
| unless_null $P122, vivify_37 | |
| new $P122, "Undef" | |
| vivify_37: | |
| find_lex $P123, "arr" | |
| unless_null $P123, vivify_38 | |
| new $P123, "ResizablePMCArray" | |
| vivify_38: | |
| set $P124, $P123[$P122] | |
| unless_null $P124, vivify_39 | |
| new $P124, "Undef" | |
| vivify_39: | |
| $P121("ok ", $P124) | |
| .annotate 'line', 31 | |
| get_global $P129, "foo" | |
| unless_null $P129, vivify_43 | |
| new $P129, "Undef" | |
| vivify_43: | |
| $P129(5) | |
| .annotate 'line', 36 | |
| new $P130, "Integer" | |
| assign $P130, 1 | |
| set $P1009, $P130 | |
| .lex "a", $P1009 | |
| .annotate 'line', 37 | |
| new $P131, "Integer" | |
| assign $P131, 1 | |
| set $P1010, $P131 | |
| .lex "b", $P1010 | |
| .annotate 'line', 38 | |
| new $P132, "Integer" | |
| assign $P132, 0 | |
| set $P1011, $P132 | |
| .lex "c", $P1011 | |
| .annotate 'line', 39 | |
| new $P133, "Integer" | |
| assign $P133, 0 | |
| set $P1012, $P133 | |
| .lex "d", $P1012 | |
| .annotate 'line', 41 | |
| find_lex $P134, "a" | |
| unless_null $P134, vivify_44 | |
| new $P134, "Undef" | |
| vivify_44: | |
| unless $P134, if_1013_end | |
| .annotate 'line', 42 | |
| .const 'Sub' $P1015 = "12_1311623305.27346" | |
| capture_lex $P1015 | |
| $P1015() | |
| if_1013_end: | |
| .annotate 'line', 45 | |
| find_lex $P137, "c" | |
| unless_null $P137, vivify_46 | |
| new $P137, "Undef" | |
| vivify_46: | |
| isfalse $I100, $P137 | |
| unless $I100, if_1016_end | |
| .annotate 'line', 46 | |
| .const 'Sub' $P1018 = "13_1311623305.27346" | |
| capture_lex $P1018 | |
| $P1018() | |
| if_1016_end: | |
| .annotate 'line', 49 | |
| find_lex $P141, "a" | |
| unless_null $P141, vivify_48 | |
| new $P141, "Undef" | |
| vivify_48: | |
| if $P141, if_1020 | |
| set $P140, $P141 | |
| goto if_1020_end | |
| if_1020: | |
| find_lex $P142, "b" | |
| unless_null $P142, vivify_49 | |
| new $P142, "Undef" | |
| vivify_49: | |
| set $P140, $P142 | |
| if_1020_end: | |
| unless $P140, if_1019_end | |
| .annotate 'line', 50 | |
| .const 'Sub' $P1022 = "14_1311623305.27346" | |
| capture_lex $P1022 | |
| $P1022() | |
| if_1019_end: | |
| .annotate 'line', 53 | |
| find_lex $P146, "a" | |
| unless_null $P146, vivify_51 | |
| new $P146, "Undef" | |
| vivify_51: | |
| unless $P146, unless_1024 | |
| set $P145, $P146 | |
| goto unless_1024_end | |
| unless_1024: | |
| find_lex $P147, "c" | |
| unless_null $P147, vivify_52 | |
| new $P147, "Undef" | |
| vivify_52: | |
| set $P145, $P147 | |
| unless_1024_end: | |
| unless $P145, if_1023_end | |
| .annotate 'line', 54 | |
| .const 'Sub' $P1026 = "15_1311623305.27346" | |
| capture_lex $P1026 | |
| $P1026() | |
| if_1023_end: | |
| .annotate 'line', 57 | |
| find_lex $P151, "c" | |
| unless_null $P151, vivify_54 | |
| new $P151, "Undef" | |
| vivify_54: | |
| isfalse $I101, $P151 | |
| if $I101, if_1028 | |
| new $P150, 'Integer' | |
| set $P150, $I101 | |
| goto if_1028_end | |
| if_1028: | |
| find_lex $P152, "a" | |
| unless_null $P152, vivify_55 | |
| new $P152, "Undef" | |
| vivify_55: | |
| set $P150, $P152 | |
| if_1028_end: | |
| unless $P150, if_1027_end | |
| .annotate 'line', 58 | |
| .const 'Sub' $P1030 = "16_1311623305.27346" | |
| capture_lex $P1030 | |
| $P1030() | |
| if_1027_end: | |
| .annotate 'line', 61 | |
| find_lex $P155, "c" | |
| unless_null $P155, vivify_57 | |
| new $P155, "Undef" | |
| vivify_57: | |
| if $P155, if_1031 | |
| .annotate 'line', 64 | |
| .const 'Sub' $P1035 = "18_1311623305.27346" | |
| capture_lex $P1035 | |
| $P1035() | |
| goto if_1031_end | |
| if_1031: | |
| .annotate 'line', 62 | |
| .const 'Sub' $P1033 = "17_1311623305.27346" | |
| capture_lex $P1033 | |
| $P1033() | |
| if_1031_end: | |
| .annotate 'line', 68 | |
| new $P160, "Integer" | |
| assign $P160, 1 | |
| add $P161, $P160, 11 | |
| store_lex "a", $P161 | |
| .annotate 'line', 69 | |
| new $P162, "Integer" | |
| assign $P162, 4 | |
| mul $P163, $P162, 3 | |
| add $P164, $P163, 1 | |
| store_lex "b", $P164 | |
| .annotate 'line', 70 | |
| new $P165, "Integer" | |
| assign $P165, 15 | |
| sub $P166, $P165, 1 | |
| store_lex "c", $P166 | |
| .annotate 'line', 71 | |
| new $P167, "Integer" | |
| assign $P167, 45 | |
| mod $P168, $P167, 30 | |
| store_lex "d", $P168 | |
| .annotate 'line', 72 | |
| new $P169, "Integer" | |
| assign $P169, 3 | |
| add $P170, $P169, 1 | |
| new $P171, "Integer" | |
| assign $P171, 3 | |
| add $P172, $P171, 1 | |
| mul $P173, $P170, $P172 | |
| set_global "e", $P173 | |
| .annotate 'line', 74 | |
| get_global $P174, "print" | |
| unless_null $P174, vivify_60 | |
| new $P174, "Undef" | |
| vivify_60: | |
| find_lex $P175, "a" | |
| unless_null $P175, vivify_61 | |
| new $P175, "Undef" | |
| vivify_61: | |
| $P174("ok ", $P175) | |
| .annotate 'line', 75 | |
| get_global $P176, "print" | |
| unless_null $P176, vivify_62 | |
| new $P176, "Undef" | |
| vivify_62: | |
| find_lex $P177, "b" | |
| unless_null $P177, vivify_63 | |
| new $P177, "Undef" | |
| vivify_63: | |
| $P176("ok ", $P177) | |
| .annotate 'line', 76 | |
| get_global $P178, "print" | |
| unless_null $P178, vivify_64 | |
| new $P178, "Undef" | |
| vivify_64: | |
| find_lex $P179, "c" | |
| unless_null $P179, vivify_65 | |
| new $P179, "Undef" | |
| vivify_65: | |
| $P178("ok ", $P179) | |
| .annotate 'line', 77 | |
| get_global $P180, "print" | |
| unless_null $P180, vivify_66 | |
| new $P180, "Undef" | |
| vivify_66: | |
| find_lex $P181, "d" | |
| unless_null $P181, vivify_67 | |
| new $P181, "Undef" | |
| vivify_67: | |
| $P180("ok ", $P181) | |
| .annotate 'line', 78 | |
| get_global $P182, "print" | |
| unless_null $P182, vivify_68 | |
| new $P182, "Undef" | |
| vivify_68: | |
| get_global $P183, "e" | |
| unless_null $P183, vivify_69 | |
| new $P183, "Undef" | |
| vivify_69: | |
| $P182("ok ", $P183) | |
| .annotate 'line', 82 | |
| push_eh catch_1036 | |
| .annotate 'line', 83 | |
| .const 'Sub' $P1038 = "19_1311623305.27346" | |
| capture_lex $P1038 | |
| $P1038() | |
| pop_eh | |
| goto catch_1036_end | |
| catch_1036: | |
| .annotate 'line', 84 | |
| .lex "exc", $P1039 | |
| .annotate 'line', 82 | |
| .get_results ($P1040, $S0) | |
| store_lex 'exc', $P1040 | |
| .annotate 'line', 85 | |
| .const 'Sub' $P1042 = "20_1311623305.27346" | |
| capture_lex $P1042 | |
| $P1042() | |
| .annotate 'line', 82 | |
| pop_eh | |
| catch_1036_end: | |
| .annotate 'line', 92 | |
| new $P186, "Integer" | |
| assign $P186, 18 | |
| set $P1043, $P186 | |
| .lex "i", $P1043 | |
| new $P192, 'ExceptionHandler' | |
| set_label $P192, loop1046_handler | |
| $P192."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST) | |
| push_eh $P192 | |
| loop1046_test: | |
| find_lex $P187, "i" | |
| new $P188, "Integer" | |
| assign $P188, 20 | |
| isle $I102, $P187, $P188 | |
| unless $I102, loop1046_done | |
| loop1046_redo: | |
| .const 'Sub' $P1045 = "21_1311623305.27346" | |
| capture_lex $P1045 | |
| $P1045() | |
| loop1046_next: | |
| goto loop1046_test | |
| loop1046_handler: | |
| .local pmc exception | |
| .get_results (exception) | |
| getattribute $P193, exception, 'type' | |
| eq $P193, .CONTROL_LOOP_NEXT, loop1046_next | |
| eq $P193, .CONTROL_LOOP_REDO, loop1046_redo | |
| loop1046_done: | |
| pop_eh | |
| .annotate 'line', 96 | |
| new $P194, "Integer" | |
| assign $P194, 21 | |
| set_global "g", $P194 | |
| .annotate 'line', 106 | |
| new $P195, "Integer" | |
| assign $P195, 0 | |
| set $P1047, $P195 | |
| .lex "j", $P1047 | |
| .annotate 'line', 107 | |
| new $P204, 'ExceptionHandler' | |
| set_label $P204, loop1050_handler | |
| $P204."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST) | |
| push_eh $P204 | |
| loop1050_test: | |
| find_lex $P196, "j" | |
| unless_null $P196, vivify_73 | |
| new $P196, "Undef" | |
| vivify_73: | |
| new $P197, "Integer" | |
| assign $P197, 5 | |
| islt $I103, $P196, $P197 | |
| unless $I103, loop1050_done | |
| loop1050_redo: | |
| .annotate 'line', 109 | |
| .const 'Sub' $P1049 = "22_1311623305.27346" | |
| capture_lex $P1049 | |
| $P1049() | |
| loop1050_next: | |
| goto loop1050_test | |
| loop1050_handler: | |
| .local pmc exception | |
| .get_results (exception) | |
| getattribute $P205, exception, 'type' | |
| eq $P205, .CONTROL_LOOP_NEXT, loop1050_next | |
| eq $P205, .CONTROL_LOOP_REDO, loop1050_redo | |
| loop1050_done: | |
| pop_eh | |
| .annotate 'line', 1 | |
| .return ($I103) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "foo" :subid("11_1311623305.27346") :outer("10_1311623305.27346") | |
| .param pmc param_1008 :optional | |
| .param int has_param_1008 :opt_flag | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 27 | |
| if has_param_1008, optparam_40 | |
| new $P125, "Undef" | |
| set param_1008, $P125 | |
| optparam_40: | |
| .lex "a", param_1008 | |
| .annotate 'line', 28 | |
| get_global $P126, "print" | |
| unless_null $P126, vivify_41 | |
| new $P126, "Undef" | |
| vivify_41: | |
| find_lex $P127, "a" | |
| unless_null $P127, vivify_42 | |
| new $P127, "Undef" | |
| vivify_42: | |
| $P128 = $P126("ok ", $P127) | |
| .annotate 'line', 27 | |
| .return ($P128) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1014" :anon :subid("12_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 42 | |
| get_global $P135, "print" | |
| unless_null $P135, vivify_45 | |
| new $P135, "Undef" | |
| vivify_45: | |
| $P136 = $P135("ok 6") | |
| .return ($P136) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1017" :anon :subid("13_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 46 | |
| get_global $P138, "print" | |
| unless_null $P138, vivify_47 | |
| new $P138, "Undef" | |
| vivify_47: | |
| $P139 = $P138("ok 7") | |
| .return ($P139) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1021" :anon :subid("14_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 50 | |
| get_global $P143, "print" | |
| unless_null $P143, vivify_50 | |
| new $P143, "Undef" | |
| vivify_50: | |
| $P144 = $P143("ok 8") | |
| .return ($P144) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1025" :anon :subid("15_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 54 | |
| get_global $P148, "print" | |
| unless_null $P148, vivify_53 | |
| new $P148, "Undef" | |
| vivify_53: | |
| $P149 = $P148("ok 9") | |
| .return ($P149) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1029" :anon :subid("16_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 58 | |
| get_global $P153, "print" | |
| unless_null $P153, vivify_56 | |
| new $P153, "Undef" | |
| vivify_56: | |
| $P154 = $P153("ok 10") | |
| .return ($P154) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1034" :anon :subid("18_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 64 | |
| get_global $P158, "print" | |
| unless_null $P158, vivify_58 | |
| new $P158, "Undef" | |
| vivify_58: | |
| $P159 = $P158("ok 11") | |
| .return ($P159) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1032" :anon :subid("17_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 62 | |
| get_global $P156, "print" | |
| unless_null $P156, vivify_59 | |
| new $P156, "Undef" | |
| vivify_59: | |
| $P157 = $P156("nok 11") | |
| .return ($P157) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1037" :anon :subid("19_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 83 | |
| die "error" | |
| .return () | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1041" :anon :subid("20_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 85 | |
| get_global $P184, "print" | |
| unless_null $P184, vivify_70 | |
| new $P184, "Undef" | |
| vivify_70: | |
| $P185 = $P184("ok 17") | |
| .return ($P185) | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1044" :anon :subid("21_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 93 | |
| get_global $P189, "print" | |
| unless_null $P189, vivify_71 | |
| new $P189, "Undef" | |
| vivify_71: | |
| find_lex $P190, "i" | |
| unless_null $P190, vivify_72 | |
| new $P190, "Undef" | |
| vivify_72: | |
| $P189("ok ", $P190) | |
| .annotate 'line', 92 | |
| find_lex $P191, "i" | |
| inc $P191 | |
| .return () | |
| .end | |
| .HLL "squaak" | |
| .namespace [] | |
| .sub "_block1048" :anon :subid("22_1311623305.27346") :outer("10_1311623305.27346") | |
| .annotate 'file', "00-sanity.t" | |
| .annotate 'line', 109 | |
| get_global $P198, "print" | |
| unless_null $P198, vivify_74 | |
| new $P198, "Undef" | |
| vivify_74: | |
| find_lex $P199, "j" | |
| unless_null $P199, vivify_75 | |
| new $P199, "Undef" | |
| vivify_75: | |
| get_global $P200, "g" | |
| unless_null $P200, vivify_76 | |
| new $P200, "Undef" | |
| vivify_76: | |
| add $P201, $P199, $P200 | |
| $P198("ok ", $P201) | |
| .annotate 'line', 110 | |
| find_lex $P202, "j" | |
| unless_null $P202, vivify_77 | |
| new $P202, "Undef" | |
| vivify_77: | |
| add $P203, $P202, 1 | |
| store_lex "j", $P203 | |
| .annotate 'line', 109 | |
| .return ($P203) | |
| .end |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment