paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 07:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* dos.inc renamed to dos_beos.inc

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-05 16:43:28 +00:00
parent b5d6262fb9
commit 80606b3569
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/beos/dos.inc → rtl/beos/dos_beos.inc
View File

@ -100,9 +100,6 @@ End;
{****************************************************************************** {******************************************************************************
--- Exec --- --- Exec ---
******************************************************************************} ******************************************************************************}
var
LastDosExitCode: word;
Procedure Exec(const path: pathstr; const comline: comstr); Procedure Exec(const path: pathstr; const comline: comstr);
var p:string; var p:string;
argv:ppchar; argv:ppchar;
@ -123,11 +120,6 @@ begin
LastDosExitCode:=status and $FF; { only keep the lower 8-bits } LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
end; end;
Function DosExitCode: Word;
Begin
DosExitCode:=LastDosExitCode;
End;
function GetTimeZoneString : string; function GetTimeZoneString : string;
begin begin
@ -152,7 +144,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2003-01-08 22:32:28 marco Revision 1.1 2004-12-05 16:43:40 hajny
* dos.inc renamed to dos_beos.inc
Revision 1.2 2003/01/08 22:32:28 marco
* Small fixes and quick merge with 1.0.x. At least the compiler builds now, * Small fixes and quick merge with 1.0.x. At least the compiler builds now,
but it could crash hard, since there are lots of unimplemented funcs. but it could crash hard, since there are lots of unimplemented funcs.