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

rtl/inc/system.inc

@@ -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 : byte);       [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 : Longint);    [INTERNPROC: In_Dec_DWord];
 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 : byte);       [INTERNPROC: In_Dec_byte];
 Procedure Dec(var c : Char);       [INTERNPROC: In_Dec_byte];
+Procedure Dec(var p : PChar);      [INTERNPROC: In_Dec_DWord];
 
 {$IFNDEF ORDINTERN}
   Function ord(c : Char) : byte;    [INTERNPROC: In_ord_Char];
@@ -174,6 +176,15 @@ Begin
   Byte(c):=byte(c)+a;
 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;
 Begin
@@ -402,7 +413,10 @@ End;
 
 {
   $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)
 
   Revision 1.2  1998/03/25 23:39:17  florian

rtl/inc/systemh.inc

@@ -167,6 +167,7 @@ Procedure Inc(Var i:Word);
 Procedure Inc(Var i:shortint);
 Procedure Inc(Var i:byte);
 Procedure Inc(Var c:Char);
+Procedure Inc(Var p:PChar);
 Procedure Dec(Var i:cardinal);
 Procedure Dec(Var i:Longint);
 Procedure Dec(Var i:Integer);
@@ -174,6 +175,7 @@ Procedure Dec(Var i:Word);
 Procedure Dec(Var i:shortint);
 Procedure Dec(Var i:byte);
 Procedure Dec(Var c:Char);
+Procedure Dec(Var p:PChar);
 {$IFNDEF ORDINTERN}
   Function Ord(c:Char):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 Dec(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:Integer):Integer;
 Function  Swap (X:Cardinal):Cardinal;
@@ -392,7 +396,10 @@ Procedure AddExitProc(Proc:TProcedure);
 
 {
   $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)
 
   Revision 1.2  1998/03/25 23:39:17  florian