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

Update DefaultLanguageInformation.cs

Browse source
This commit is contained in:
Kotov 2019-09-15 14:58:11 +05:00
parent d342175349
commit bcad25bd01
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ParserTools/ParserTools/DefaultLanguageInformation.cs
View file

@ -483,7 +483,12 @@ namespace PascalABCCompiler.Parsers
sb.Append('>');
return sb.ToString();
}
if (ctn.IsArray) return "array of " + GetFullTypeName(ctn.GetElementType());
if (ctn.IsArray)
{
var rank = ctn.GetArrayRank();
var strrank = rank > 1 ? "[" + new string(',', rank - 1) + "]" : "";
return $"array{strrank}" + " of " + GetFullTypeName(ctn.GetElementType());
}
if (ctn == Type.GetType("System.Void*")) return "pointer";
if (ctn.IsNested)
return ctn.Name;
@ -969,10 +974,15 @@ namespace PascalABCCompiler.Parsers
}
sb.Append('>');*/
return sb.ToString();
}
if (ctn.IsArray) return "array of "+GetShortTypeName(ctn.GetElementType());
//if (ctn == Type.GetType("System.Void*")) return PascalABCCompiler.TreeConverter.compiler_string_consts.pointer_type_name;
return ctn.Name;
}
if (ctn.IsArray)
{
var rank = ctn.GetArrayRank();
var strrank = rank > 1 ? "[" + new string(',', rank - 1) + "]" : "";
return $"array{strrank}" + " of " + GetFullTypeName(ctn.GetElementType());
}
//if (ctn == Type.GetType("System.Void*")) return PascalABCCompiler.TreeConverter.compiler_string_consts.pointer_type_name;
return ctn.Name;
}
protected virtual string GetTopScopeName(IBaseScope sc)