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

try bug fix 815

Browse source
This commit is contained in:
miks1965 2018-05-09 12:12:34 +03:00
parent e6fd456711
commit ca085a35d2
8 changed files with 24 additions and 10 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 Major = "3";
public const string Minor = "3"; public const string Minor = "3";
public const string Build = "5"; public const string Build = "5";
public const string Revision = "1663"; public const string Revision = "1664";
public const string MainVersion = Major + "." + Minor; public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=5
%REVISION%=1663
%MINOR%=3 %MINOR%=3
%REVISION%=1664
%COREVERSION%=5
%MAJOR%=3 %MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.3.5.1663' !define VERSION '3.3.5.1664'

4
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -3677,9 +3677,9 @@ procedure BigInteger.operator*=(var p: BigInteger; q: BigInteger) := p := p * q;
procedure BigInteger.operator-=(var p: BigInteger; q: BigInteger) := p := p - q; procedure BigInteger.operator-=(var p: BigInteger; q: BigInteger) := p := p - q;
function BigInteger.operator div(p,q: BigInteger) := BigInteger.Divide(p,q); //function BigInteger.operator div(p,q: BigInteger) := BigInteger.Divide(p,q);
function BigInteger.operator mod(p,q: BigInteger) := BigInteger.Remainder(p,q); //function BigInteger.operator mod(p,q: BigInteger) := BigInteger.Remainder(p,q);
function BigInteger.operator-(p: BigInteger) := BigInteger.Negate(p); function BigInteger.operator-(p: BigInteger) := BigInteger.Negate(p);

14
TestSuite/IndexOfInListAndMyList.pas Normal file
View file

@ -0,0 +1,14 @@
// Закрывает баг #815
type
MyList<T> = class(List<T>)
public
function IndexOf: integer;
begin Print(666); end;
end;
begin
var l := new MyList<integer>;
l.Add(1);
Assert(l.IndexOf(l[0])=0);
end.

4
TreeConverter/NetWrappers/NetHelper.cs
View file

@ -1480,8 +1480,8 @@ namespace PascalABCCompiler.NetHelper
{ {
case MemberTypes.Method: case MemberTypes.Method:
temp = new SymbolInfo(compiled_function_node.get_compiled_method(mi as MethodInfo)); temp = new SymbolInfo(compiled_function_node.get_compiled_method(mi as MethodInfo));
// SSM 2018.05.05 // SSM 2018.05.05 исправляет bug #815
//temp.symbol_kind = symbol_kind.sk_overload_function; temp.symbol_kind = symbol_kind.sk_overload_function;
break; break;
case MemberTypes.Constructor: case MemberTypes.Constructor:
temp = new SymbolInfo(compiled_constructor_node.get_compiled_constructor(mi as ConstructorInfo)); temp = new SymbolInfo(compiled_constructor_node.get_compiled_constructor(mi as ConstructorInfo));

4
bin/Lib/PABCSystem.pas
View file

@ -3677,9 +3677,9 @@ procedure BigInteger.operator*=(var p: BigInteger; q: BigInteger) := p := p * q;
procedure BigInteger.operator-=(var p: BigInteger; q: BigInteger) := p := p - q; procedure BigInteger.operator-=(var p: BigInteger; q: BigInteger) := p := p - q;
function BigInteger.operator div(p,q: BigInteger) := BigInteger.Divide(p,q); //function BigInteger.operator div(p,q: BigInteger) := BigInteger.Divide(p,q);
function BigInteger.operator mod(p,q: BigInteger) := BigInteger.Remainder(p,q); //function BigInteger.operator mod(p,q: BigInteger) := BigInteger.Remainder(p,q);
function BigInteger.operator-(p: BigInteger) := BigInteger.Negate(p); function BigInteger.operator-(p: BigInteger) := BigInteger.Negate(p);