Commit d77f2493 authored by Michael Van Canneyt's avatar Michael Van Canneyt
Browse files

* Fix compilation

git-svn-id: trunk@49361 -
parent 20039e3b
......@@ -1297,12 +1297,17 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
ccSafeCall:WriteFmt(true,'SaveCall;',false);
end;
end;
procedure GetHiddenModifiers(Mfs:TProcTypeModifiers);
begin
if ptmVarargs in Mfs then WriteFmt(true,'varargs;',false);
end;
procedure GetHiddenModifiers(Mfs:TProcedureModifiers);
begin
if pmInline in Mfs then WriteFmt(true,'inline;',false);
if pmAssembler in Mfs then WriteFmt(true,'assembler;',false);
if pmVarargs in Mfs then WriteFmt(true,'varargs;',false);
if pmCompilerProc in Mfs then WriteFmt(true,'compilerproc;',false);
end;
......@@ -1349,6 +1354,7 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
if lpp.IsStatic then WriteFmt(true,'static;',false);
if lpp.IsForward then WriteFmt(true,'forward;',false);
GetHiddenModifiers(lpp.Modifiers);
GetHiddenModifiers(lpp.ProcType.Modifiers);
GetTCallingConvention(lpp.CallingConvention);
if GetTPasMemberHints(TPasElement(lpp).Hints) then WriteFmt(false,'',true); //BUG ? missing hints
if not Unformated then writeln;
......@@ -1443,7 +1449,7 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
if assigned(pc) then
begin
s:=GetIndent(indent);
if (pc.ObjKind=okGeneric) then
if (pc.GenericTemplateTypes<>Nil) then
begin
write(s,'generic ',pc.Name);
for l:=0 to pc.GenericTemplateTypes.Count-1 do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment