paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix invalid typecast

Browse Source
This commit is contained in:
peter 2004-12-26 20:11:39 +00:00
parent 04e7db0905
commit 65501ac04c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pdecobj.pas
View File

@ -195,19 +195,19 @@ implementation
var
i: longint;
defs: TIndexArray;
pd: tprocdef;
pd: tdef;
begin
include(aktclass.objectoptions,oo_has_virtual);
defs:=aktclass.symtable.defindex;
for i:=1 to defs.count do
begin
pd:=tprocdef(defs.search(i));
pd:=tdef(defs.search(i));
if pd.deftype=procdef then
begin
pd.extnumber:=aktclass.lastvtableindex;
tprocdef(pd).extnumber:=aktclass.lastvtableindex;
inc(aktclass.lastvtableindex);
include(pd.procoptions,po_virtualmethod);
pd.forwarddef:=false;
include(tprocdef(pd).procoptions,po_virtualmethod);
tprocdef(pd).forwarddef:=false;
end;
end;
end;
@ -730,7 +730,10 @@ implementation
end.
{
$Log$
Revision 1.83 2004-11-16 20:32:40 peter
Revision 1.84 2004-12-26 20:11:39 peter
* fix invalid typecast
Revision 1.83 2004/11/16 20:32:40 peter
* fixes for win32 mangledname
Revision 1.82 2004/10/15 09:14:17 mazen