* fixes for H+

rtl/inc/objects.pp

@@ -88,7 +88,9 @@ UNIT Objects;
 
 
 {==== Compiler directives ===========================================}
-{$IFNDEF FPC}
+{$IFDEF FPC}
+  {$H-} { No ansistrings }
+{$ELSE}
 { FPC doesn't support these switches in 0.99.5 }
   {$F+} { Force far calls }
   {$A+} { Word Align Data }
@@ -2726,7 +2728,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.12  1998-11-12 11:54:50  peter
+  Revision 1.13  1998-11-16 10:21:24  peter
+    * fixes for H+
+
+  Revision 1.12  1998/11/12 11:54:50  peter
     * fixed for 0.99.8
 
   Revision 1.11  1998/11/12 11:45:09  peter

rtl/inc/system.inc

@@ -256,6 +256,21 @@ End;
 {$endif RTLLITE}
 
 
+{*****************************************************************************
+                             Directory support.
+*****************************************************************************}
+
+Procedure getdir(drivenr:byte;Var dir:ansistring);
+{ this is needed to also allow ansistrings, the shortstring version is
+  OS dependent }
+var
+  s : shortstring;
+begin
+  getdir(drivenr,s);
+  dir:=s;
+end;
+
+
 {*****************************************************************************
                              Miscellaneous
 *****************************************************************************}
@@ -462,7 +477,10 @@ end;
 
 {
   $Log$
-  Revision 1.41  1998-11-05 10:29:36  pierre
+  Revision 1.42  1998-11-16 10:21:25  peter
+    * fixes for H+
+
+  Revision 1.41  1998/11/05 10:29:36  pierre
    * fix for length(char) in const expressions
 
   Revision 1.40  1998/11/04 20:34:02  michael

rtl/inc/systemh.inc

@@ -26,15 +26,23 @@
 
 {$i version.inc}
 
+{****************************************************************************
+                             Needed switches
+****************************************************************************}
+
+{$I-,Q-,H-,R-}
+
+{ Stack check gives a note under linux }
+{$ifndef linux}
+  {$S-}
+{$endif}
 
 {****************************************************************************
                          Global Types and Constants
 ****************************************************************************}
 
 Type
-{$Q-}
+  Longint  = $80000000..$7fffffff; { $8000000 creates a longint overfow !! }
-{ $8000000 creates a longint overfow !! }
-  Longint  = $80000000..$7fffffff;
   Integer  = -32768..32767;
   shortint = -128..127;
   byte     = 0..255;
@@ -379,7 +387,8 @@ Procedure SetTextBuf(Var f:Text; Var Buf; Size:Word);
 Procedure chdir(const s:string);
 Procedure mkdir(const s:string);
 Procedure rmdir(const s:string);
-Procedure getdir(drivenr:byte;Var dir:string);
+Procedure getdir(drivenr:byte;Var dir:shortstring);
+Procedure getdir(drivenr:byte;Var dir:ansistring);
 
 {*****************************************************************************
                              Miscelleaous
@@ -430,7 +439,10 @@ const
 
 {
   $Log$
-  Revision 1.40  1998-11-05 10:29:37  pierre
+  Revision 1.41  1998-11-16 10:21:26  peter
+    * fixes for H+
+
+  Revision 1.40  1998/11/05 10:29:37  pierre
    * fix for length(char) in const expressions
 
   Revision 1.39  1998/11/04 20:34:01  michael

rtl/linux/crt.pp

@@ -1082,7 +1082,7 @@ end;
 
 var
   Lastansi  : boolean;
-  AnsiCode  : string[32];
+  AnsiCode  : string;
 Procedure DoWrite(const s:String);
 {
   Write string to screen, parse most common AnsiCodes
@@ -1231,7 +1231,7 @@ Var
   Temp : String;
 Begin
   Move(F.BufPTR^[0],Temp[1],F.BufPos);
-  temp[0]:=chr(F.BufPos);
+  setlength(temp,F.BufPos);
   DoWrite(Temp);
   F.BufPos:=0;
   CrtWrite:=0;
@@ -1492,7 +1492,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.12  1998-11-10 15:01:01  peter
+  Revision 1.13  1998-11-16 10:21:27  peter
+    * fixes for H+
+
+  Revision 1.12  1998/11/10 15:01:01  peter
     * fixed GetXY at startup
 
   Revision 1.11  1998/10/30 12:11:51  peter

rtl/linux/linux.pp

@@ -2946,7 +2946,9 @@ Function Dirname(Const path:pathstr):pathstr;
   a slash.
 }
 var
-  Dir,Name,Ext : string;
+  Dir  : PathStr;
+  Name : NameStr;
+  Ext  : ExtStr;
 begin
   FSplit(Path,Dir,Name,Ext);
   if length(Dir)>1 then
@@ -2962,7 +2964,9 @@ Function Basename(Const path:pathstr;Const suf:pathstr):pathstr;
   supplied, it is cut off the filename.
 }
 var
-  Dir,Name,Ext : string;
+  Dir  : PathStr;
+  Name : NameStr;
+  Ext  : ExtStr;
 begin
   FSplit(Path,Dir,Name,Ext);
   if Suf<>Ext then
@@ -3515,7 +3519,10 @@ End.
 
 {
   $Log$
-  Revision 1.24  1998-11-10 14:57:53  peter
+  Revision 1.25  1998-11-16 10:21:28  peter
+    * fixes for H+
+
+  Revision 1.24  1998/11/10 14:57:53  peter
     * renamed rename -> FRename
 
   Revision 1.23  1998/10/30 15:47:11  peter

rtl/linux/printer.pp

@@ -42,7 +42,7 @@ Const
 Var
   Lst : Text;
 
-Procedure AssignLst ( Var F : text; ToFile : string[255]);
+Procedure AssignLst ( Var F : text; ToFile : string);
 {
  Assigns to F a printing device. ToFile is a string with the following form:
  '|filename options'  : This sets up a pipe with the program filename,
@@ -254,7 +254,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  1998-05-06 12:35:26  michael
+  Revision 1.3  1998-11-16 10:21:29  peter
+    * fixes for H+
+
+  Revision 1.2  1998/05/06 12:35:26  michael
   + Removed log from before restored version.
 
   Revision 1.1.1.1  1998/03/25 11:18:43  root

rtl/linux/sockets.pp

@@ -396,7 +396,7 @@ begin
   AddrLen:=length(addr)+3;
   DoAccept:=Accept(Sock,UnixAddr,AddrLen);
   Move(UnixAddr.Path,Addr[1],AddrLen);
-  Addr[0]:=Chr(AddrLen);
+  SetLength(Addr,AddrLen);
 end;
 
 
@@ -554,7 +554,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  1998-07-16 10:36:45  michael
+  Revision 1.3  1998-11-16 10:21:30  peter
+    * fixes for H+
+
+  Revision 1.2  1998/07/16 10:36:45  michael
   + added connect call for inet sockets
 
   Revision 1.1.1.1  1998/03/25 11:18:43  root

rtl/linux/syslinux.pp

@@ -615,7 +615,7 @@ Begin
 End;
 
 
-procedure getdir(drivenr : byte;var dir : string);
+procedure getdir(drivenr : byte;var dir : shortstring);
 {$ifndef crtlib}
 var
   thisdir      : stat;
@@ -739,7 +739,10 @@ End.
 
 {
   $Log$
-  Revision 1.17  1998-10-15 08:30:00  peter
+  Revision 1.18  1998-11-16 10:21:32  peter
+    * fixes for H+
+
+  Revision 1.17  1998/10/15 08:30:00  peter
     + sigfpe -> runerror 200
 
   Revision 1.16  1998/09/14 10:48:27  peter