paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed compile

Browse Source 
git-svn-id: trunk@37831 -
This commit is contained in:
Mattias Gaertner 2017-12-27 11:35:45 +00:00
parent 327213a0ca
commit 92dbff0c57
2 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
packages/fcl-passrc/src/pasresolver.pp
View File

@ -623,7 +623,7 @@ type
DirectAncestor: TPasType; // TPasClassType or TPasAliasType or TPasTypeAliasType
DefaultProperty: TPasProperty;
Flags: TPasClassScopeFlags;
AbstractProcs: array of TPasProcedure;
AbstractProcs: TArrayOfPasProcedure;
destructor Destroy; override;
function FindIdentifier(const Identifier: String): TPasIdentifier; override;
procedure IterateElements(const aName: string; StartScope: TPasScope;
@ -4129,6 +4129,35 @@ procedure TPasResolver.FinishMethodDeclHeader(Proc: TPasProcedure);
Proc.Visibility:=OverloadProc.Visibility;
end;
{$IF FPC_FULLVERSION<30101}
procedure Delete(var A: TArrayOfPasProcedure; Index, Count: integer); overload;
var
i: Integer;
begin
if Index<0 then
RaiseInternalError(20171227121538);
if Index+Count>length(A) then
RaiseInternalError(20171227121156);
for i:=Index+Count to length(A)-1 do
A[i-Count]:=A[i];
SetLength(A,length(A)-Count);
end;
procedure Insert(Item: TPasProcedure; A: TArrayOfPasProcedure; Index: integer); overload;
var
i: Integer;
begin
if Index<0 then
RaiseInternalError(20171227121544);
if Index>length(A) then
RaiseInternalError(20171227121558);
SetLength(A,length(A)+1);
for i:=length(A)-1 downto Index+1 do
A[i]:=A[i-1];
A[Index]:=Item;
end;
{$ENDIF}
var
Abort: boolean;
ClassScope: TPasClassScope;

2
packages/fcl-passrc/src/pastree.pp
View File

@ -966,6 +966,8 @@ type
property MessageType : TProcedureMessageType Read FMessageType Write FMessageType;
end;
TArrayOfPasProcedure = array of TPasProcedure;
TPasFunction = class(TPasProcedure)
private
function GetFT: TPasFunctionType; inline;