This commit is contained in:
parent
48aabc860a
commit
57714dd4fc
|
@ -2382,94 +2382,122 @@ test-compute-width:
|
|||
89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP
|
||||
$test-compute-width:imm8:
|
||||
# EAX = compute-width("0x2/imm8")
|
||||
# . . push args
|
||||
68/push "0x2/imm8"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 1, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: 0x2/imm8"/imm32
|
||||
50/push-EAX
|
||||
68/push 1/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:imm16:
|
||||
# EAX = compute-width("4/imm16")
|
||||
# . . push args
|
||||
68/push "4/imm16"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 2, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: 4/imm16"/imm32
|
||||
50/push-EAX
|
||||
68/push 2/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:imm32:
|
||||
# EAX = compute-width("4/imm32")
|
||||
# . . push args
|
||||
68/push "4/imm32"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 4, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: 4/imm32"/imm32
|
||||
50/push-EAX
|
||||
68/push 4/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:disp8:
|
||||
# EAX = compute-width("foo/disp8")
|
||||
# . . push args
|
||||
68/push "foo/disp8"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 1, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: foo/disp8"/imm32
|
||||
50/push-EAX
|
||||
68/push 1/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:disp16:
|
||||
# EAX = compute-width("foo/disp16")
|
||||
# . . push args
|
||||
68/push "foo/disp16"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 2, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: foo/disp16"/imm32
|
||||
50/push-EAX
|
||||
68/push 2/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:disp32:
|
||||
# EAX = compute-width("foo/disp32")
|
||||
# . . push args
|
||||
68/push "foo/disp32"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 4, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: foo/disp32"/imm32
|
||||
50/push-EAX
|
||||
68/push 4/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
$test-compute-width:no-metadata:
|
||||
# EAX = compute-width("45")
|
||||
# . . push args
|
||||
68/push "45"/imm32
|
||||
# . . call
|
||||
e8/call compute-width/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 1, msg)
|
||||
# . . push args
|
||||
68/push "F - test-compute-width: 45 (no metadata)"/imm32
|
||||
50/push-EAX
|
||||
68/push 1/imm32
|
||||
# . . call
|
||||
e8/call check-ints-equal/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP
|
||||
# . epilog
|
||||
89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP
|
||||
|
@ -2519,9 +2547,11 @@ $test-is-label?:true:
|
|||
50/push-EAX
|
||||
89/copy 3/mod/direct 1/rm32/ECX . . . 4/r32/ESP . . # copy ESP to ECX
|
||||
# is-label?(slice/ECX)
|
||||
# . . push args
|
||||
51/push-ECX
|
||||
# . . call
|
||||
e8/call is-label?/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 1, msg)
|
||||
# . . push args
|
||||
|
@ -2543,9 +2573,11 @@ $test-is-label?:false:
|
|||
50/push-EAX
|
||||
89/copy 3/mod/direct 1/rm32/ECX . . . 4/r32/ESP . . # copy ESP to ECX
|
||||
# is-label?(slice/ECX)
|
||||
# . . push args
|
||||
51/push-ECX
|
||||
# . . call
|
||||
e8/call is-label?/disp32
|
||||
# . discard args
|
||||
# . . discard args
|
||||
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP
|
||||
# check-ints-equal(EAX, 0, msg)
|
||||
# . . push args
|
||||
|
|
Loading…
Reference in New Issue