paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed compile under windows

Browse Source 
git-svn-id: trunk@40046 -
This commit is contained in:
Mattias Gaertner 2018-10-26 06:50:33 +00:00
parent 75e6356e02
commit 70a21c91c1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/pastojs/src/pas2jsfileutilswin.inc
View File

@ -277,7 +277,7 @@ var
{$endif}
CurDir, Fn: String;
begin
//writeln('LazFileUtils.ExpandFileNameUtf8');
//writeln('LazFileUtils.ExpandFileNamePJ');
//writeln('FileName = "',FileName,'"');
//writeln('BaseDir = "',BaseDir,'"');
@ -372,7 +372,7 @@ begin
Fn := ResolveDots(Fn);
//if BaseDir is something like 'z:foo\' or '\' then this needs to be expanded as well
if not FileNameIsAbsolute(Fn) then
Fn := ExpandFileNameUtf8(Fn, '');
Fn := ExpandFileNamePJ(Fn, '');
Result := Fn;
end;
end;