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

* respect feature defines

Browse Source 
git-svn-id: trunk@30378 -
This commit is contained in:
florian 2015-03-29 19:43:25 +00:00
parent 5030ff05b5
commit d0f4e7cc99
5 changed files with 35 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/dos.inc
View File

@ -35,7 +35,11 @@ begin
end;
{$IFNDEF HAS_DOSEXITCODE}
{$ifdef FPC_HAS_FEATURE_THREADING}
threadvar
{$else FPC_HAS_FEATURE_THREADING}
var
{$endif FPC_HAS_FEATURE_THREADING}
LastDosExitCode: longint;
function DosExitCode: word;

4
rtl/inc/dosh.inc
View File

@ -72,7 +72,11 @@ Type
Sec : word;
End;
{$ifdef FPC_HAS_FEATURE_THREADING}
threadvar
{$else FPC_HAS_FEATURE_THREADING}
var
{$endif FPC_HAS_FEATURE_THREADING}
DosError : integer;
{$ifdef cpui386}

4
rtl/inc/exeinfo.pp
View File

@ -99,7 +99,11 @@ uses
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: string);
begin
baseaddr:= nil;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS}
filename:=ParamStr(0);
{$else FPC_HAS_FEATURE_COMMANDARGS}
filename:='';
{$endif FPC_HAS_FEATURE_COMMANDARGS}
end;
{$endif windows}

11
rtl/inc/iso7185.pp
View File

@ -49,8 +49,17 @@ unit iso7185;
{$i-}
procedure DoAssign(var t : Text);
{$ifndef FPC_HAS_FEATURE_RANDOM}
const
NextIndex : Word = 1;
{$endif FPC_HAS_FEATURE_RANDOM}
begin
{$ifdef FPC_HAS_FEATURE_RANDOM}
Assign(t,'fpc_'+HexStr(random(1000000000),8)+'.tmp');
{$else FPC_HAS_FEATURE_RANDOM}
Assign(t,'fpc_'+HexStr(NextIndex,4)+'.tmp');
Inc(NextIndex);
{$endif FPC_HAS_FEATURE_RANDOM}
end;
@ -172,7 +181,9 @@ unit iso7185;
begin
{ we shouldn't do this because it might confuse user programs, but for now it
is good enough to get pretty unique tmp file names }
{$ifdef FPC_HAS_FEATURE_RANDOM}
Randomize;
{$endif FPC_HAS_FEATURE_RANDOM}
{ reset opens with read-only }
Filemode:=0;
end.

6
rtl/objpas/sysconst.pp
View File

@ -12,12 +12,18 @@
**********************************************************************}
{$mode objfpc}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
{$H+}
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
unit sysconst;
interface
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
resourcestring
{$else FPC_HAS_FEATURE_ANSISTRINGS}
const
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
{ from old str*.inc files }