bundle more precompiled to improve runtime efficiency

pine-vm · Dec 15, 2024 · 766d4fc · 766d4fc
1 parent bbd3347
commit 766d4fc
Show file tree

Hide file tree

Showing 8 changed files with 15,715 additions and 12 deletions.
diff --git a/implement/Pine.Core/PineVM/PopularExpression/Bytes.Encode.encodeCharAsBlob.json b/implement/Pine.Core/PineVM/PopularExpression/Bytes.Encode.encodeCharAsBlob.json
diff --git a/implement/Pine.Core/PineVM/PopularExpression/Bytes.Encode.encodeCharsAsBlobHelp.json b/implement/Pine.Core/PineVM/PopularExpression/Bytes.Encode.encodeCharsAsBlobHelp.json
diff --git a/implement/Pine.Core/PineVM/PopularExpression/List.filterMapHelp.json b/implement/Pine.Core/PineVM/PopularExpression/List.filterMapHelp.json
diff --git a/implement/Pine.Core/PineVM/PopularExpression/String.linesHelper.json b/implement/Pine.Core/PineVM/PopularExpression/String.linesHelper.json
diff --git a/implement/Pine.Core/PineVM/PopularValue/Basics.idiv.exposed.json b/implement/Pine.Core/PineVM/PopularValue/Basics.idiv.exposed.json
diff --git a/implement/pine/Elm/elm-compiler/elm-kernel-modules/Bytes/Encode.elm b/implement/pine/Elm/elm-compiler/elm-kernel-modules/Bytes/Encode.elm
@@ -210,13 +210,19 @@ string (String chars) =
 
 encodeCharsAsBlob : List Char -> Int
 encodeCharsAsBlob chars =
-    if chars == [] then
-        -- 'concat' on an empty list would not yield a blob
-        emptyBlob
+    encodeCharsAsBlobHelp emptyBlob chars
 
-    else
-        Pine_kernel.concat
-            (List.map encodeCharAsBlob chars)
+
+encodeCharsAsBlobHelp : Int -> List Char -> Int
+encodeCharsAsBlobHelp acc chars =
+    case chars of
+        [] ->
+            acc
+
+        char :: rest ->
+            encodeCharsAsBlobHelp
+                (Pine_kernel.concat [ acc, encodeCharAsBlob char ])
+                rest
 
 
 encodeCharAsBlob : Char -> Int

diff --git a/implement/pine/Elm/elm-compiler/src/ElmInteractiveKernelModules.elm b/implement/pine/Elm/elm-compiler/src/ElmInteractiveKernelModules.elm
@@ -236,13 +236,19 @@ string (String chars) =
 
 encodeCharsAsBlob : List Char -> Int
 encodeCharsAsBlob chars =
-    if chars == [] then
-        -- 'concat' on an empty list would not yield a blob
-        emptyBlob
+    encodeCharsAsBlobHelp emptyBlob chars
 
-    else
-        Pine_kernel.concat
-            (List.map encodeCharAsBlob chars)
+
+encodeCharsAsBlobHelp : Int -> List Char -> Int
+encodeCharsAsBlobHelp acc chars =
+    case chars of
+        [] ->
+            acc
+
+        char :: rest ->
+            encodeCharsAsBlobHelp
+                (Pine_kernel.concat [ acc, encodeCharAsBlob char ])
+                rest
 
 
 encodeCharAsBlob : Char -> Int