WebSVN – Kolibri OS – Diff – /programs/cmm/lib/dll.h

 	#define _TEXT_ERROR_ADD "'Error while loading library\n"
 #endif
-char a_libdir[43]  = "/sys/lib/\0";
-:inline void error_init(dword lirary_path)
-{
-	char error_text[1024];
-    strcpy(#error_text, _TEXT_ERROR_ADD);
-    strcat(#error_text, lirary_path);
-    strcat(#error_text, "' -E");
-	notify(#error_text);
 char a_libdir[43]  = "/sys/lib/\0";
 // stdcall with 1 parameter
 :void dll_Load() {
 asm {
         leave
         ret     8
+    }
+}
-:int load_dll2(dword dllname, import_table, byte need_init)
+:void load_dll(dword dllname, import_table, byte need_init)
-{
    //dword dllentry=0;
 // load DLL
         $mov     eax, 68
         $mov     ebx, 19
         ECX=dllname;
         $jmp     import_loop01
 @import_done01:
         #ifndef NO_DLL_INIT
         IF (need_init) dll_Init (DSDWORD[EDX+4]);
         #endif
-        return 0;
+        return;
 @exit01:
-        return -1;
+        error_init(dllname);
+}
-:byte load_dll(dword dllname, import_table, byte need_init)
-{
-	if (load_dll2(dllname, import_table, need_init))
+:inline void error_init(dword lirary_path)
-	{
+{
+    char error_text[1024];
+    strcpy(#error_text, _TEXT_ERROR_ADD);
-		error_init(dllname);
+    strcat(#error_text, lirary_path);
-		return false;
-	}
+    strcat(#error_text, "' -E");
-	return true;
+    notify(#error_text);
+}

Subversion Repositories Kolibri OS