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

* write nil into the method table for abstract methods

Browse Source
This commit is contained in:
florian 2005-05-05 21:09:10 +00:00
parent ca0b7067da
commit 736d8fa666
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nobj.pas
View File

@ -484,7 +484,10 @@ implementation
Consts.concat(Tai_string.Create(tsym(p).realname)); Consts.concat(Tai_string.Create(tsym(p).realname));
dataSegment.concat(Tai_const.Create_sym(l)); dataSegment.concat(Tai_const.Create_sym(l));
dataSegment.concat(Tai_const.Createname(pd.mangledname,AT_FUNCTION,0)); if po_abstractmethod in pd.procoptions then
dataSegment.concat(Tai_const.Create_sym(nil))
else
dataSegment.concat(Tai_const.Createname(pd.mangledname,AT_FUNCTION,0));
end; end;
end; end;
end; end;
@ -1362,7 +1365,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.92 2005-03-17 09:08:54 michael Revision 1.93 2005-05-05 21:09:10 florian
* write nil into the method table for abstract methods
Revision 1.92 2005/03/17 09:08:54 michael
+ Patch from peter to fix overload directive cheking in delphi mode + Patch from peter to fix overload directive cheking in delphi mode
Revision 1.91 2005/02/14 17:13:06 peter Revision 1.91 2005/02/14 17:13:06 peter