paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* msdos is a 8.3 target as well

Browse Source 
git-svn-id: branches/i8086@24097 -
This commit is contained in:
florian 2013-03-31 19:20:20 +00:00
parent 259e9757a7
commit 74880f639a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/utils/dotest.pp
View File

@ -36,6 +36,9 @@ uses
{$ifdef os2}
{$define LIMIT83FS}
{$endif}
{$ifdef msdos}
{$define LIMIT83FS}
{$endif}
type
tcompinfo = (compver,comptarget,compcpu);
@ -327,7 +330,7 @@ end;
type
TCharSet = set of char;
function GetToken(var s: string; Delims: TCharSet = [' ']):string;
var
i : longint;
@ -697,6 +700,7 @@ begin
LTarget := CompilerTarget;
UseOSOnly:= (LTarget='emx') or
(LTarget='go32v2') or
(LTarget='msdos') or
(LTarget='os2');
end;
{$endif not LIMIT83FS}