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

fix #1539

Browse source
This commit is contained in:
Бондарев Иван 2018-11-26 20:02:24 +01:00
parent cf705514e4
commit 4f55fe8509
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
TreeConverter/OpenMP/OpenMP.cs
View file

@ -603,11 +603,16 @@ namespace PascalABCCompiler.TreeConverter
}
private void PutError(int TextLength, SyntaxTree.SourceContext DirSC, string ErrorName)
{
int bp = DirSC.Length - TextLength-"omp".Length;
SC = new SyntaxTree.SourceContext(DirSC.begin_position.line_num,
DirSC.begin_position.column_num + bp,
DirSC.begin_position.line_num,
DirSC.begin_position.column_num + bp);
if (DirSC != null)
{
int bp = DirSC.Length - TextLength - "omp".Length;
SC = new SyntaxTree.SourceContext(DirSC.begin_position.line_num,
DirSC.begin_position.column_num + bp,
DirSC.begin_position.line_num,
DirSC.begin_position.column_num + bp);
}
this.ErrorName = ErrorName;
}
@ -719,7 +724,10 @@ namespace PascalABCCompiler.TreeConverter
LocksFound = true;
else
{
visitor.AddWarning(new Errors.CommonWarning(PascalABCCompiler.StringResources.Get(dirInf.ErrorName), dir.source_context.FileName, dirInf.SC.begin_position.line_num, dirInf.SC.begin_position.column_num));
visitor.AddWarning(new Errors.CommonWarning(PascalABCCompiler.StringResources.Get(dirInf.ErrorName),
dir.source_context.FileName,
dirInf.SC != null ? dirInf.SC.begin_position.line_num : dir.source_context.begin_position.line_num,
dirInf.SC != null ? dirInf.SC.begin_position.column_num : dir.source_context.begin_position.column_num));
}
}
}