paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +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 var
i: longint; i: longint;
defs: TIndexArray; defs: TIndexArray;
pd: tprocdef; pd: tdef;
begin begin
include(aktclass.objectoptions,oo_has_virtual); include(aktclass.objectoptions,oo_has_virtual);
defs:=aktclass.symtable.defindex; defs:=aktclass.symtable.defindex;
for i:=1 to defs.count do for i:=1 to defs.count do
begin begin
pd:=tprocdef(defs.search(i)); pd:=tdef(defs.search(i));
if pd.deftype=procdef then if pd.deftype=procdef then
begin begin
pd.extnumber:=aktclass.lastvtableindex; tprocdef(pd).extnumber:=aktclass.lastvtableindex;
inc(aktclass.lastvtableindex); inc(aktclass.lastvtableindex);
include(pd.procoptions,po_virtualmethod); include(tprocdef(pd).procoptions,po_virtualmethod);
pd.forwarddef:=false; tprocdef(pd).forwarddef:=false;
end; end;
end; end;
end; end;
@ -730,7 +730,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixes for win32 mangledname
Revision 1.82 2004/10/15 09:14:17 mazen Revision 1.82 2004/10/15 09:14:17 mazen