paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 08:00:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

- not needed any more

Browse Source
This commit is contained in:
Tomas Hajny 2002-11-02 11:38:01 +00:00
parent c8cb68e0a7
commit 426303d1bc
2 changed files with 0 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/os2/code2.as
View File

@ -1,26 +0,0 @@
/ code2.as (emx+fpk) -- Copyright (c) 1992-1999-2000 by Eberhard Mattes
/ Changed for Free Pascal in 1999-2000 by Daniel Mantione.
/ This code is _not_ under the Library GNU Public
/ License, because the original is not. See copying.emx
/ for details. You should have received it with this
/ product, write the author if you haven't.
.globl DosGetMessage
.globl _msgseg32
_msgseg32:
.byte 0xff
.asciz "MSGSEG32"
.byte 0x01, 0x80, 0x00, 0x00
.long L_tab
.align 2, 0x90
DosGetMessage:
popl %ecx /* return address */
pushl $_msgseg32
pushl %ecx
jmp _DOSCALLS$$_DOSTRUEGETMESSAGE$POINTER$PINSERTTABLE$LONGINT$PCHAR$LONGINT$LONGINT$PCHAR$LONGINT
L_tab: .short 0x0000
.short 0xffff

18
rtl/os2/code3.as
View File

@ -1,18 +0,0 @@
/ code2.as (emx+fpk) -- Copyright (c) 1992-1999-2000 by Eberhard Mattes
/ Changed for Free Pascal in 1999-2000 by Daniel Mantione.
/ This code is _not_ under the Library GNU Public
/ License, because the original is not. See copying.emx
/ for details. You should have received it with this
/ product, write the author if you haven't.
.globl DosQueryMessageCP
DosQueryMessageCP:
pushl 0(%esp)
movl $_msgseg32, %eax
xchgl 20(%esp), %eax
xchgl 16(%esp), %eax
xchgl 12(%esp), %eax
xchgl 8(%esp), %eax
movl %eax, 4(%esp)
jmp _DOSCALLS$$_DOSIQUERYMESSAGECP$$$$$LONGINT$PCHAR$LONGINT$POINTER