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

* tosunits: tabs 2 spaces fix in the TOS unit

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-04 01:52:21 +01:00
parent b2e553d3c4
commit 4a85ab9cb9
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
packages/tosunits/src/tos.pas
View File

@ -24,18 +24,18 @@ interface
uses gemdos, xbios, bios, sysutils;
const
FO_READ = 0;
FO_WRITE = 1;
FO_RW = 2;
FO_READ = 0;
FO_WRITE = 1;
FO_RW = 2;
FA_RDONLY = $1;
FA_HIDDEN = $2;
FA_SYSTEM = $4;
FA_LABEL = $8;
FA_DIREC = $10;
FA_ARCH = $20;
FA_SYMLINK = $40;
FA_ATTRIB = $17;
FA_RDONLY = $1;
FA_HIDDEN = $2;
FA_SYSTEM = $4;
FA_LABEL = $8;
FA_DIREC = $10;
FA_ARCH = $20;
FA_SYMLINK = $40;
FA_ATTRIB = $17;
type
DOSTIME = TDOSTIME;
@ -64,23 +64,23 @@ type
IORECORDPtr = ^IORECORD;
KEYTAB = TKEYTAB;
KEYTABPtr = ^KEYTAB;
KBDVECS = TKBDVECS;
KBDVECSPtr = ^KBDVECS;
PBDEF = TPBDEF;
PBDEFPtr = ^PBDEF;
DSPBLOCK = TDSPBLOCK;
DSPBLOCKPtr = ^DSPBLOCK;
KBDVECS = TKBDVECS;
KBDVECSPtr = ^KBDVECS;
PBDEF = TPBDEF;
PBDEFPtr = ^PBDEF;
DSPBLOCK = TDSPBLOCK;
DSPBLOCKPtr = ^DSPBLOCK;
{* same as TDTA in gemdos; except that d_fname is String *}
DTAPtr = ^DTA;
DTA = record
d_reserved : Array[1..21] of Byte;
d_attrib : Byte;
d_time : word;
d_date : word;
d_length : LongInt;
d_fname : String[12];
end;
{* same as TDTA in gemdos; except that d_fname is String *}
DTAPtr = ^DTA;
DTA = record
d_reserved : Array[1..21] of Byte;
d_attrib : Byte;
d_time : word;
d_date : word;
d_length : LongInt;
d_fname : String[12];
end;
(* ++++++++++++++++++++++++++++++++++++++++ *)
(* BIOS *)