paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphos: fixed exec and amigados structures

Browse Source 
git-svn-id: trunk@41941 -
This commit is contained in:
marcus 2019-04-27 16:32:41 +00:00
parent 0a821710ac
commit a5b8463260
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/morphunits/src/amigados.pas
View File

@ -546,7 +546,7 @@ type
PErrorString = ^TErrorString; PErrorString = ^TErrorString;
TErrorString = packed record TErrorString = packed record
estr_Nums: PLongInt; estr_Nums: PLongInt;
estr_Byte: PByte; estr_Strings: PByte;
end; end;
type type
@ -852,7 +852,7 @@ type
ap_Reserved : ShortInt; ap_Reserved : ShortInt;
ap_Strlen : SmallInt; ap_Strlen : SmallInt;
ap_Info : TFileInfoBlock; ap_Info : TFileInfoBlock;
ap_Buf : Array[0..0] of Char; ap_Buf : Array[0..1] of Char;
{ * an_Buf continues * } { * an_Buf continues * }
); );
end; end;

4
packages/morphunits/src/exec.pas
View File

@ -1071,7 +1071,7 @@ type
lib_Node : TNode; lib_Node : TNode;
lib_Flags : Byte; lib_Flags : Byte;
lib_pad : Byte; lib_pad : Byte;
lib_MegSize : Word; lib_NegSize : Word;
lib_PosSize : Word; lib_PosSize : Word;
lib_Version : Word; lib_Version : Word;
lib_Revision: Word; lib_Revision: Word;
@ -1418,7 +1418,7 @@ type
PortList : TList; PortList : TList;
TaskReady : TList; TaskReady : TList;
TaskWait : TList; TaskWait : TList;
SoftInts : Array[0..5] Of TSoftIntList; SoftInts : Array[0..4] Of TSoftIntList;
LastAlert : Array[0..3] Of LongInt; LastAlert : Array[0..3] Of LongInt;
VBlankFrequency : Byte; VBlankFrequency : Byte;