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