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

* fixed typo's

Browse Source
This commit is contained in:
armin 2004-12-07 11:03:44 +00:00
parent be1d1d304d
commit b14718e7c5
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/netware/dos.pp
View File

@ -39,7 +39,7 @@ uses
{$DEFINE HAS_GETMSCOUNT} {$DEFINE HAS_GETMSCOUNT}
{$DEFINE HAS_GETCBREAK} {$DEFINE HAS_GETCBREAK}
{$DEFINE HAS_SETSBREAK} {$DEFINE HAS_SETCBREAK}
{$DEFINE HAS_KEEP} {$DEFINE HAS_KEEP}
{$define FPC_FEXPAND_DRIVES} {$define FPC_FEXPAND_DRIVES}
@ -422,7 +422,7 @@ end;
procedure setftime(var f;time : longint); procedure setftime(var f;time : longint);
begin begin
{is there a netware function to do that ?????} {is there a netware function to do that ?????}
ConsolePrintf ('warning: fpc dos.setftime not implemented'#13#10,0); ConsolePrintf ('warning: fpc dos.setftime not implemented'#13#10);
end; end;
@ -440,7 +440,7 @@ end;
procedure setfattr(var f;attr : word); procedure setfattr(var f;attr : word);
begin begin
{is there a netware function to do that ?????} {is there a netware function to do that ?????}
ConsolePrintf ('warning: fpc dos.setfattr not implemented'#13#10,0); ConsolePrintf ('warning: fpc dos.setfattr not implemented'#13#10);
end; end;
@ -451,14 +451,14 @@ end;
function envcount : longint; function envcount : longint;
begin begin
envcount := 0; {is there a netware function to do that ?????} envcount := 0; {is there a netware function to do that ?????}
ConsolePrintf ('warning: fpc dos.envcount not implemented'#13#10,0); ConsolePrintf ('warning: fpc dos.envcount not implemented'#13#10);
end; end;
function envstr (index: longint) : string; function envstr (index: longint) : string;
begin begin
envstr := ''; {is there a netware function to do that ?????} envstr := ''; {is there a netware function to do that ?????}
ConsolePrintf ('warning: fpc dos.envstr not implemented'#13#10,0); ConsolePrintf ('warning: fpc dos.envstr not implemented'#13#10);
end; end;
{ works fine (at least with netware 6.5) } { works fine (at least with netware 6.5) }
@ -519,7 +519,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.12 2004-12-05 16:44:43 hajny Revision 1.13 2004-12-07 11:03:44 armin
* fixed typo's
Revision 1.12 2004/12/05 16:44:43 hajny
* GetMsCount added, platform independent routines moved to single include file * GetMsCount added, platform independent routines moved to single include file
Revision 1.11 2004/08/01 20:02:48 armin Revision 1.11 2004/08/01 20:02:48 armin