paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +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_GETCBREAK}
{$DEFINE HAS_SETSBREAK}
{$DEFINE HAS_SETCBREAK}
{$DEFINE HAS_KEEP}
{$define FPC_FEXPAND_DRIVES}
@ -422,7 +422,7 @@ end;
procedure setftime(var f;time : longint);
begin
{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;
@ -440,7 +440,7 @@ end;
procedure setfattr(var f;attr : word);
begin
{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;
@ -451,14 +451,14 @@ end;
function envcount : longint;
begin
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;
function envstr (index: longint) : string;
begin
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;
{ works fine (at least with netware 6.5) }
@ -519,7 +519,10 @@ End;
end.
{
$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
Revision 1.11 2004/08/01 20:02:48 armin