X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fwin32-os.c;h=1d5d5908f4263bb759ca37004e39e2a97092acba;hb=df2d632ead05d542d3cdd2d8d162060ee586c151;hp=49358a14370c9f93a9d61dd353c2f1755a7cd51c;hpb=d1a2fa597f993d56bcfa73a64509465d56b4ffac;p=sbcl.git

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 49358a1..1d5d590 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -70,6 +70,7 @@ os_vm_size_t os_vm_page_size;
 #include "gc.h"
 #include "gencgc-internal.h"
 #include <winsock2.h>
+#include <wincrypt.h>
 
 #if 0
 int linux_sparc_siginfo_bug = 0;
@@ -2080,6 +2081,9 @@ void scratch(void)
 
     /* a function from shell32.dll */
     SHGetFolderPathA(0, 0, 0, 0, 0);
+
+    /* from advapi32.dll */
+    CryptGenRandom(0, 0, 0);
 }
 
 char *