paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 15:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed writing workingdirectory

Browse Source
This commit is contained in:
mattias 2019-04-08 20:50:26 +00:00
parent 389c496b28
commit 0ece012627
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/packages/pastojs/src/pas2jsfilecache.pp
View File

@ -1494,7 +1494,7 @@ procedure TPas2jsFilesCache.WriteFoldersAndSearchPaths;
var
i: Integer;
begin
WriteFolder('working directory',GetCurrentDirPJ);
WriteFolder('working directory',BaseDirectory);
for i:=0 to ForeignUnitPaths.Count-1 do
WriteFolder('foreign unit path',ForeignUnitPaths[i]);
for i:=0 to UnitPaths.Count-1 do

5
compiler/packages/pastojs/src/pas2jsfs.pp
View File

@ -31,14 +31,15 @@ uses
Classes, SysUtils, PScanner, fpjson;
const // Messages
nUsingPath = 104; sUsingPath = 'Using %s: "%s"';
nFolderNotFound = 105; sFolderNotFound = '%s not found: %s';
nIncludeSearch = 201; sIncludeSearch = 'Include file search: %s';
nUnitSearch = 202; sUnitSearch = 'Unitsearch: %s';
nSearchingFileFound = 203; sSearchingFileFound = 'Searching file: %s... found';
nSearchingFileNotFound = 204; sSearchingFileNotFound = 'Searching file: %s... not found';
nDuplicateFileFound = 205; sDuplicateFileFound = 'Duplicate file found: "%s" and "%s"';
nCustomJSFileNotFound = 206; sCustomJSFileNotFound = 'custom JS file not found: "%s"';
nUsingPath = 104; sUsingPath = 'Using %s: "%s"';
nFolderNotFound = 105; sFolderNotFound = '%s not found: %s';
Type
// Forward definitions