paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:49:12 +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; procedure derefimpl;override;
function getsymtable(t:tgetsymtable):tsymtable;override; function getsymtable(t:tgetsymtable):tsymtable;override;
function haspara:boolean; function haspara:boolean;
function gettypename : string;override;
function mangledname : string; function mangledname : string;
procedure setmangledname(const s : string); procedure setmangledname(const s : string);
procedure load_references(ppufile:tcompilerppufile;locals:boolean); procedure load_references(ppufile:tcompilerppufile;locals:boolean);
@ -3815,6 +3816,12 @@ implementation
end; end;
function tprocdef.gettypename : string;
begin
gettypename := FullProcName+';'+ProcCallOptionStr[proccalloption];
end;
function tprocdef.mangledname : string; function tprocdef.mangledname : string;
var var
s : string; s : string;
@ -5546,7 +5553,10 @@ implementation
end. end.
{ {
$Log$ $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 * write class methods in fullname
Revision 1.117 2002/12/15 19:34:31 florian Revision 1.117 2002/12/15 19:34:31 florian