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

* procdef demangling fixed

Browse Source
This commit is contained in:
peter 2001-06-04 18:05:39 +00:00
parent 25d360a011
commit 7dd4f0e9dd
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symdef.pas
View File

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