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

* fixed crashes under plain dos

Browse Source
This commit is contained in:
peter 1999-09-13 22:56:17 +00:00
parent c549646c95
commit 0308dbcbfa
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pmodules.pas
View File

@ -564,7 +564,8 @@ unit pmodules;
{ close old_current_ppu on system that are { close old_current_ppu on system that are
short on file handles like DOS PM } short on file handles like DOS PM }
{$ifdef SHORT_ON_FILE_HANDLES} {$ifdef SHORT_ON_FILE_HANDLES}
old_current_ppu^.tempclose; if assigned(old_current_ppu) then
old_current_ppu^.tempclose;
{$endif SHORT_ON_FILE_HANDLES} {$endif SHORT_ON_FILE_HANDLES}
{ now we can register the unit } { now we can register the unit }
current_module^.loaded_from:=old_current_module; current_module^.loaded_from:=old_current_module;
@ -593,7 +594,8 @@ unit pmodules;
end; end;
{ set the old module } { set the old module }
{$ifdef SHORT_ON_FILE_HANDLES} {$ifdef SHORT_ON_FILE_HANDLES}
old_current_ppu^.tempopen; if assigned(old_current_ppu) then
old_current_ppu^.tempopen;
{$endif SHORT_ON_FILE_HANDLES} {$endif SHORT_ON_FILE_HANDLES}
current_ppu:=old_current_ppu; current_ppu:=old_current_ppu;
current_module:=old_current_module; current_module:=old_current_module;
@ -1457,7 +1459,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.152 1999-09-01 22:18:42 peter Revision 1.153 1999-09-13 22:56:17 peter
* fixed crashes under plain dos
Revision 1.152 1999/09/01 22:18:42 peter
* moved parsing interface/implementation to -vu * moved parsing interface/implementation to -vu
Revision 1.151 1999/08/31 15:51:10 pierre Revision 1.151 1999/08/31 15:51:10 pierre