done with allowing different types of endMarkers

2025-10-07 14:44:40 +01:00
parent f085860f20
commit 7a72bc2ed1
1 changed files with 4 additions and 2 deletions
--- a/fcore/search-list/dfa-gen.sml
+++ b/fcore/search-list/dfa-gen.sml
@@ -634,8 +634,10 @@ struct
            val fpList = getFollowsForPositionAndChar (regex, hd, char)
            val {sawConcat, follows, charIsMatch} = fpList
            val follows =
-              if charIsMatch andalso not sawConcat then 0 :: follows
-              else follows
+              if charIsMatch andalso not sawConcat then
+                (Char.ord Fn.endMarker) :: follows
+              else
+                follows

            val followSet =
              List.foldl