paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 14:30:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed uninitialized result

Browse Source 
git-svn-id: trunk@40620 -
This commit is contained in:
Mattias Gaertner 2018-12-23 16:34:29 +00:00
parent 1d7f5fa812
commit 765fdb7641
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pastojs/src/fppas2js.pp
View File

@ -374,6 +374,9 @@ ToDos:
- functions - functions
- rtti - rtti
- bug: DoIt(typeinfo(i)) where DoIt is in another unit and has TTypeInfo - bug: DoIt(typeinfo(i)) where DoIt is in another unit and has TTypeInfo
- $OPTIMIZATION ON|OFF
- $optimization REMOVEEMPTYPROCS
- $optimization REMOVEEMPTYPROCS,RemoveNotUsedDeclarations-
- setlength(dynarray) modeswitch to not create a copy - setlength(dynarray) modeswitch to not create a copy
- 'new', 'Function' -> class var use .prototype - 'new', 'Function' -> class var use .prototype
- static arrays - static arrays

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

@ -1896,7 +1896,7 @@ var
// search in Dir for pp, pas, p times given case, lower case, upper case // search in Dir for pp, pas, p times given case, lower case, upper case
begin begin
Dir:=IncludeTrailingPathDelimiter(Dir); Dir:=IncludeTrailingPathDelimiter(Dir);
if IndexOfFile(SearchedDirs,Dir)>=0 then exit; if IndexOfFile(SearchedDirs,Dir)>=0 then exit(false);
SearchedDirs.Add(Dir); SearchedDirs.Add(Dir);
Filename:=Dir+aUnitname+'.pp'; Filename:=Dir+aUnitname+'.pp';
if SearchLowUpCase(Filename) then exit(true); if SearchLowUpCase(Filename) then exit(true);