paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tprocdef.gettypename implemented

Browse Source
This commit is contained in:
peter 2002-12-29 18:25:59 +00:00
parent 8d6f26bf4f
commit 59b98f4047
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symdef.pas
View File

@ -518,6 +518,7 @@ interface
procedure derefimpl;override;
function getsymtable(t:tgetsymtable):tsymtable;override;
function haspara:boolean;
function gettypename : string;override;
function mangledname : string;
procedure setmangledname(const s : string);
procedure load_references(ppufile:tcompilerppufile;locals:boolean);
@ -3815,6 +3816,12 @@ implementation
end;
function tprocdef.gettypename : string;
begin
gettypename := FullProcName+';'+ProcCallOptionStr[proccalloption];
end;
function tprocdef.mangledname : string;
var
s : string;
@ -5546,7 +5553,10 @@ implementation
end.
{
$Log$
Revision 1.118 2002-12-27 15:23:09 peter
Revision 1.119 2002-12-29 18:25:59 peter
* tprocdef.gettypename implemented
Revision 1.118 2002/12/27 15:23:09 peter
* write class methods in fullname
Revision 1.117 2002/12/15 19:34:31 florian