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

* make Dos.GetMsCount a dummy for embedded targets

Browse Source 
git-svn-id: trunk@33065 -
This commit is contained in:
florian 2016-02-07 11:16:39 +00:00
parent 328b6464ed
commit 0695c92b73
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/embedded/dos.pp
View File

@ -7,11 +7,11 @@
MorphOS port was done on a free Pegasos II/G4 machine MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu> provided by Genesi S.a.r.l. <www.genesi.lu>
This unit is based on the MorphOS one and is adapted for Gameboy Advance This unit is based on the MorphOS one and is adapted for Gameboy Advance
simply by stripping out all stuff inside funcs and procs. simply by stripping out all stuff inside funcs and procs.
Copyright (c) 2006 by Francesco Lombardi 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.
@ -42,6 +42,8 @@ type
implementation implementation
{$define HAS_GETMSCOUNT}
{$I dos.inc} {$I dos.inc}
{****************************************************************************** {******************************************************************************
@ -132,12 +134,14 @@ procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
begin begin
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 ---