hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor code change for type consisitency
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-09-23 20:31:11 +09:00
parent 2abda37861
commit 568166b4e2
5 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
pas/hcl.pas
View File

@ -1,6 +1,7 @@
unit HCL;
{$mode objfpc}{$H+}
{$macro on}
{$linklib hcl}
{$linklib c}
{$linklib dl}
@ -267,7 +268,7 @@ begin
(* included file *)
nf := NamedHandlePtr(arg^.includer^.handle);
basedir := SysUtils.ExtractFilePath(nf^.name);
name := UTF8Encode(arg^.name);
name := System.UTF8Encode(WideString(arg^.name));
if SysUtils.CompareStr(basedir, '') <> 0 then
name := SysUtils.ConcatPaths([basedir, name]);
end;