mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 22:19:32 +02:00
40 lines
1.3 KiB
ObjectPascal
40 lines
1.3 KiB
ObjectPascal
{****************************************************************************
|
|
|
|
EMX - Interface unit for the EMX dynamic runtime library.
|
|
|
|
Part of Free Pascal runtime library for OS/2
|
|
|
|
|
|
History:
|
|
2 June 1997 : Creation.
|
|
|
|
This unit is Copyright (c) 1999-2000 by Daniel Mantione.
|
|
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:
|
|
|
|
- You will not make anyone beleive that you or someone else wrote this.
|
|
- Unless you are developing on the official version of FPC, 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)
|
|
|