paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 05:09:49 +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

1328
rtl/inc/system.inc
View File

File diff suppressed because it is too large Load Diff

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