mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 14:20:05 +02:00
* Moved from OS/2 target
This commit is contained in:
yuri
parent
7fa443b61f
commit
ad0e0c3f94
9
rtl/emx/emx.imp
Normal file
9
rtl/emx/emx.imp
Normal file
@ -0,0 +1,9 @@
|
||||
;
|
||||
; emx.imp
|
||||
;
|
||||
_emx_init emx 1 R
|
||||
_emx_syscall emx 2 R
|
||||
_emx_16to32 emx 3 1
|
||||
_emx_32to16 emx 4 1
|
||||
_emx_thunk1 emx 5 2
|
||||
_emx_exception emx 6 4
|
||||
39
rtl/emx/emx.pas
Normal file
39
rtl/emx/emx.pas
Normal file
@ -0,0 +1,39 @@
|
||||
{****************************************************************************
|
||||
|
||||
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)
|
||||
|
||||
113
rtl/emx/emxwrap.imp
Normal file
113
rtl/emx/emxwrap.imp
Normal file
@ -0,0 +1,113 @@
|
||||
;
|
||||
; wrap.imp (created by emximp)
|
||||
;
|
||||
; -------- emxwrap.def --------
|
||||
EMX_REVISION EMXWRAP 1 ?
|
||||
WinDefAVioWindowProc EMXWRAP 30 ?
|
||||
VioEndPopUp EMXWRAP 101 ?
|
||||
VioGetPhysBuf EMXWRAP 102 ?
|
||||
VioGetAnsi EMXWRAP 103 ?
|
||||
VioSetAnsi EMXWRAP 105 ?
|
||||
VioDeRegister EMXWRAP 106 ?
|
||||
VioScrollUp EMXWRAP 107 ?
|
||||
VioPrtSc EMXWRAP 108 ?
|
||||
VioGetCurPos EMXWRAP 109 ?
|
||||
VioWrtCellStr EMXWRAP 110 ?
|
||||
VioPopUp EMXWRAP 111 ?
|
||||
VioScrollRt EMXWRAP 112 ?
|
||||
VioWrtCharStr EMXWRAP 113 ?
|
||||
VioSetCurPos EMXWRAP 115 ?
|
||||
VioScrUnLock EMXWRAP 118 ?
|
||||
VioWrtTTY EMXWRAP 119 ?
|
||||
VioGetMode EMXWRAP 121 ?
|
||||
VioSetMode EMXWRAP 122 ?
|
||||
VioScrLock EMXWRAP 123 ?
|
||||
VioReadCellStr EMXWRAP 124 ?
|
||||
VioSavRedrawWait EMXWRAP 125 ?
|
||||
VioWrtNAttr EMXWRAP 126 ?
|
||||
VioGetCurType EMXWRAP 127 ?
|
||||
VioSavRedrawUndo EMXWRAP 128 ?
|
||||
VioGetFont EMXWRAP 129 ?
|
||||
VioReadCharStr EMXWRAP 130 ?
|
||||
VioGetBuf EMXWRAP 131 ?
|
||||
VioSetCurType EMXWRAP 132 ?
|
||||
VioSetFont EMXWRAP 133 ?
|
||||
VioModeUndo EMXWRAP 135 ?
|
||||
VioModeWait EMXWRAP 137 ?
|
||||
VioGetCp EMXWRAP 140 ?
|
||||
VioSetCp EMXWRAP 142 ?
|
||||
VioShowBuf EMXWRAP 143 ?
|
||||
VioScrollLf EMXWRAP 144 ?
|
||||
VioRegister EMXWRAP 145 ?
|
||||
VioGetConfig EMXWRAP 146 ?
|
||||
VioScrollDn EMXWRAP 147 ?
|
||||
VioWrtCharStrAtt EMXWRAP 148 4
|
||||
VioGetState EMXWRAP 149 ?
|
||||
VioPrtScToggle EMXWRAP 150 ?
|
||||
VioSetState EMXWRAP 151 ?
|
||||
VioWrtNCell EMXWRAP 152 ?
|
||||
VioWrtNChar EMXWRAP 153 ?
|
||||
VioAssociate EMXWRAP 155 ?
|
||||
VioCreatePS EMXWRAP 156 ?
|
||||
VioDeleteSetId EMXWRAP 157 ?
|
||||
VioGetDeviceCellSize EMXWRAP 158 ?
|
||||
VioGetOrg EMXWRAP 159 ?
|
||||
VioCreateLogFont EMXWRAP 160 ?
|
||||
VioDestroyPS EMXWRAP 161 ?
|
||||
VioQuerySetIds EMXWRAP 162 ?
|
||||
VioSetOrg EMXWRAP 163 ?
|
||||
VioQueryFonts EMXWRAP 164 ?
|
||||
VioSetDeviceCellSize EMXWRAP 165 ?
|
||||
VioShowPS EMXWRAP 166 ?
|
||||
VioGlobalReg EMXWRAP 170 ?
|
||||
VioCheckCharType EMXWRAP 175 ?
|
||||
KbdSetCustXt EMXWRAP 201 ?
|
||||
KbdGetCp EMXWRAP 203 ?
|
||||
KbdCharIn EMXWRAP 204 ?
|
||||
KbdSetCp EMXWRAP 205 ?
|
||||
KbdSynch EMXWRAP 207 ?
|
||||
KbdRegister EMXWRAP 208 ?
|
||||
KbdStringIn EMXWRAP 209 ?
|
||||
KbdGetStatus EMXWRAP 210 ?
|
||||
KbdSetStatus EMXWRAP 211 ?
|
||||
KbdGetFocus EMXWRAP 212 ?
|
||||
KbdFlushBuffer EMXWRAP 213 ?
|
||||
KbdXlate EMXWRAP 214 ?
|
||||
KbdClose EMXWRAP 217 ?
|
||||
KbdFreeFocus EMXWRAP 218 ?
|
||||
KbdDeRegister EMXWRAP 220 ?
|
||||
KbdSetFgnd EMXWRAP 221 ?
|
||||
KbdPeek EMXWRAP 222 ?
|
||||
KbdOpen EMXWRAP 223 ?
|
||||
KbdGetHWID EMXWRAP 224 ?
|
||||
KbdSetHWID EMXWRAP 225 ?
|
||||
MouGetPtrShape EMXWRAP 301 ?
|
||||
MouSetPtrShape EMXWRAP 302 ?
|
||||
MouGetNumMickeys EMXWRAP 303 ?
|
||||
MouGetScaleFact EMXWRAP 306 ?
|
||||
MouFlushQue EMXWRAP 307 ?
|
||||
MouGetNumButtons EMXWRAP 308 ?
|
||||
MouClose EMXWRAP 309 ?
|
||||
MouSetScaleFact EMXWRAP 311 ?
|
||||
MouGetNumQueEl EMXWRAP 313 ?
|
||||
MouDeRegister EMXWRAP 314 ?
|
||||
MouGetEventMask EMXWRAP 315 ?
|
||||
MouSetEventMask EMXWRAP 316 ?
|
||||
MouOpen EMXWRAP 317 ?
|
||||
MouRemovePtr EMXWRAP 318 ?
|
||||
MouGetPtrPos EMXWRAP 319 ?
|
||||
MouReadEventQue EMXWRAP 320 ?
|
||||
MouSetPtrPos EMXWRAP 321 ?
|
||||
MouGetDevStatus EMXWRAP 322 ?
|
||||
MouSynch EMXWRAP 323 ?
|
||||
MouRegister EMXWRAP 324 ?
|
||||
MouSetDevStatus EMXWRAP 325 ?
|
||||
MouDrawPtr EMXWRAP 326 ?
|
||||
MouInitReal EMXWRAP 327 ?
|
||||
MouSetThreshold EMXWRAP 329 ?
|
||||
MouGetThreshold EMXWRAP 330 ?
|
||||
DosMonWrite EMXWRAP 401 ?
|
||||
DosMonRead EMXWRAP 402 ?
|
||||
DosMonClose EMXWRAP 403 ?
|
||||
DosMonOpen EMXWRAP 404 ?
|
||||
DosMonReg EMXWRAP 405 ?
|
||||
Loading…
Reference in New Issue
Block a user