paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Integers changed to SmallInt to be compatible with all modes

Browse Source
This commit is contained in:
Károly Balogh 2005-01-12 07:59:05 +00:00
parent bf4694ad94
commit 963e474913
3 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/morphos/doslibd.inc
View File

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

7
rtl/morphos/doslibf.inc
View File

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

11
rtl/morphos/execd.inc
View File

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