From 963e474913d42df86df2b615004c3cbc153db008 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Wed, 12 Jan 2005 07:59:05 +0000
Subject: [PATCH]   * Integers changed to SmallInt to be compatible with all
 modes

---
 rtl/morphos/doslibd.inc |  7 +++++--
 rtl/morphos/doslibf.inc |  7 +++++--
 rtl/morphos/execd.inc   | 11 +++++++----
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/rtl/morphos/doslibd.inc b/rtl/morphos/doslibd.inc
index d624cc48cd..4df38b220d 100644
--- a/rtl/morphos/doslibd.inc
+++ b/rtl/morphos/doslibd.inc
@@ -782,7 +782,7 @@ type
           ap_FoundBreak: LongInt;  
           ap_Flags     : ShortInt;
           ap_Reserved  : ShortInt;
-          ap_Strlen    : Integer;
+          ap_Strlen    : SmallInt;
           ap_Info      : TFileInfoBlock;
           ap_Buf       : Array[0..0] of Char;
           { * an_Buf continues * }
@@ -1381,7 +1381,10 @@ type
 
 {
   $Log$
-  Revision 1.3  2005-01-10 04:58:52  karoly
+  Revision 1.4  2005-01-12 07:59:05  karoly
+    * Integers changed to SmallInt to be compatible with all modes
+
+  Revision 1.3  2005/01/10 04:58:52  karoly
     * fixed alignment problem in TDosList
 
   Revision 1.2  2004/08/09 00:10:19  karoly
diff --git a/rtl/morphos/doslibf.inc b/rtl/morphos/doslibf.inc
index 0bba264ceb..bdd504552d 100644
--- a/rtl/morphos/doslibf.inc
+++ b/rtl/morphos/doslibf.inc
@@ -308,7 +308,7 @@ function SplitName(name     : PChar    location 'd1';
                    separator: Cardinal location 'd2'; 
                    buf      : PChar    location 'd3'; 
                    oldpos   : LongInt  location 'd4'; 
-                   size     : LongInt  location 'd5'): Integer;
+                   size     : LongInt  location 'd5'): SmallInt;
 SysCall MOS_DOSBase 414;
 
 function SameLock(lock1: LongInt location 'd1'; 
@@ -687,7 +687,10 @@ SysCall MOS_DOSBase 1008;
 
 {
   $Log$
-  Revision 1.3  2005-01-11 17:44:52  karoly
+  Revision 1.4  2005-01-12 07:59:54  karoly
+    * Integers changed to SmallInt to be compatible with all modes
+
+  Revision 1.3  2005/01/11 17:44:52  karoly
     * some updates for sysutils
 
   Revision 1.2  2004/08/09 00:10:19  karoly
diff --git a/rtl/morphos/execd.inc b/rtl/morphos/execd.inc
index cc2d0cb382..454cb74957 100644
--- a/rtl/morphos/execd.inc
+++ b/rtl/morphos/execd.inc
@@ -1027,11 +1027,11 @@ type
   PSignalSemaphore = ^TSignalSemaphore;
   TSignalSemaphore = packed record
     ss_Link        : TNode;
-    ss_NestCount   : Integer;
+    ss_NestCount   : SmallInt;
     ss_WaitQueue   : TMinList;
     ss_MultipleLink: TSemaphoreRequest;
     ss_Owner       : PTask;
-    ss_QueueCount  : Integer;
+    ss_QueueCount  : SmallInt;
   end;
 
 type
@@ -1496,7 +1496,7 @@ type
   TExecBase = packed record
     LIbNode     : TLibrary;
     SoftVer     : Word;
-    LowMemChkSum: Integer;
+    LowMemChkSum: SmallInt;
     ChkBase     : DWord;
     ColdCapture : Pointer;
     CoolCapture : Pointer;
@@ -1734,7 +1734,10 @@ const
 
 {
   $Log$
-  Revision 1.2  2004-08-03 14:31:29  karoly
+  Revision 1.3  2005-01-12 07:59:05  karoly
+    * Integers changed to SmallInt to be compatible with all modes
+
+  Revision 1.2  2004/08/03 14:31:29  karoly
     * changed to use new utility includes
 
   Revision 1.1  2004/06/13 20:52:20  karoly