paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 18:21:00 +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} {Max FileName Length for files}
FileNameLen=255; FileNameLen=255;
ExtStr = String[FileNameLen]; Type
SearchRec = SearchRec =
{$ifndef ARM} {$ifndef ARM}
@ -722,14 +722,14 @@ End;
{$ifdef cpui386} {$ifdef cpui386}
Procedure Intr (intno: byte; var regs: registers); Procedure Intr (intno: byte; var regs: registers);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure msdos(var regs : registers); Procedure msdos(var regs : registers);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
{$endif cpui386} {$endif cpui386}
@ -737,35 +737,35 @@ End;
Procedure getintvec(intno : byte;var vector : pointer); Procedure getintvec(intno : byte;var vector : pointer);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure setintvec(intno : byte;vector : pointer); Procedure setintvec(intno : byte;vector : pointer);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure SwapVectors; Procedure SwapVectors;
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure keep(exitcode : word); Procedure keep(exitcode : word);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure setfattr (var f;attr : word); Procedure setfattr (var f;attr : word);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
{ Fail for setting VolumeId } { Fail for setting VolumeId }
if (attr and VolumeID)<>0 then if (attr and VolumeID)<>0 then
doserror:=5; doserror:=5;
@ -775,7 +775,7 @@ End;
Procedure GetCBreak(Var BreakValue: Boolean); Procedure GetCBreak(Var BreakValue: Boolean);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
breakvalue:=true breakvalue:=true
End; End;
@ -783,14 +783,14 @@ End;
Procedure SetCBreak(BreakValue: Boolean); Procedure SetCBreak(BreakValue: Boolean);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; End;
Procedure GetVerify(Var Verify: Boolean); Procedure GetVerify(Var Verify: Boolean);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
Verify:=true; Verify:=true;
End; End;
@ -798,10 +798,24 @@ End;
Procedure SetVerify(Verify: Boolean); Procedure SetVerify(Verify: Boolean);
Begin Begin
{! No Linux equivalent !} {! No Unix equivalent !}
End; 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 --- --- Initialization ---
******************************************************************************} ******************************************************************************}
@ -810,7 +824,10 @@ End.
{ {
$Log$ $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 + Switched to single interface in dosh.inc
Revision 1.23 2004/01/31 16:15:14 florian Revision 1.23 2004/01/31 16:15:14 florian