Browse Source

- not needed any more

Tomas Hajny 23 years ago
parent
commit
426303d1bc
2 changed files with 0 additions and 44 deletions
  1. 0 26
      rtl/os2/code2.as
  2. 0 18
      rtl/os2/code3.as

+ 0 - 26
rtl/os2/code2.as

@@ -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

+ 0 - 18
rtl/os2/code3.as

@@ -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