diff options
Diffstat (limited to 'apps/mu.subx')
| -rw-r--r-- | apps/mu.subx | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/apps/mu.subx b/apps/mu.subx index 3cff705d..b3bb3fa8 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -845,12 +845,12 @@ test-function-header-with-arg: # convert (populate-mu-function-header _test-input-stream %ecx) # check result - (check-string-equal *ecx "foo" "F - test-function-header-with-arg/name") # Function-name + (check-strings-equal *ecx "foo" "F - test-function-header-with-arg/name") # Function-name # edx : (address list var) = result->inouts 8b/-> *(ecx+8) 2/r32/edx # Function-inouts # ebx : (address var) = result->inouts->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "n" "F - test-function-header-with-arg/inout:0") # Var-name + (check-strings-equal *ebx "n" "F - test-function-header-with-arg/inout:0") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type") # Var-type # . epilogue 89/<- %esp 5/r32/ebp @@ -872,24 +872,24 @@ test-function-header-with-multiple-args: # convert (populate-mu-function-header _test-input-stream %ecx) # check result - (check-string-equal *ecx "foo") # Function-name + (check-strings-equal *ecx "foo") # Function-name # edx : (address list var) = result->inouts 8b/-> *(ecx+8) 2/r32/edx # Function-inouts # ebx : (address var) = result->inouts->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0") # Var-name + (check-strings-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type") # Var-type # edx = result->inouts->next 8b/-> *(edx+4) 2/r32/edx # List-next # ebx = result->inouts->next->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1") # Var-name + (check-strings-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:1/type") # Var-type # edx = result->inouts->next->next 8b/-> *(edx+4) 2/r32/edx # List-next # ebx = result->inouts->next->next->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2") # Var-name + (check-strings-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:2/type") # Var-type # . epilogue 89/<- %esp 5/r32/ebp @@ -911,39 +911,39 @@ test-function-with-multiple-args-and-outputs: # convert (populate-mu-function-header _test-input-stream %ecx) # check result - (check-string-equal *ecx "foo") # Function-name + (check-strings-equal *ecx "foo") # Function-name # edx : (address list var) = result->inouts 8b/-> *(ecx+8) 2/r32/edx # Function-inouts # ebx : (address var) = result->inouts->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0") # Var-name + (check-strings-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type") # Var-type # edx = result->inouts->next 8b/-> *(edx+4) 2/r32/edx # List-next # ebx = result->inouts->next->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1") # Var-name + (check-strings-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:1/type") # Var-type # edx = result->inouts->next->next 8b/-> *(edx+4) 2/r32/edx # List-next # ebx = result->inouts->next->next->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2") # Var-name + (check-strings-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:2/type") # Var-type # edx : (address list var) = result->outputs 8b/-> *(ecx+0xc) 2/r32/edx # Function-outputs # ebx : (address var) = result->outputs->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "x" "F - test-function-header-with-multiple-args/output:0") # Var-name + (check-strings-equal *ebx "x" "F - test-function-header-with-multiple-args/output:0") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/output:0/type") # Var-type - (check-string-equal *(ebx+0x10) "ecx" "F - test-function-header-with-arg/output:0/register") # Var-register + (check-strings-equal *(ebx+0x10) "ecx" "F - test-function-header-with-arg/output:0/register") # Var-register # edx = result->outputs->next 8b/-> *(edx+4) 2/r32/edx # List-next # ebx = result->outputs->next->value 8b/-> *edx 3/r32/ebx # List-value - (check-string-equal *ebx "y" "F - test-function-header-with-multiple-args/output:1") # Var-name + (check-strings-equal *ebx "y" "F - test-function-header-with-multiple-args/output:1") # Var-name (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/output:1/type") # Var-type - (check-string-equal *(ebx+0x10) "edx" "F - test-function-header-with-arg/output:0/register") # Var-register + (check-strings-equal *(ebx+0x10) "edx" "F - test-function-header-with-arg/output:0/register") # Var-register # . epilogue 89/<- %esp 5/r32/ebp 5d/pop-to-ebp @@ -1200,7 +1200,7 @@ test-parse-var-with-type: # (parse-var-with-type %ecx _test-input-stream) 8b/-> *eax 2/r32/edx # Var-name - (check-string-equal %edx "x" "F - test-var-with-type/name") + (check-strings-equal %edx "x" "F - test-var-with-type/name") 8b/-> *(eax+4) 2/r32/edx # Var-type (check-ints-equal %edx 1 "F - test-var-with-type/type") # . epilogue @@ -1227,9 +1227,9 @@ test-parse-var-with-type-and-register: # (parse-var-with-type %ecx _test-input-stream) 8b/-> *eax 2/r32/edx # Var-name - (check-string-equal %edx "x" "F - test-var-with-type-and-register/name") + (check-strings-equal %edx "x" "F - test-var-with-type-and-register/name") 8b/-> *(eax+0x10) 2/r32/edx # Var-register - (check-string-equal %edx "eax" "F - test-var-with-type-and-register/register") + (check-strings-equal %edx "eax" "F - test-var-with-type-and-register/register") 8b/-> *(eax+4) 2/r32/edx # Var-type (check-ints-equal %edx 1 "F - test-var-with-type-and-register/type") # . epilogue @@ -1256,9 +1256,9 @@ test-parse-var-with-trailing-characters: # (parse-var-with-type %ecx _test-input-stream) 8b/-> *eax 2/r32/edx # Var-name - (check-string-equal %edx "x" "F - test-var-with-trailing-characters/name") + (check-strings-equal %edx "x" "F - test-var-with-trailing-characters/name") 8b/-> *(eax+0x10) 2/r32/edx # Var-register - (check-string-equal %edx "eax" "F - test-var-with-trailing-characters/register") + (check-strings-equal %edx "eax" "F - test-var-with-trailing-characters/register") 8b/-> *(eax+4) 2/r32/edx # Var-type (check-ints-equal %edx 1 "F - test-var-with-trailing-characters/type") # . epilogue |