paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +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; ptimeval = ^ttimeval;
ttimeval = record ttimeval = packed record
tv_secs : longint; tv_secs : longint;
tv_micro : longint; tv_micro : longint;
end; end;
ptimerequest = ^ttimerequest; ptimerequest = ^ttimerequest;
ttimerequest = record ttimerequest = packed record
tr_node : tIORequest; tr_node : tIORequest;
tr_time : ttimeval; tr_time : ttimeval;
end; end;
@ -1299,7 +1299,7 @@ end;
Procedure keep(exitcode : word); Procedure keep(exitcode : word);
Begin Begin
{ ! Not implemented in Linux ! } { ! Not implemented in MorphOS ! }
End; End;
procedure AddDevice(str : String); procedure AddDevice(str : String);
@ -1364,16 +1364,15 @@ Begin
ver := TRUE; ver := TRUE;
numberofdevices := 0; numberofdevices := 0;
StrOfPaths := ''; StrOfPaths := '';
AddDevice('DF0:');
AddDevice('DF1:');
AddDevice('DF2:');
AddDevice('DF3:');
ReadInDevices; ReadInDevices;
End. End.
{ {
$Log$ $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 * fixed a typo
Revision 1.2 2004/05/13 00:42:29 karoly Revision 1.2 2004/05/13 00:42:29 karoly