mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 11:39:40 +01:00
39 lines
1.2 KiB
ObjectPascal
39 lines
1.2 KiB
ObjectPascal
{****************************************************************************
|
|
|
|
EMX - Interface unit for the EMX dynamic runtime library.
|
|
|
|
Part of FPK Pascal runtime library for OS/2
|
|
|
|
|
|
History:
|
|
2 June 1997 : Creation.
|
|
|
|
This unit is copyright (c) 1997 by Dani‰l Mantione.
|
|
FPK Pascal is copyright (c) -1997 by Florian Klaempfl.
|
|
EMX.DLL is copyright (c) -1996 by Eberhard Mattes.
|
|
|
|
Modifying this unit is allowed, under the following conditions:
|
|
|
|
- You will not make anyone beleive that you or someone else wrote this.
|
|
- Unless you are developing on the official version of FPK, you will make a
|
|
note in this file that it is not the original one.
|
|
|
|
****************************************************************************}
|
|
|
|
unit emx;
|
|
|
|
type Pfar=record
|
|
segment,offset:word;
|
|
end;
|
|
|
|
{! Don't call this one. It is used by the startup code.}
|
|
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;
|
|
{This one converts 32 bit flat pointers to 16:16 far ones.}
|
|
procedure __emx_32to16(Aptr:pointer):Pfar;
|
|
{This one should be called to call 16-bit procedures and functions.}
|
|
procedure __emx_thunk1(Aptr:pointer)
|