mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 05:00:07 +02:00
* make Dos.GetMsCount a dummy for embedded targets
git-svn-id: trunk@33065 -
This commit is contained in:
parent
328b6464ed
commit
0695c92b73
@ -7,11 +7,11 @@
|
||||
|
||||
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 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
|
||||
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
@ -42,6 +42,8 @@ type
|
||||
|
||||
implementation
|
||||
|
||||
{$define HAS_GETMSCOUNT}
|
||||
|
||||
{$I dos.inc}
|
||||
|
||||
{******************************************************************************
|
||||
@ -132,12 +134,14 @@ procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
Procedure SetTime(Hour, Minute, Second, Sec100: Word);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
function GetMsCount: int64;
|
||||
begin
|
||||
result:=0;
|
||||
end;
|
||||
|
||||
{******************************************************************************
|
||||
--- Exec ---
|
||||
|
Loading…
Reference in New Issue
Block a user