Convert to use symbols instead of magic numbers.

perl6 · Oct 13, 2009 · 45fcb57 · 45fcb57
1 parent 348b39f
commit 45fcb57
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -53,6 +53,7 @@ P6REGEX_SOURCES = \
   src/parrot/p6regex-grammar.pir \
   src/PAST/Regex.pir \
   src/PAST/Compiler-Regex.pir \
+  src/Regex/constants.pir \
   src/Regex/Cursor.pir \
   src/Regex/Cursor-builtins.pir \
   src/Regex/Match.pir \

diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
@@ -24,6 +24,7 @@ Return the POST representation of the regex AST rooted by C<node>.
 =cut
 
 .include 'cclass.pasm'
+.include 'src/Regex/constants.pir'
 
 .namespace ['PAST';'Compiler']
 
@@ -120,8 +121,8 @@ Return the POST representation of the regex AST rooted by C<node>.
     ops.'push'($P0)
     ops.'push'(faillabel)
     self.'!cursorop'(ops, '!mark_fail', 4, rep, pos, '$I10', '$P10', 0)
-    ops.'push_pirop'('lt', pos, -1, donelabel)
-    ops.'push_pirop'('eq', pos, -1, faillabel)
+    ops.'push_pirop'('lt', pos, CURSOR_FAIL, donelabel)
+    ops.'push_pirop'('eq', pos, CURSOR_FAIL, faillabel)
     ops.'push_pirop'('jump', '$I10')
     ops.'push'(donelabel)
     self.'!cursorop'(ops, '!cursor_fail', 0)