From 645ed0feb19a5a5ae2730143ebaa68333f2ebc20 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 26 Nov 2004 22:26:30 +0000
Subject: [PATCH] * internconst for ptr()
---
rtl/inc/systemh.inc | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 004bfc5768..16a82aeca1 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -462,7 +462,7 @@ operator ** (bas,expo : int64) i: int64;
Addr/Pointer Handling
****************************************************************************}
-Function ptr(sel,off:Longint):farpointer;{$ifdef SYSTEMINLINE}inline;{$endif}
+Function ptr(sel,off:Longint):farpointer;{$ifdef INTERNCONSTINTF}[internconst:fpc_in_const_ptr];{$endif}{$ifdef SYSTEMINLINE}inline;{$endif}
Function Cseg:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Dseg:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Sseg:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
@@ -795,7 +795,10 @@ const
{
$Log$
- Revision 1.109 2004-11-22 22:48:10 michael
+ Revision 1.110 2004-11-26 22:26:30 peter
+ * internconst for ptr()
+
+ Revision 1.109 2004/11/22 22:48:10 michael
+ Added phony documentation declarations
Revision 1.108 2004/11/17 22:19:04 peter