administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

#2897

Browse source
This commit is contained in:
Ivan Bondarev 2023-07-02 11:17:06 +02:00
parent 3db341eb92
commit 35381d6778
4 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Compiler/PCU/PCUReader.cs
View file

@ -565,7 +565,12 @@ namespace PascalABCCompiler.PCU
pcu_file.SourceFileName = br.ReadString();
else
pcu_file.SourceFileName = Path.GetFileNameWithoutExtension(FileName);
int num_names = br.ReadInt32();
if (Path.GetDirectoryName(pcu_file.SourceFileName) == "")
cur_doc = new document(Path.Combine(Path.GetDirectoryName(FileName), pcu_file.SourceFileName));
else
cur_doc = new document(pcu_file.SourceFileName);
int num_names = br.ReadInt32();
pcu_file.names = new NameRef[num_names];
for (int i=0; i<num_names; i++)
{

6
TestSuite/errors/err0524_res_unit.pas Normal file
View file

@ -0,0 +1,6 @@
//!Файл 'non_existing_file' не найден
unit err0524_res_unit;
{$resource non_existing_file}
end.

4
TestSuite/errors/err0525_res1.pas Normal file
View file

@ -0,0 +1,4 @@
uses err0524_res_unit;
begin
end.

4
TestSuite/errors/err0525_res2.pas Normal file
View file

@ -0,0 +1,4 @@
uses err0524_res_unit;
begin
end.