paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 20:29:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* WriteEnumType must be virtual

Browse Source 
git-svn-id: trunk@37144 -
This commit is contained in:
michael 2017-09-05 06:39:10 +00:00
parent e9779e3c89
commit 4761b22ef3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/paswrite.pp
View File

@ -83,7 +83,7 @@ type
constructor Create(AStream: TStream); virtual;
destructor Destroy; override;
procedure AddForwardClasses(aSection: TPasSection); virtual;
procedure WriteEnumType(AType: TPasEnumType);
procedure WriteEnumType(AType: TPasEnumType); virtual;
procedure WriteElement(AElement: TPasElement);virtual;
procedure WriteType(AType: TPasType; Full : Boolean = True);virtual;
procedure WriteProgram(aModule : TPasProgram); virtual;
@ -104,7 +104,7 @@ type
procedure WriteProcType(AProc: TPasProcedureType); virtual;
procedure WriteProcDecl(AProc: TPasProcedure; ForceBody: Boolean = False; NamePrefix : String = ''); virtual;
procedure WriteProcImpl(AProc: TProcedureBody; IsAsm : Boolean = false); virtual;
procedure WriteProcImpl(AProc: TPasProcedureImpl);
procedure WriteProcImpl(AProc: TPasProcedureImpl); virtual;
procedure WriteProperty(AProp: TPasProperty); virtual;
procedure WriteImplBlock(ABlock: TPasImplBlock); virtual;
procedure WriteImplElement(AElement: TPasImplElement; AAutoInsertBeginEnd: Boolean); virtual;