aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

[CEdit, FB2 Reader, Oberon07]: fix path

Browse Source 
git-svn-id: svn://kolibrios.org@9577 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton Krotov
2022-01-05 20:32:53 +00:00
parent 31c56c9a2c
commit bbdc08fc59
20 changed files with 115 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
programs/develop/cedit/SRC/KOSAPI.ob07
View File

@@ -1,7 +1,7 @@
(*
BSD 2-Clause License
Copyright (c) 2018-2019, Anton Krotov
Copyright (c) 2018-2019, 2022 Anton Krotov
All rights reserved.
*)
@@ -338,8 +338,10 @@ END GetStr;
PROCEDURE [stdcall] dll_Load* (import_table: INTEGER): INTEGER;
CONST
path = "/sys/lib/";
VAR
imp, lib, exp, proc, res: INTEGER;
imp, lib, exp, proc, res, pathLen: INTEGER;
fail, done: BOOLEAN;
procname, libname: STRING;
@@ -348,12 +350,13 @@ BEGIN
fail := FALSE;
done := FALSE;
res := 0;
libname := "/rd/1/lib/";
libname := path;
pathLen := LENGTH(libname);
REPEAT
SYSTEM.GET(import_table, imp);
IF imp # 0 THEN
SYSTEM.GET(import_table + 4, lib);
GetStr(lib, 10, libname);
GetStr(lib, pathLen, libname);
exp := sysfunc3(68, 19, SYSTEM.ADR(libname[0]));
fail := exp = 0;
ELSE