mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 04:49:26 +02:00
- Removed dependency on unit DOS
* Made filename valid length for macos
This commit is contained in:
parent
9e25e07eaa
commit
942c4ea025
@ -2,16 +2,19 @@
|
||||
inside reset(file)
|
||||
we call reset(file,longint)
|
||||
but we also emit a call to iocheck after and this is wrong !! PM }
|
||||
|
||||
program getret;
|
||||
|
||||
uses dos;
|
||||
|
||||
var
|
||||
ppfile : file;
|
||||
|
||||
begin
|
||||
{$ifndef macos}
|
||||
assign(ppfile,'this_file_probably_does_not_exist&~"#');
|
||||
{$else}
|
||||
{Max 32 chars in macos fielnames}
|
||||
assign(ppfile,'this_file_probably_&~"#');
|
||||
{$endif}
|
||||
|
||||
{$I-}
|
||||
reset(ppfile,1);
|
||||
if ioresult=0 then
|
||||
|
Loading…
Reference in New Issue
Block a user