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

fix #1831

Browse source 
and
fix #1818
This commit is contained in:
Mikhalkovich Stanislav 2019-03-07 17:32:38 +03:00
parent fb95308758
commit a8367a8a10
9 changed files with 2701 additions and 2680 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "4";
public const string Build = "2";
public const string Revision = "1991";
public const string Revision = "1993";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=2
%REVISION%=1991
%REVISION%=1993
%MINOR%=4
%MAJOR%=3

33
PABCNetHelp/LangGuide/PABCSystemUnit/stand_text_files_methods.html
View file

@ -22,6 +22,8 @@
<param name="Keyword" value="SeekEoln">
<param name="Keyword" value="Flush">
<param name="Keyword" value="Reset">
<param name="Keyword" value="Rewrite">
<param name="Keyword" value="Append">
<param name="Keyword" value="Close">
<param name="Keyword" value="ReadToEnd">
<param name="Keyword" value="Name">
@ -167,7 +169,36 @@
<tr>
<td>
<code><strong>procedure</strong> Reset; </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD></td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â êîäèðîâêå Windows</td>
</tr>
<tr>
<td>
<code><strong>procedure</strong> Reset(en: Encoding); </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â óêàçàííîé êîäèðîâêå</td>
</tr>
<tr>
<td>
<code><strong>procedure</strong> Rewrite; </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà
çàïèñü â êîäèðîâêå Windows</td>
</tr>
<tr>
<td>
<code><strong>procedure</strong> Rewrite; </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà
çàïèñü â óêàçàííîé êîäèðîâêå</td>
</tr>
<tr>
<td>
<code><strong>procedure</strong> Append; </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà
äîïîëíåíèå â êîäèðîâêå Windows</td>
</tr>
<tr>
<td>
<code><strong>procedure</strong> Append; </code><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà
äîïîëíåíèå â óêàçàííîé êîäèðîâêå</td>
</tr>
<tr>
<td>

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -2,7 +2,7 @@
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: DESKTOP-G8V08V4
// DateTime: 22.02.2019 19:09:57
// DateTime: 07.03.2019 17:11:37
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>

8
Parsers/PascalABCParserNewSaushkin/ABCPascal.y
View file

@ -1026,10 +1026,10 @@ array_const
{
$$ = new array_const($2 as expression_list, @$);
}
| tkRoundOpen record_const tkRoundClose
{ $$ = $2; }
| tkRoundOpen array_const tkRoundClose
{ $$ = $2; }
// | tkRoundOpen record_const tkRoundClose
// { $$ = $2; }
// | tkRoundOpen array_const tkRoundClose
// { $$ = $2; }
;
typed_const_list

5308
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

File diff suppressed because it is too large Load diff

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -241,5 +241,6 @@ script=

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.4.2.1991'
!define VERSION '3.4.2.1993'

23
TestSuite/intellisense_tests/function3.pas
View file

@ -1,14 +1,15 @@
type TClass = class
function f(params arr: array of char): char;
begin
end;
function f2(a:integer:=2): integer;
begin
end;
end;
type
TClass = class
function f(params arr: array of char): char;
begin
end;
function f2(a: integer := 2): integer;
begin
end;
end;
begin
var a: sequence of byte;