Browse Source

pastojs: fixed compile under windows

git-svn-id: trunk@40046 -
Mattias Gaertner 6 years ago
parent
commit
70a21c91c1
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/pastojs/src/pas2jsfileutilswin.inc

+ 2 - 2
packages/pastojs/src/pas2jsfileutilswin.inc

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