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

pastojs: load include file from cache

Browse Source 
git-svn-id: trunk@40173 -
This commit is contained in:
Mattias Gaertner 2018-11-01 23:41:06 +00:00
parent 571094912b
commit f116d51fd9
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-passrc/src/pscanner.pp
View File

@ -2735,10 +2735,10 @@ begin
begin
if FIncludeStack.Count > 0 then
begin
CurSourceFile.{$ifdef pas2js}Destroy{$else}Free{$endif};
IncludeStackItem :=
TIncludeStackItem(FIncludeStack[FIncludeStack.Count - 1]);
FIncludeStack.Delete(FIncludeStack.Count - 1);
CurSourceFile.{$ifdef pas2js}Destroy{$else}Free{$endif};
FCurSourceFile := IncludeStackItem.SourceFile;
FCurFilename := IncludeStackItem.Filename;
FCurToken := IncludeStackItem.Token;
@ -3078,6 +3078,8 @@ end;
procedure TPascalScanner.HandleIncludeFile(Param: String);
var
NewSourceFile: TLineReader;
begin
if Length(Param)>1 then
begin
@ -3088,10 +3090,12 @@ begin
Param:=copy(Param,2,length(Param)-2);
end;
end;
FCurSourceFile := FileResolver.FindIncludeFile(Param);
if not Assigned(FCurSourceFile) then
NewSourceFile := FileResolver.FindIncludeFile(Param);
if not Assigned(NewSourceFile) then
Error(nErrIncludeFileNotFound, SErrIncludeFileNotFound, [Param]);
PushStackItem;
FCurSourceFile:=NewSourceFile;
FCurFilename := Param;
if FCurSourceFile is TFileLineReader then
FCurFilename := TFileLineReader(FCurSourceFile).Filename; // nicer error messages

1
packages/pastojs/src/pas2jscompiler.pp
View File

@ -1276,7 +1276,6 @@ begin
Log.DebugLogWriteLn(PasModule.GetDeclaration(true));
end;
if{$IFDEF HasPas2jsFiler}PCUReader=nil{$ELSE}true{$ENDIF} then
begin
// read source module (instead of precompiled module)

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

@ -1313,7 +1313,7 @@ begin
Filename:=FindIncludeFileName(aFilename);
if Filename='' then exit;
try
Result := TFileLineReader.Create(Filename);
Result:=FindSourceFile(Filename);
except
// error is shown in the scanner, which has the context information
end;