From 1f978ba9fec1aee362d125916a91687f8e6b65c5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 23 Mar 2013 19:25:00 +0000
Subject: [PATCH] * 16 bit targets cannot use Word and Longint as array index

git-svn-id: branches/i8086@23973 -
---
 compiler/ppc8086.lpi | 9 ++++++++-
 compiler/ptype.pas   | 7 +++++--
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/compiler/ppc8086.lpi b/compiler/ppc8086.lpi
index 4b993be9e0..b27d307e75 100644
--- a/compiler/ppc8086.lpi
+++ b/compiler/ppc8086.lpi
@@ -25,10 +25,12 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
+        <CommandLineParams Value="-Tmsdos -Pi8086 -XPmsdos- -Xr -Ur -Xs -O2 -n -Fi../inc -Fi../i8086 -FE. -FUc:/fpc/branches/i8086/rtl/units/msdos -O- -gl    -di8086 -dRELEASE  -Fi../objpas ../objpas/objpas.pp"/>
         <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <WorkingDirectory Value="c:/fpc/branches/i8086/rtl/msdos"/>
       </local>
     </RunParams>
-    <Units Count="15">
+    <Units Count="16">
       <Unit0>
         <Filename Value="pp.pas"/>
         <IsPartOfProject Value="True"/>
@@ -103,6 +105,11 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="n8086inl"/>
       </Unit14>
+      <Unit15>
+        <Filename Value="i8086\n8086set.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="n8086set"/>
+      </Unit15>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/compiler/ptype.pas b/compiler/ptype.pas
index b8124440b4..0bfeed3e42 100644
--- a/compiler/ptype.pas
+++ b/compiler/ptype.pas
@@ -1109,8 +1109,11 @@ implementation
               orddef :
                 begin
                   if torddef(def).ordtype in [uchar,
-                    u8bit,u16bit,
-                    s8bit,s16bit,s32bit,
+                    u8bit,
+                    s8bit,s16bit,
+{$if defined(cpu32bitaddr) or defined(cpu64bitaddr)}
+                    u16bit,s32bit,
+{$endif defined(cpu32bitaddr) or defined(cpu64bitaddr)}
 {$ifdef cpu64bitaddr}
                     u32bit,s64bit,
 {$endif cpu64bitaddr}