produce some trace output in case if failed to load a library

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7840 8c9fc860-2736-0410-a75d-ab315db34111

source/Win.HostLibs.Mod

@@ -22,9 +22,14 @@ CONST
 		Return: TRUE in case of success
 	*)
 	PROCEDURE LoadLibrary*(CONST fileName: ARRAY OF CHAR; VAR lib: LibHandle): BOOLEAN;
+	VAR err: LONGINT;
 	BEGIN
 		lib := Kernel32.LoadLibrary(fileName);
-		RETURN (lib # NilLibHandle);
+		IF lib # NilLibHandle THEN
+			RETURN TRUE;
+		END;
+		err := Kernel32.GetLastError();
+		TRACE(fileName, err);
 	FINALLY
 		RETURN FALSE;
 	END LoadLibrary;
@@ -33,7 +38,7 @@ CONST
 		Free a previously loaded dynamic library
 
 		lib: library handle
-		
+
 		Return: TRUE in case of success
 	*)
 	PROCEDURE FreeLibrary*(CONST lib: LibHandle): BOOLEAN;