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

fix pascalabcnet/pascalabcnetide#104

Browse source
This commit is contained in:
Бондарев Иван 2019-04-23 22:00:35 +02:00
parent c26a672334
commit 7a1b680fa7
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
CodeCompletion/SymTable.cs
View file

@ -3980,8 +3980,6 @@ namespace CodeCompletion
{ {
if (members != null && !is_static) if (members != null && !is_static)
{ {
bool has_def_constr = false;
foreach (SymScope ss in members) foreach (SymScope ss in members)
{ {
ProcScope ps = ss as ProcScope; ProcScope ps = ss as ProcScope;
@ -3993,10 +3991,14 @@ namespace CodeCompletion
ProcScope other_constr = this.FindNameOnlyInType("Create") as ProcScope; ProcScope other_constr = this.FindNameOnlyInType("Create") as ProcScope;
ProcScope constr = new ProcScope("Create", this, true); ProcScope constr = new ProcScope("Create", this, true);
constr.si.acc_mod = access_modifer.public_modifer; if (other_constr != null && other_constr.declaringType == this)
constr.si.acc_mod = access_modifer.protected_modifer;
else
constr.si.acc_mod = access_modifer.public_modifer;
//constr.head_loc = this.loc; //constr.head_loc = this.loc;
//constr.loc = this.loc; //constr.loc = this.loc;
constr.is_constructor = true; constr.is_constructor = true;
constr.Complete(); constr.Complete();
constr.nextProc = other_constr; constr.nextProc = other_constr;
members.Insert(0, constr); members.Insert(0, constr);