Browse Source

+ more dummy consts added

git-svn-id: branches/z80@45033 -
nickysn 5 years ago
parent
commit
4ca4f8abd5
1 changed files with 12 additions and 0 deletions
  1. 12 0
      rtl/zxspectrum/system.pp

+ 12 - 0
rtl/zxspectrum/system.pp

@@ -123,6 +123,18 @@ const
   maxExitCode = 255;
   maxExitCode = 255;
   MaxPathLen = 256;
   MaxPathLen = 256;
 
 
+{ Default filehandles }
+  UnusedHandle    = $ffff;{ instead of -1, as it is a word value}
+  StdInputHandle  = 0;
+  StdOutputHandle = 1;
+  StdErrorHandle  = 2;
+
+  FileNameCaseSensitive : boolean = false;
+  FileNameCasePreserving: boolean = false;
+  CtrlZMarksEOF: boolean = true; (* #26 is considered as end of file *)
+
+  sLineBreak = LineEnding;
+  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
 
 
 {$I system.inc}
 {$I system.inc}
 {$I tinyheap.inc}
 {$I tinyheap.inc}