bootstrap.compiler: move GetLastError/FormatMessageW compilation before any other foreign words; add a similar shortlist for dlerror on unix as a safeguard

2011-09-13 13:17:42 -07:00 · 2011-09-13 13:17:42 -07:00 · 7f71ab3024
parent 1927cfeec1
commit 7f71ab3024
1 changed files with 9 additions and 4 deletions
--- a/basis/bootstrap/compiler/compiler.factor
+++ b/basis/bootstrap/compiler/compiler.factor
@ -107,16 +107,21 @@ gc

    "." write flush

-    {
-        malloc calloc free memcpy
-    } compile-unoptimized
-
    os windows? [
        "GetLastError" "windows.kernel32" lookup
        "FormatMessageW" "windows.kernel32" lookup
        2array compile-unoptimized
    ] when

+    os unix? [
+        "(dlerror)" "alien.libraries.unix" lookup
+        1array compile-unoptimized
+    ] when
+
+    {
+        malloc calloc free memcpy
+    } compile-unoptimized
+
    "." write flush

    vocabs [ words compile-unoptimized "." write flush ] each