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

* mistyping correction

Browse Source
This commit is contained in:
Tomas Hajny 2000-09-03 18:58:07 +00:00
parent 0c676fa0a5
commit 531aca1a08
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/os2/emx.pas
View File

@ -9,7 +9,7 @@ History:
2 June 1997 : Creation.
This unit is Copyright (c) 1999-2000 by Daniel Mantione.
Free Pascal is Ccopyright (c) -1999-2000 by Florian Klaempfl.
Free Pascal is Copyright (c) -1999-2000 by Florian Klaempfl.
EMX.DLL is Copyright (c) -1999-2000 by Eberhard Mattes.
Modifying this unit is allowed, under the following conditions:
@ -22,8 +22,8 @@ Modifying this unit is allowed, under the following conditions:
unit emx;
type Pfar=record
segment,offset:word;
type PFar=record
Segment,Offset:word;
end;
{! Don't call this one. It is used by the startup code.}
@ -31,8 +31,9 @@ procedure __emxinit;
{! Calling this is not recommended. Use ___syscall instead.}
procedure __emx_syscall;
{This one converts 16:16 far pointers to 32 bit flat ones.}
procedure __emx_16to32(Aptr:Pfar):pointer;
procedure __emx_16to32(APtr:PFar):pointer;
{This one converts 32 bit flat pointers to 16:16 far ones.}
procedure __emx_32to16(Aptr:pointer):Pfar;
procedure __emx_32to16(APtr:pointer):PFar;
{This one should be called to call 16-bit procedures and functions.}
procedure __emx_thunk1(Aptr:pointer)
procedure __emx_thunk1(APtr:pointer)