paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 03:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correctly propagate full param when writing type

Browse Source 
git-svn-id: trunk@46303 -
This commit is contained in:
michael 2020-08-06 22:28:03 +00:00
parent 09f36e3cc5
commit d561021f72
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,7 @@ type
procedure WriteOverloadedProc(aProc : TPasOverloadedProc; ForceBody: Boolean = False; NamePrefix : String = ''); virtual;
Procedure WriteAliasType(AType : TPasAliasType); virtual;
Procedure WriteRecordType(AType : TPasRecordType); virtual;
Procedure WriteArrayType(AType : TPasArrayType); virtual;
Procedure WriteArrayType(AType : TPasArrayType; Full : Boolean = True); virtual;
procedure WriteProcType(AProc: TPasProcedureType); virtual;
procedure WriteProcDecl(AProc: TPasProcedure; ForceBody: Boolean = False; NamePrefix : String = ''); virtual;
procedure WriteProcImpl(AProc: TProcedureBody; IsAsm : Boolean = false); virtual;
@ -282,7 +282,7 @@ begin
else if AType is TPasProcedureType then
WriteProcType(TPasProcedureType(AType))
else if AType is TPasArrayType then
WriteArrayType(TPasArrayType(AType))
WriteArrayType(TPasArrayType(AType),Full)
else if AType is TPasRecordType then
WriteRecordType(TPasRecordType(AType))
else if AType is TPasAliasType then
@ -787,10 +787,10 @@ begin
end;
end;
procedure TPasWriter.WriteArrayType(AType: TPasArrayType);
procedure TPasWriter.WriteArrayType(AType: TPasArrayType; Full : Boolean = True);
begin
Add(AType.GetDeclaration(true));
Add(AType.GetDeclaration(Full));
end;
procedure TPasWriter.WriteProcType(AProc: TPasProcedureType);