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

* avoid SIGSEGV in owner^.close code by removing virtual attribute to ForEach method

Browse Source
This commit is contained in:
pierre 2002-05-31 13:36:42 +00:00
parent 8a346ede73
commit b70dab6700
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fv/views.pas
View File

@ -510,7 +510,8 @@ TYPE
PROCEDURE SelectDefaultView;
PROCEDURE Insert (P: PView);
PROCEDURE Delete (P: PView);
PROCEDURE ForEach (P: Pointer); Virtual;
PROCEDURE ForEach (P: Pointer);
{ ForEach can't be virtual because it generates SIGSEGV }
PROCEDURE EndModal (Command: Word); Virtual;
PROCEDURE DisplaceBy (Dx, Dy: Sw_Integer); Virtual;
PROCEDURE SelectNext (Forwards: Boolean);
@ -5718,7 +5719,10 @@ END.
{
$Log$
Revision 1.29 2002-05-31 12:40:48 pierre
Revision 1.30 2002-05-31 13:36:42 pierre
* avoid SIGSEGV in owner^.close code by removing virtual attribute to ForEach method
Revision 1.29 2002/05/31 12:40:48 pierre
* several fixes + graph enhancements
Revision 1.28 2002/05/30 22:28:33 pierre

8
fvision/views.pas
View File

@ -510,7 +510,8 @@ TYPE
PROCEDURE SelectDefaultView;
PROCEDURE Insert (P: PView);
PROCEDURE Delete (P: PView);
PROCEDURE ForEach (P: Pointer); Virtual;
PROCEDURE ForEach (P: Pointer);
{ ForEach can't be virtual because it generates SIGSEGV }
PROCEDURE EndModal (Command: Word); Virtual;
PROCEDURE DisplaceBy (Dx, Dy: Sw_Integer); Virtual;
PROCEDURE SelectNext (Forwards: Boolean);
@ -5718,7 +5719,10 @@ END.
{
$Log$
Revision 1.29 2002-05-31 12:40:48 pierre
Revision 1.30 2002-05-31 13:36:42 pierre
* avoid SIGSEGV in owner^.close code by removing virtual attribute to ForEach method
Revision 1.29 2002/05/31 12:40:48 pierre
* several fixes + graph enhancements
Revision 1.28 2002/05/30 22:28:33 pierre