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

* fixed crash with procvar load in tp mode

Browse Source
This commit is contained in:
peter 2000-12-17 14:35:12 +00:00
parent 131b06c676
commit 3315ad63d4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncal.pas
View File

@ -794,7 +794,8 @@ interface
(m_tp_procvar in aktmodeswitches) then (m_tp_procvar in aktmodeswitches) then
begin begin
if (symtableprocentry^.owner^.symtabletype=objectsymtable) and if (symtableprocentry^.owner^.symtabletype=objectsymtable) and
is_class(pdef(symtableprocentry^.owner^.defowner)) then assigned(methodpointer) { and
is_class(pdef(symtableprocentry^.owner^.defowner))} then
hpt:=genloadmethodcallnode(pprocsym(symtableprocentry),symtableproc, hpt:=genloadmethodcallnode(pprocsym(symtableprocentry),symtableproc,
methodpointer.getcopy) methodpointer.getcopy)
else else
@ -1534,7 +1535,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.18 2000-11-29 00:30:32 florian Revision 1.19 2000-12-17 14:35:12 peter
* fixed crash with procvar load in tp mode
Revision 1.18 2000/11/29 00:30:32 florian
* unused units removed from uses clause * unused units removed from uses clause
* some changes for widestrings * some changes for widestrings