paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 22:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes to get it working under FreeBSD, and probably Linux too

Browse Source
This commit is contained in:
marco 2004-02-09 17:01:28 +00:00
parent 6571f6a7e5
commit d2e96c4422
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/unix/dos.pp
View File

@ -19,7 +19,7 @@ Const
{Max FileName Length for files}
FileNameLen=255;
ExtStr = String[FileNameLen];
Type
SearchRec =
{$ifndef ARM}
@ -722,14 +722,14 @@ End;
{$ifdef cpui386}
Procedure Intr (intno: byte; var regs: registers);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure msdos(var regs : registers);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
{$endif cpui386}
@ -737,35 +737,35 @@ End;
Procedure getintvec(intno : byte;var vector : pointer);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure setintvec(intno : byte;vector : pointer);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure SwapVectors;
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure keep(exitcode : word);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure setfattr (var f;attr : word);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
{ Fail for setting VolumeId }
if (attr and VolumeID)<>0 then
doserror:=5;
@ -775,7 +775,7 @@ End;
Procedure GetCBreak(Var BreakValue: Boolean);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
breakvalue:=true
End;
@ -783,14 +783,14 @@ End;
Procedure SetCBreak(BreakValue: Boolean);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
Procedure GetVerify(Var Verify: Boolean);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
Verify:=true;
End;
@ -798,10 +798,24 @@ End;
Procedure SetVerify(Verify: Boolean);
Begin
{! No Linux equivalent !}
{! No Unix equivalent !}
End;
function GetShortName(var p : String) : boolean;
begin
{ short=long under *nix}
GetShortName:=True;
end;
function GetLongName(var p : String) : boolean;
begin
{ short=long under *nix}
GetLongName:=True;
end;
{******************************************************************************
--- Initialization ---
******************************************************************************}
@ -810,7 +824,10 @@ End.
{
$Log$
Revision 1.24 2004-02-09 12:03:16 michael
Revision 1.25 2004-02-09 17:01:28 marco
* fixes to get it working under FreeBSD, and probably Linux too
Revision 1.24 2004/02/09 12:03:16 michael
+ Switched to single interface in dosh.inc
Revision 1.23 2004/01/31 16:15:14 florian