チェンジセット 1720

差分発生行の前後
無視リスト:
コミット日時:
2008/10/27 11:17:27 (3 年前)
コミッタ:
mzp
ログメッセージ:

hasnext2まで完了

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • ocaml/abc2xml/code.ml

    r1712 r1720  
    7070                      "reg"    , Int32.to_string reg; 
    7171                      "line"   , Int32.to_string line] 
     72  | `DebugFile file -> 
     73      op_a "OpDebugFile" ["file",file] 
     74  | `DebugLine line -> 
     75      op_a "OpDebugLine" ["line",line] 
     76  | `DecLocal address -> 
     77      op_a "OpDecLocal" ["address",address] 
     78  | `DecLocal_i address -> 
     79      op_a "OpDecLocalI" ["address",address] 
     80  | `Decrement -> 
     81      op "OpDecrement" 
     82  | `Decrement_i -> 
     83      op "OpDecrementI" 
     84  | `DeleteProperty name -> 
     85      op_a "OpDeleteProperty" ["name",name] 
     86  | `Divide -> 
     87      op "OpDivide" 
     88  | `Dup -> 
     89      op "OpDup" 
     90  | `Dxns -> 
     91      op "OpDXNs" 
     92  | `DxnsLate -> 
     93      op "OpDXNsLate" 
     94  | `Equals -> 
     95      op "OpEquals" 
     96  | `Esc_xattr -> 
     97      op "OpEscXattr" 
     98  | `Esc_xelem -> 
     99      op "OpEscXelem" 
     100  | `FindProperty name -> 
     101      op_a "OpFindProperty" ["name",name] 
     102  | `FindPropStrict name -> 
     103      op_a "OpFindPropStrict" ["name",name] 
     104  | `GetDescendants name -> 
     105      op_a "OpGetDescendants" ["name",name] 
     106  | `GetGlobalScope -> 
     107      op "OpGetGlobalScope" 
     108  | `GetGlobalSlot slot_id -> 
     109      op_a "OpGetGlobalSlot" ["soltID",slot_id] 
     110  | `GetLex name -> 
     111      op_a "OpGetLex" ["name",name] 
     112  | `GetLocal address -> 
     113      op_a "OpGetLocal" ["address",address] 
     114  | `GetLocal_0 -> 
     115      op "OpGetLocal0" 
     116  | `GetLocal_1 -> 
     117      op "OpGetLocal1" 
     118  | `GetLocal_2 -> 
     119      op "OpGetLocal2" 
     120  | `GetLocal_3 -> 
     121      op "OpGetLocal3" 
     122  | `GetProperty name -> 
     123      op_a "OpGetProperty" ["name",name] 
     124  | `GetScopeObject scope_index -> 
     125      attr "OpGetScopeObject" ["scopeIndex",scope_index] 
     126  | `GetSlot slot_id -> 
     127      op_a "OpGetSlot" ["slotID",slot_id] 
     128  | `GetSuper name -> 
     129      op_a "OpGetSuper" ["name",name] 
     130  | `GreaterEquals -> 
     131      op "OpGreaterEquals" 
     132  | `GreaterThan -> 
     133      op "OpGreaterThan" 
     134  | `HasNext  -> 
     135      op "OpHasNext" 
     136  | `HasNext2 (object_reg,index_reg) -> 
     137      op_a "OpHasNext2" ["object",object_reg;"index",index_reg] 
     138       
    72139 
    73140 
    74  
    75  
    76        
    77  

  • ocaml/abc2xml/disasm.ml

    r1712 r1720  
    7474        `DebugLine linenum 
    7575    | [< _ = op 0x94; index = u30 >] -> 
    76         `Declocal index 
     76        `DecLocal index 
    7777    | [< _ = op 0xc3; index = u30 >] -> 
    78         `Declocal_i index 
     78        `DecLocal_i index 
    7979    | [< _ = op 0x93 >] -> 
    8080        `Decrement 
    …… 
    131131    | [< _ = op 0xb0 >] -> 
    132132        `GreaterEquals  
     133    | [< _ = op 0xaf >] -> 
     134        `GreaterThan 
    133135    | [< _ = op 0x1f >] -> 
    134136        `HasNext 

  • ocaml/abc2xml/test/codeTest.ml

    r1712 r1720  
    1414     "constructprop" >:: 
    1515       (fun _ -> 
    16           ok (attr "OpConstrutProp" ["name","1";"argc","42"]) @@ 
     16          ok (attr "OpConstructProp" ["name","1";"argc","42"]) @@ 
    1717            Code.to_xml (`ConstructProp (1l,42l))); 
    1818     "getlex" >::