Browse Source

* tosunits: tabs 2 spaces fix in the TOS unit

Karoly Balogh 3 years ago
parent
commit
4a85ab9cb9
1 changed files with 29 additions and 29 deletions
  1. 29 29
      packages/tosunits/src/tos.pas

+ 29 - 29
packages/tosunits/src/tos.pas

@@ -24,18 +24,18 @@ interface
 uses gemdos, xbios, bios, sysutils;
 
 const
-	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;
+    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;
 
 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;
-
-	{* 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;
+    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;
 
 (* ++++++++++++++++++++++++++++++++++++++++ *)
 (*                  BIOS                    *)