* removed redefinition of TextRec, included Dos-Unit for TextRec

packages/extra/ncurses/ncrt.inc

@@ -216,33 +216,6 @@ Var
    tios : TermIOS;                    { saves the term settings at startup }
    prev_textattr : integer;           { detect change in TextAttr }
 
-{==========================================================================
-   This code chunk is from the FPC source tree in rtl/inc/textrec.inc.
-   It is the internal format of a variable of type "Text" as defined and
-   described in the Borland Pascal docs.
- ==========================================================================}
-const
-  TextRecNameLength = 256;
-  TextRecBufSize    = 256;
-type
-  TextBuf = array[0..TextRecBufSize-1] of char;
-  TextRec = Packed Record
-    Handle    : THandle;
-    Mode      : longint;
-    bufsize,
-    _private,
-    bufpos,
-    bufend    : SizeInt;
-    bufptr    : ^textbuf;
-    openfunc,
-    inoutfunc,
-    flushfunc,
-    closefunc : pointer;
-    UserData  : array[1..16] of byte;
-    name      : array[0..textrecnamelength-1] of char;
-    buffer    : textbuf;
-  End;
-  
 {==========================================================================}
 
 { set the active window for write(ln), read(ln) }
@@ -964,7 +937,10 @@ Begin
 End;
 {
   $Log$
-  Revision 1.5  2004-05-25 15:52:15  peter
+  Revision 1.6  2004-09-22 13:45:48  armin
+  * removed redefinition of TextRec, included Dos-Unit for TextRec
+
+  Revision 1.5  2004/05/25 15:52:15  peter
     * adapt for 64bit textrec
 
   Revision 1.4  2004/05/03 20:52:48  peter

packages/extra/ncurses/ncrt.pp

@@ -33,7 +33,8 @@ Uses
     termio,
   {$endif}
 {$endif}
-  ncurses;
+  ncurses,
+  dos;  {dos needed for TextRec}
 
 {$i ncrt.inc}
 
@@ -47,7 +48,10 @@ Begin
 End. { of Unit nCrt }
 {
   $Log$
-  Revision 1.5  2003-11-19 17:11:40  marco
+  Revision 1.6  2004-09-22 13:45:48  armin
+  * removed redefinition of TextRec, included Dos-Unit for TextRec
+
+  Revision 1.5  2003/11/19 17:11:40  marco
    * termio unit
 
   Revision 1.4  2003/09/27 12:19:20  peter

packages/extra/ncurses/ocrt.pp

@@ -157,7 +157,8 @@ Uses
     termio,
   {$endif}
 {$endif}
-  ncurses,panel,menu;
+  ncurses,panel,menu,
+  dos;  {dos needed for TextRec}
 
 Const
 
@@ -3069,6 +3070,7 @@ Var
    sp1,sp2,sp3 : plongint;
 Begin
    If IsValid(i) Then Begin
+      sp1:=nil; sp2:=nil; sp3:=nil;
       ClearItem(i);
       GetMem(items[i],Length(s)+1);
       StrPCopy(items[i]^,s);
@@ -3272,7 +3274,10 @@ End. { of Unit oCrt }
 
 {
   $Log$
-  Revision 1.4  2003-11-19 17:11:40  marco
+  Revision 1.5  2004-09-22 13:45:48  armin
+  * removed redefinition of TextRec, included Dos-Unit for TextRec
+
+  Revision 1.4  2003/11/19 17:11:40  marco
    * termio unit
 
   Revision 1.3  2003/09/27 12:19:20  peter