From 6de799c230c675c7c6efe00744a54ed48da9603f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 5 Oct 2005 04:12:38 +0000 Subject: [PATCH] Changed FormatMessage alien-invoke to last_error() alien-invoke in native/misc.c --- library/win32/win32-errors.factor | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/library/win32/win32-errors.factor b/library/win32/win32-errors.factor index 18f73a1316..f00c7fa040 100644 --- a/library/win32/win32-errors.factor +++ b/library/win32/win32-errors.factor @@ -63,17 +63,8 @@ CONSTANT: WAIT_TIMEOUT 258 ; : GetLastError ( -- int ) "int" "kernel32" "GetLastError" [ ] alien-invoke ; -: FormatMessage ( flags source messageid langid buf size args -- int ) - "int" "kernel32" "FormatMessageA" - [ "int" "void*" "int" "int" "void*" "int" "void*" ] - alien-invoke ; - : win32-error-message ( id -- string ) - 4096 dup >r >r >r - FORMAT_MESSAGE_FROM_SYSTEM f r> - LANG_NEUTRAL SUBLANG_DEFAULT MAKELANGID r> buffer-ptr 4096 f - FormatMessage r> 2dup buffer-reset nip dup buffer-contents - swap buffer-free ; + "char*" f "last_error" [ ] alien-invoke ; : win32-throw-error ( -- ) GetLastError win32-error-message throw ;