summaryrefslogtreecommitdiff
path: root/src/settings.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/settings.sml')
-rw-r--r--src/settings.sml10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml
index a7f2cc9f..39398490 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -270,7 +270,8 @@ val checkMime = check
type protocol = {
name : string,
- link : string,
+ linkStatic : string,
+ linkDynamic : string,
persistent : bool
}
val protocols = ref ([] : protocol list)
@@ -281,7 +282,8 @@ fun clibFile s = OS.Path.joinDirFile {dir = Config.libC,
file = s}
val curProto = ref {name = "",
- link = "",
+ linkStatic = "",
+ linkDynamic = "",
persistent = false}
fun setProtocol name =
case getProtocol name of
@@ -427,4 +429,8 @@ val monoInline = ref 20
fun setMonoInline n = monoInline := n
fun getMonoInline () = !monoInline
+val staticLinking = ref false
+fun setStaticLinking b = staticLinking := b
+fun getStaticLinking () = !staticLinking
+
end