paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 16:49:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ptr returns farpointer

Browse Source
This commit is contained in:
peter 2000-11-11 16:12:01 +00:00
parent 4c3b82822f
commit 24b631132e
2 changed files with 670 additions and 665 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/system.inc
View File

@ -282,10 +282,9 @@ end;
{$ifndef RTLLITE}
Function Ptr(sel,off : Longint) : pointer;[internconst:in_const_ptr];
Function Ptr(sel,off : Longint) : farpointer;[internconst:in_const_ptr];
Begin
sel:=0;
ptr:=pointer(off);
ptr:=farpointer((sel shl 4)+off);
End;
Function CSeg : Word;
@ -640,7 +639,10 @@ end;
{
$Log$
Revision 1.8 2000-11-06 21:35:59 peter
Revision 1.9 2000-11-11 16:12:01 peter
* ptr returns farpointer
Revision 1.8 2000/11/06 21:35:59 peter
* removed some warnings
Revision 1.7 2000/11/04 17:52:46 florian

7
rtl/inc/systemh.inc
View File

@ -253,7 +253,7 @@ Function odd(l:Longint):Boolean;
****************************************************************************}
{$ifndef RTLLITE}
Function ptr(sel,off:Longint):pointer;
Function ptr(sel,off:Longint):farpointer;
Function Cseg:Word;
Function Dseg:Word;
Function Sseg:Word;
@ -484,7 +484,10 @@ const
{
$Log$
Revision 1.10 2000-11-06 21:35:59 peter
Revision 1.11 2000-11-11 16:12:01 peter
* ptr returns farpointer
Revision 1.10 2000/11/06 21:35:59 peter
* removed some warnings
Revision 1.9 2000/11/06 20:34:24 peter