From e06f1f89ef69ef134c8a2f43648648b11a0afa49 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 6 Jun 2017 12:01:39 +0000
Subject: [PATCH]  Solve bug report 31919, by avoiding SEG reloaction in tiny
 model

git-svn-id: trunk@36437 -
---
 rtl/msdos/system.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/rtl/msdos/system.pp b/rtl/msdos/system.pp
index 1670ec99d0..4679e21ca5 100644
--- a/rtl/msdos/system.pp
+++ b/rtl/msdos/system.pp
@@ -179,7 +179,13 @@ Procedure SysInitFPU;
       mov dx,es
       mov word [prevInt06+2],dx
       { Install local interrupt 06 handler }
+{$ifdef FPC_MM_TINY}
+      { Do not use SEG here, as this introduces a relocation that
+        is incompatible with COM executable generation }
+      mov dx, cs
+{$else FPC_MM_TINY}
       mov dx, SEG InterceptInvalidInstruction
+{$endif FPC_MM_TINY}
       mov ds, dx
       mov dx, Offset InterceptInvalidInstruction
       mov ax, $2506