freepascal.compiler/rtl/os2/emx.pas

{****************************************************************************

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)