paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 06:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* be able to use feature fileio without feature random

Browse Source 
git-svn-id: trunk@18869 -
This commit is contained in:
florian 2011-08-27 22:44:37 +00:00
parent 26a9bbbd13
commit 2c42d8e1e8
1 changed files with 12 additions and 0 deletions

12
rtl/inc/typefile.inc
View File

@ -60,11 +60,23 @@ Begin
Rewrite(UnTypedFile(f),Size);
End;
{$ifdef FPC_HAS_FEATURE_RANDOM}
{ this code is duplicated in the iso7185 unit }
Procedure DoAssign(var t : TypedFile);
Begin
Assign(t,'fpc_'+HexStr(random(1000000000),8)+'.tmp');
End;
{$else FPC_HAS_FEATURE_RANDOM}
{ this code is duplicated in the iso7185 unit }
Procedure DoAssign(var t : TypedFile);
const
start : dword = 0;
Begin
Assign(t,'fpc_'+HexStr(start,8)+'.tmp');
inc(start);
End;
{$endif FPC_HAS_FEATURE_RANDOM}
Procedure fpc_reset_typed_iso(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_RESET_TYPED_ISO']; compilerproc;