paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 11:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* internconst for ptr()

Browse Source
This commit is contained in:
peter 2004-11-26 22:26:30 +00:00
parent dac91ff361
commit 645ed0feb1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/systemh.inc
View File

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