paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some cleanup

Browse Source
This commit is contained in:
Károly Balogh 2004-05-16 00:24:19 +00:00
parent a046919846
commit db9973de4b
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/morphos/dos.pp
View File

@ -385,13 +385,13 @@ Type
ptimeval = ^ttimeval;
ttimeval = record
ttimeval = packed record
tv_secs : longint;
tv_micro : longint;
end;
ptimerequest = ^ttimerequest;
ttimerequest = record
ttimerequest = packed record
tr_node : tIORequest;
tr_time : ttimeval;
end;
@ -1299,7 +1299,7 @@ end;
Procedure keep(exitcode : word);
Begin
{ ! Not implemented in Linux ! }
{ ! Not implemented in MorphOS ! }
End;
procedure AddDevice(str : String);
@ -1364,16 +1364,15 @@ Begin
ver := TRUE;
numberofdevices := 0;
StrOfPaths := '';
AddDevice('DF0:');
AddDevice('DF1:');
AddDevice('DF2:');
AddDevice('DF3:');
ReadInDevices;
End.
{
$Log$
Revision 1.3 2004-05-13 00:48:52 karoly
Revision 1.4 2004-05-16 00:24:19 karoly
* some cleanup
Revision 1.3 2004/05/13 00:48:52 karoly
* fixed a typo
Revision 1.2 2004/05/13 00:42:29 karoly