diff --git a/rtl/os2/code2.as b/rtl/os2/code2.as deleted file mode 100644 index 12e87f3686..0000000000 --- a/rtl/os2/code2.as +++ /dev/null @@ -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 diff --git a/rtl/os2/code3.as b/rtl/os2/code3.as deleted file mode 100644 index 2f72fdb71a..0000000000 --- a/rtl/os2/code3.as +++ /dev/null @@ -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