paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 12:50:21 +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; 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