EnsureCapacity when writing SynConst.Strings

vipentti · Dec 23, 2023 · 43a62a6 · 43a62a6
1 parent 5d21083
commit 43a62a6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Visp.Compiler/Syntax/Syntax.fs b/src/Visp.Compiler/Syntax/Syntax.fs
@@ -161,6 +161,8 @@ type SynConst =
         | Decimal it -> sprintf "Decimal %A" it
         | String(text, k, r) ->
             let sb = PooledStringBuilder.Get()
+            // Reserve capacity for the text + all the extra data being written
+            sb.EnsureCapacity(text.Length + 60) |> ignore
             sb.Append "String (\"" |> ignore
 
             for ch in text do