From 4594d7ae049f8d575bda7541864b97b74d123695 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 16 Apr 1998 12:30:47 +0000
Subject: [PATCH]   + inc(pchar), dec(pchar), incc(pchar,a),dec(pchar,a)

---
 rtl/inc/system.inc  | 16 +++++++++++++++-
 rtl/inc/systemh.inc |  9 ++++++++-
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 728585df0a..b4556cd2a0 100644
--- a/rtl/inc/system.inc
+++ b/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
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 060429a4a6..e2aea3eb4a 100644
--- a/rtl/inc/systemh.inc
+++ b/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