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

* nds: the embedded stub DOS unit was just a copy of the NDS one with minor fixes, so lets make the NDS port use the current cleaned one as well

Browse Source
This commit is contained in:
Karoly Balogh 2022-03-05 18:40:36 +01:00
parent 7d13e5c70d
commit 49f45764ec
1 changed files with 21 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
rtl/nds/dos.pp
View File

@ -1,17 +1,7 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Karoly Balogh for Genesi S.a.r.l. Copyright (c) 2022 by the Free Pascal Compiler development team
Heavily based on the Commodore Amiga/m68k RTL by Nils Sjoholm and
Carl Eric Codere
MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu>
This unit is based on the MorphOS one and is adapted for Nintendo DS
simply by stripping out all stuff inside funcs and procs.
Copyright (c) 2006 by Francesco Lombardi
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -29,8 +19,8 @@ interface
type type
SearchRec = Packed Record SearchRec = Packed Record
AnchorPtr : Pointer; { Pointer to the Anchorpath structure } AnchorPtr : Pointer; { Pointer to the Anchorpath structure }
Fill: Array[1..15] of Byte; {future use} Fill: Array[1..15] of Byte; {future use}
{End of replacement for fill} {End of replacement for fill}
Attr : BYTE; {attribute of found file} Attr : BYTE; {attribute of found file}
Time : LongInt; {last modify date of found file} Time : LongInt; {last modify date of found file}
@ -42,32 +32,10 @@ type
implementation implementation
{$define HAS_GETMSCOUNT}
{$I dos.inc} {$I dos.inc}
{******************************************************************************
--- Internal routines ---
******************************************************************************}
function dosLock(const name: String; accessmode: Longint) : LongInt;
begin
result := -1;
end;
function IsLeapYear(Source : Word) : Boolean;
begin
result := false;
end;
function dosSetProtection(const name: string; mask:longint): Boolean;
begin
result := false;
end;
function dosSetFileDate(name: string): Boolean;
begin
result := false;
end;
{****************************************************************************** {******************************************************************************
--- Info / Date / Time --- --- Info / Date / Time ---
@ -78,50 +46,12 @@ begin
result := 0; result := 0;
end; end;
procedure NewList ();
begin
end;
function CreateExtIO (size: Longint): integer;
begin
result := -1;
end;
procedure DeleteExtIO ();
begin
end;
function Createport(name : PChar; pri : longint): integer;
begin
result := -1;
end;
procedure DeletePort ();
begin
end;
function Create_Timer(theUnit : longint) : integer;
begin
result := -1;
end;
Procedure Delete_Timer();
begin
end;
function set_new_time(secs, micro : longint): longint;
begin
result := -1;
end;
function get_sys_time(): longint;
begin
result := -1;
end;
procedure GetDate(Var Year, Month, MDay, WDay: Word); procedure GetDate(Var Year, Month, MDay, WDay: Word);
begin begin
Year := 0;
Month := 0;
MDay := 0;
WDay := 0;
end; end;
procedure SetDate(Year, Month, Day: Word); procedure SetDate(Year, Month, Day: Word);
@ -130,14 +60,20 @@ end;
procedure GetTime(Var Hour, Minute, Second, Sec100: Word); procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
begin begin
Hour := 0;
Minute := 0;
Second := 0;
Sec100 := 0;
end; end;
Procedure SetTime(Hour, Minute, Second, Sec100: Word); Procedure SetTime(Hour, Minute, Second, Sec100: Word);
begin begin
end; end;
function GetMsCount: int64;
begin
result := 0;
end;
{****************************************************************************** {******************************************************************************
--- Exec --- --- Exec ---
@ -157,7 +93,6 @@ Begin
end; end;
Function DiskSize(Drive: Byte): int64; Function DiskSize(Drive: Byte): int64;
Begin Begin
result := -1; result := -1;
@ -166,15 +101,19 @@ end;
procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec); procedure FindFirst(const Path: PathStr; Attr: Word; Var f: SearchRec);
begin begin
DosError:=18;
end; end;
procedure FindNext(Var f: SearchRec); procedure FindNext(Var f: SearchRec);
begin begin
DosError:=18;
end; end;
procedure FindClose(Var f: SearchRec); procedure FindClose(Var f: SearchRec);
begin begin
DosError:=18;
end; end;
@ -212,11 +151,6 @@ end;
--- Environment --- --- Environment ---
******************************************************************************} ******************************************************************************}
function getpathstring: string;
begin
result := '';
end;
function EnvCount: Longint; function EnvCount: Longint;
begin begin
@ -229,35 +163,10 @@ begin
result := ''; result := '';
end; end;
function GetEnv(envvar : String): String; function GetEnv(envvar : String): String;
begin begin
result := ''; result := '';
end; end;
procedure AddDevice(str : String);
begin
end;
function MakeDeviceName(str : pchar): string;
begin
result := '';
end;
function IsInDeviceList(str : string): boolean;
begin
result := false;
end;
procedure ReadInDevices;
begin
end;
begin
// DosError:=0;
// numberofdevices := 0;
// StrOfPaths := '';
// ReadInDevices;
end. end.