paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 06:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't use HeapNotify for FPC

Browse Source
This commit is contained in:
pierre 2001-08-05 23:27:54 +00:00
parent f9db36c0df
commit 21f6c17cf4
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/memory.pas
View File

@ -535,7 +535,7 @@ BEGIN
End; End;
CachePtr := HeapEnd; { Cache starts at end } CachePtr := HeapEnd; { Cache starts at end }
{$ELSE} { DPMI/WIN/NT/OS2 CODE } {$ELSE} { DPMI/WIN/NT/OS2 CODE }
{$IFNDEF PPC_DELPHI3} {$IFNDEF PPC_FPC}
HeapError := @HeapNotify; { Set heap error proc } HeapError := @HeapNotify; { Set heap error proc }
{$ENDIF} {$ENDIF}
SafetyPoolSize := LowMemSize * 16; { Fix safety pool size } SafetyPoolSize := LowMemSize * 16; { Fix safety pool size }
@ -828,7 +828,10 @@ END.
{ {
$Log$ $Log$
Revision 1.3 2001-08-04 19:14:33 peter Revision 1.4 2001-08-05 23:27:54 pierre
* don't use HeapNotify for FPC
Revision 1.3 2001/08/04 19:14:33 peter
* Added Makefiles * Added Makefiles
* added FV specific units and objects from old FV * added FV specific units and objects from old FV

7
fvision/memory.pas
View File

@ -535,7 +535,7 @@ BEGIN
End; End;
CachePtr := HeapEnd; { Cache starts at end } CachePtr := HeapEnd; { Cache starts at end }
{$ELSE} { DPMI/WIN/NT/OS2 CODE } {$ELSE} { DPMI/WIN/NT/OS2 CODE }
{$IFNDEF PPC_DELPHI3} {$IFNDEF PPC_FPC}
HeapError := @HeapNotify; { Set heap error proc } HeapError := @HeapNotify; { Set heap error proc }
{$ENDIF} {$ENDIF}
SafetyPoolSize := LowMemSize * 16; { Fix safety pool size } SafetyPoolSize := LowMemSize * 16; { Fix safety pool size }
@ -828,7 +828,10 @@ END.
{ {
$Log$ $Log$
Revision 1.3 2001-08-04 19:14:33 peter Revision 1.4 2001-08-05 23:27:54 pierre
* don't use HeapNotify for FPC
Revision 1.3 2001/08/04 19:14:33 peter
* Added Makefiles * Added Makefiles
* added FV specific units and objects from old FV * added FV specific units and objects from old FV