about summary refs log tree commit diff stats
path: root/054string-equal.subx
diff options
context:
space:
mode:
Diffstat (limited to '054string-equal.subx')
-rw-r--r--054string-equal.subx12
1 files changed, 6 insertions, 6 deletions
diff --git a/054string-equal.subx b/054string-equal.subx
index 2dfad4b5..70fa8901 100644
--- a/054string-equal.subx
+++ b/054string-equal.subx
@@ -175,7 +175,7 @@ test-compare-inequal-strings-equal-lengths:
     c3/return
 
 # helper for later tests
-check-string-equal:  # s : (address string), expected : (address string), msg : (address string)
+check-strings-equal:  # s : (address string), expected : (address string), msg : (address string)
     # . prologue
     55/push-ebp
     89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
@@ -198,7 +198,7 @@ check-string-equal:  # s : (address string), expected : (address string), msg :
     e8/call  check-ints-equal/disp32
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-$check-string-equal:end:
+$check-strings-equal:end:
     # . restore registers
     58/pop-to-eax
     # . epilogue
@@ -207,18 +207,18 @@ $check-string-equal:end:
     c3/return
 
 # test the helper
-test-check-string-equal:
-    # check-string-equal?("Abc", "Abc")
+test-check-strings-equal:
+    # check-strings-equal?("Abc", "Abc")
     # . . push args
     68/push  "Abc"/imm32
     68/push  "Abc"/imm32
     # . . call
-    e8/call  check-string-equal/disp32
+    e8/call  check-strings-equal/disp32
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
     # check-ints-equal(eax, 1, msg)
     # . . push args
-    68/push  "F - test-check-string-equal"/imm32
+    68/push  "F - test-check-strings-equal"/imm32
     68/push  0/imm32/false
     50/push-eax
     # . . call