paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-03 18:48:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for H+

Browse Source
This commit is contained in:
peter 1998-11-16 10:21:24 +00:00
parent 59c75c7410
commit dbbdb79dfe
8 changed files with 118 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objects.pp
View File

@ -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

20
rtl/inc/system.inc
View File

@ -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

22
rtl/inc/systemh.inc
View File

@ -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-}
{ $8000000 creates a longint overfow !! }
Longint = $80000000..$7fffffff;
Longint = $80000000..$7fffffff; { $8000000 creates a longint overfow !! }
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

9
rtl/linux/crt.pp
View File

@ -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

13
rtl/linux/linux.pp
View File

@ -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

7
rtl/linux/printer.pp
View File

@ -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

7
rtl/linux/sockets.pp
View File

@ -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

7
rtl/linux/syslinux.pp
View File

@ -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