mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:09:30 +02:00
- removed internal error if savesize of tfiledef is 0 when writing the def
to the ppu file, because it does not exist on the JVM platform and hence will be 0 (and on other platforms, you'll get a fatal error earlier in case the filerec type cannot be found) (originally added as part of r24957) git-svn-id: branches/cpstrrtl@24990 -
This commit is contained in:
parent
ba7fc58bed
commit
7659bfc01b
@ -2644,8 +2644,6 @@ implementation
|
||||
|
||||
procedure tfiledef.ppuwrite(ppufile:tcompilerppufile);
|
||||
begin
|
||||
if savesize=0 then
|
||||
internalerror(201305131);
|
||||
inherited ppuwrite(ppufile);
|
||||
ppufile.putbyte(byte(filetyp));
|
||||
if filetyp=ft_typed then
|
||||
|
Loading…
Reference in New Issue
Block a user