Ver Fonte

* Integers changed to SmallInt to be compatible with all modes

Károly Balogh há 20 anos atrás
pai
commit
963e474913
3 ficheiros alterados com 17 adições e 8 exclusões
  1. 5 2
      rtl/morphos/doslibd.inc
  2. 5 2
      rtl/morphos/doslibf.inc
  3. 7 4
      rtl/morphos/execd.inc

+ 5 - 2
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

+ 5 - 2
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

+ 7 - 4
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