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

* getparamangeldname for errordef

Browse Source
This commit is contained in:
peter 2002-10-05 15:14:26 +00:00
parent 3f32669ded
commit b998cc4012
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symdef.pas
View File

@ -164,6 +164,7 @@ interface
terrordef = class(tstoreddef)
constructor create;
function gettypename:string;override;
function getmangledparaname : string;override;
{ debug }
{$ifdef GDB}
function stabstring : pchar;override;
@ -5409,6 +5410,12 @@ implementation
gettypename:='<erroneous type>';
end;
function terrordef.getmangledparaname:string;
begin
getmangledparaname:='error';
end;
{****************************************************************************
GDB Helpers
@ -5559,7 +5566,10 @@ implementation
end.
{
$Log$
Revision 1.97 2002-10-05 12:43:28 carl
Revision 1.98 2002-10-05 15:14:26 peter
* getparamangeldname for errordef
Revision 1.97 2002/10/05 12:43:28 carl
* fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi)