paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed writing workingdirectory

Browse Source 
git-svn-id: trunk@41850 -
This commit is contained in:
Mattias Gaertner 2019-04-08 14:58:15 +00:00
parent cae2c94e90
commit 851740a945
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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