use slnx

Author: Austaras

ACompiler.sln

@@ -0,0 +1,21 @@
+<Solution>
+  <Configurations>
+    <Platform Name="Any CPU" />
+    <Platform Name="x64" />
+    <Platform Name="x86" />
+  </Configurations>
+  <Folder Name="/src/">
+    <Project Path="src/CodeGen/CodeGen.fsproj" />
+    <Project Path="src/Common/Common.fsproj" />
+    <Project Path="src/Optimize/Optimize.fsproj" />
+    <Project Path="src/Semantic/Semantic.fsproj" />
+    <Project Path="src/Snapshot/Snapshot.fsproj" />
+    <Project Path="src/Syntax/Syntax.fsproj" />
+  </Folder>
+  <Folder Name="/test/">
+    <Project Path="test/CodeGen/CodeGen.Test.fsproj" />
+    <Project Path="test/Optimize/Optimize.Test.fsproj" />
+    <Project Path="test/Semantic/Semantic.Test.fsproj" />
+    <Project Path="test/Syntax/Syntax.Test.fsproj" />
+  </Folder>
+</Solution>

ACompiler.slnx

@@ -287,7 +287,7 @@ type Lexer(input: string, error: ResizeArray<Error>) =
                             if j = len then
                                 raise (ParserExp(IncompleteMultilineComment(Span.Make pos (j - 1))))
                             else if j + 1 < len && input[j] = '*' && input[j + 1] = '/' then
-                                let token = Comment(MultiLine, input[pos .. (j + 1)])
+                                let token = Comment(MultiLine, input[(pos + 2) .. (j - 1)])
                                 token, j + 1
                             else
                                 takeWhen (j + 1)

src/Syntax/Lexer.fs

@@ -89,7 +89,7 @@ let Composite () =
     )
 
 [<Fact>]
-let Comment =
+let Comment () =
     Assert.Equivalent(
         [| Identifier "aaa"; Comment(SingleLine, " single comment a + b") |],
         lexStripSpan "aaa // single comment a + b"