[Firebird-checkins] CVS: interbase/jrd gds.c,1.10,1.11

[Mike N. <ta...@us...>]

Build Number:520

Update of /cvsroot/firebird/interbase/jrd
In directory usw-pr-cvs1:/tmp/cvs-serv11791

Modified Files:
	gds.c 
Log Message:
Win32: Fallback to system known language for system error strings.

Index: gds.c
===================================================================
RCS file: /cvsroot/firebird/interbase/jrd/gds.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -U3 -r1.10 -r1.11
--- gds.c	2001/10/22 21:58:27	1.10
+++ gds.c	2001/10/25 09:07:41	1.11
@@ -2063,6 +2063,13 @@
                 GetUserDefaultLangID(),
                 s,
                 128,
+                NULL)) &&
+            !(l = (SSHORT)FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM,
+                NULL,
+                code,
+                NULL, /* TMN: Fallback to system known language */
+                s,
+                128,
                 NULL)))
             sprintf (s, "unknown Win32 error %ld", code);  /* TXNN */
         break;