* also exit with an error if the dynamic library cannot be opened

git-svn-id: trunk@10558 -

tests/webtbs/tw7838b.pp

@@ -35,7 +35,11 @@ var
 begin
 
   lh:= loadlibrary(libname); // load dyn.so (unix) or dyn.dll (ms windows)
-  if lh = nilhandle then begin writeln('dyn library returned nil handle'); halt; end;
+  if lh = nilhandle then
+    begin
+      writeln('dyn library returned nil handle');
+      halt(1);
+    end;
   pointer(dllf):= getprocaddress(lh, 'dllf'); // get function from dll
 
   // call function in dll, which calls function in exe, and then prints