浏览代码

use lazy binding - resolve symbols only at the user request

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7857 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova 7 年之前
父节点
当前提交
837a38bba5
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/Unix.HostLibs.Mod

+ 1 - 1
source/Unix.HostLibs.Mod

@@ -35,7 +35,7 @@ CONST
 	*)
 	*)
 	PROCEDURE LoadLibrary*(CONST fileName: ARRAY OF CHAR; VAR lib: LibHandle): BOOLEAN;
 	PROCEDURE LoadLibrary*(CONST fileName: ARRAY OF CHAR; VAR lib: LibHandle): BOOLEAN;
 	BEGIN
 	BEGIN
-		lib := Unix.Dlopen(fileName, 0x0002);
+		lib := Unix.Dlopen(fileName, 0x0001); (* RTLD_LAZY: use lazy binding - resolve symbols only at the user request *)
 		RETURN (lib # NilLibHandle);
 		RETURN (lib # NilLibHandle);
 	FINALLY
 	FINALLY
 		RETURN FALSE;
 		RETURN FALSE;