|
@@ -430,7 +430,7 @@ interface
|
|
|
proccalloptions : tproccalloptions;
|
|
proccalloptions : tproccalloptions;
|
|
|
procoptions : tprocoptions;
|
|
procoptions : tprocoptions;
|
|
|
para : tparalinkedlist;
|
|
para : tparalinkedlist;
|
|
|
- maxparacount, { -1 means varargs }
|
|
|
|
|
|
|
+ maxparacount,
|
|
|
minparacount : longint;
|
|
minparacount : longint;
|
|
|
symtablelevel : byte;
|
|
symtablelevel : byte;
|
|
|
fpu_used : byte; { how many stack fpu must be empty }
|
|
fpu_used : byte; { how many stack fpu must be empty }
|
|
@@ -3261,9 +3261,9 @@ implementation
|
|
|
if assigned(hp) then
|
|
if assigned(hp) then
|
|
|
s:=s+',';
|
|
s:=s+',';
|
|
|
end;
|
|
end;
|
|
|
- if maxparacount=-1 then
|
|
|
|
|
- s:=s+',...';
|
|
|
|
|
s:=s+')';
|
|
s:=s+')';
|
|
|
|
|
+ if (po_varargs in procoptions) then
|
|
|
|
|
+ s:=s+';VarArgs';
|
|
|
demangled_paras:=s;
|
|
demangled_paras:=s;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -3289,7 +3289,7 @@ implementation
|
|
|
(mask:pocall_inline; str:'Inline'),
|
|
(mask:pocall_inline; str:'Inline'),
|
|
|
(mask:pocall_internproc; str:'InternProc'),
|
|
(mask:pocall_internproc; str:'InternProc'),
|
|
|
(mask:pocall_internconst; str:'InternConst'),
|
|
(mask:pocall_internconst; str:'InternConst'),
|
|
|
- (mask:pocall_cdecl; str:'CPPDecl')
|
|
|
|
|
|
|
+ (mask:pocall_cppdecl; str:'CPPDecl')
|
|
|
);
|
|
);
|
|
|
var
|
|
var
|
|
|
s : string;
|
|
s : string;
|
|
@@ -5524,7 +5524,10 @@ Const local_symtable_index : longint = $8001;
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.33 2001-06-04 11:53:13 peter
|
|
|
|
|
|
|
+ Revision 1.34 2001-06-04 18:05:39 peter
|
|
|
|
|
+ * procdef demangling fixed
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.33 2001/06/04 11:53:13 peter
|
|
|
+ varargs directive
|
|
+ varargs directive
|
|
|
|
|
|
|
|
Revision 1.32 2001/05/09 19:58:45 peter
|
|
Revision 1.32 2001/05/09 19:58:45 peter
|
peter