paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ inc(pchar), dec(pchar), incc(pchar,a),dec(pchar,a)

Browse Source
This commit is contained in:
peter 1998-04-16 12:30:47 +00:00
parent fe8458eaa2
commit 4594d7ae04
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/system.inc
View File

@ -69,6 +69,7 @@ Procedure Inc(var i : Word); [INTERNPROC: In_Inc_Word];
Procedure Inc(var i : shortint); [INTERNPROC: In_Inc_byte]; Procedure Inc(var i : shortint); [INTERNPROC: In_Inc_byte];
Procedure Inc(var i : byte); [INTERNPROC: In_Inc_byte]; Procedure Inc(var i : byte); [INTERNPROC: In_Inc_byte];
Procedure Inc(var c : Char); [INTERNPROC: In_Inc_byte]; Procedure Inc(var c : Char); [INTERNPROC: In_Inc_byte];
Procedure Inc(var p : PChar); [INTERNPROC: In_Inc_DWord];
Procedure Dec(var i : Cardinal); [INTERNPROC: In_Dec_DWord]; Procedure Dec(var i : Cardinal); [INTERNPROC: In_Dec_DWord];
Procedure Dec(var i : Longint); [INTERNPROC: In_Dec_DWord]; Procedure Dec(var i : Longint); [INTERNPROC: In_Dec_DWord];
Procedure Dec(var i : Integer); [INTERNPROC: In_Dec_Word]; Procedure Dec(var i : Integer); [INTERNPROC: In_Dec_Word];
@ -76,6 +77,7 @@ Procedure Dec(var i : Word); [INTERNPROC: In_Dec_Word];
Procedure Dec(var i : shortint); [INTERNPROC: In_Dec_byte]; Procedure Dec(var i : shortint); [INTERNPROC: In_Dec_byte];
Procedure Dec(var i : byte); [INTERNPROC: In_Dec_byte]; Procedure Dec(var i : byte); [INTERNPROC: In_Dec_byte];
Procedure Dec(var c : Char); [INTERNPROC: In_Dec_byte]; Procedure Dec(var c : Char); [INTERNPROC: In_Dec_byte];
Procedure Dec(var p : PChar); [INTERNPROC: In_Dec_DWord];
{$IFNDEF ORDINTERN} {$IFNDEF ORDINTERN}
Function ord(c : Char) : byte; [INTERNPROC: In_ord_Char]; Function ord(c : Char) : byte; [INTERNPROC: In_ord_Char];
@ -174,6 +176,15 @@ Begin
Byte(c):=byte(c)+a; Byte(c):=byte(c)+a;
End; End;
Procedure Dec(var p : PChar;a : Longint);
Begin
longint(p):=longint(p)-a;
End;
Procedure Inc(var p : PChar;a : Longint);
Begin
longint(p):=longint(p)+a;
End;
Function swap (X : Word) : Word; Function swap (X : Word) : Word;
Begin Begin
@ -402,7 +413,10 @@ End;
{ {
$Log$ $Log$
Revision 1.3 1998-04-08 07:53:32 michael Revision 1.4 1998-04-16 12:30:47 peter
+ inc(pchar), dec(pchar), incc(pchar,a),dec(pchar,a)
Revision 1.3 1998/04/08 07:53:32 michael
+ Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno) + Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno)
Revision 1.2 1998/03/25 23:39:17 florian Revision 1.2 1998/03/25 23:39:17 florian

9
rtl/inc/systemh.inc
View File

@ -167,6 +167,7 @@ Procedure Inc(Var i:Word);
Procedure Inc(Var i:shortint); Procedure Inc(Var i:shortint);
Procedure Inc(Var i:byte); Procedure Inc(Var i:byte);
Procedure Inc(Var c:Char); Procedure Inc(Var c:Char);
Procedure Inc(Var p:PChar);
Procedure Dec(Var i:cardinal); Procedure Dec(Var i:cardinal);
Procedure Dec(Var i:Longint); Procedure Dec(Var i:Longint);
Procedure Dec(Var i:Integer); Procedure Dec(Var i:Integer);
@ -174,6 +175,7 @@ Procedure Dec(Var i:Word);
Procedure Dec(Var i:shortint); Procedure Dec(Var i:shortint);
Procedure Dec(Var i:byte); Procedure Dec(Var i:byte);
Procedure Dec(Var c:Char); Procedure Dec(Var c:Char);
Procedure Dec(Var p:PChar);
{$IFNDEF ORDINTERN} {$IFNDEF ORDINTERN}
Function Ord(c:Char):byte; Function Ord(c:Char):byte;
Function Ord(b:Boolean):byte; Function Ord(b:Boolean):byte;
@ -195,6 +197,8 @@ Procedure Dec(Var i:shortint;a:Longint);
Procedure Inc(Var i:shortint;a:Longint); Procedure Inc(Var i:shortint;a:Longint);
Procedure Dec(Var c:Char;a:Longint); Procedure Dec(Var c:Char;a:Longint);
Procedure Inc(Var c:Char;a:Longint); Procedure Inc(Var c:Char;a:Longint);
Procedure Dec(Var p:PChar;a:Longint);
Procedure Inc(Var p:PChar;a:Longint);
Function Swap (X:Word):Word; Function Swap (X:Word):Word;
Function Swap (X:Integer):Integer; Function Swap (X:Integer):Integer;
Function Swap (X:Cardinal):Cardinal; Function Swap (X:Cardinal):Cardinal;
@ -392,7 +396,10 @@ Procedure AddExitProc(Proc:TProcedure);
{ {
$Log$ $Log$
Revision 1.3 1998-03-26 14:41:22 michael Revision 1.4 1998-04-16 12:30:47 peter
+ inc(pchar), dec(pchar), incc(pchar,a),dec(pchar,a)
Revision 1.3 1998/03/26 14:41:22 michael
+ Added comp support for val and read(ln) + Added comp support for val and read(ln)
Revision 1.2 1998/03/25 23:39:17 florian Revision 1.2 1998/03/25 23:39:17 florian