paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +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;
TErrorString = packed record
estr_Nums: PLongInt;
estr_Byte: PByte;
estr_Strings: PByte;
end;
type
@ -852,7 +852,7 @@ type
ap_Reserved : ShortInt;
ap_Strlen : SmallInt;
ap_Info : TFileInfoBlock;
ap_Buf : Array[0..0] of Char;
ap_Buf : Array[0..1] of Char;
{ * an_Buf continues * }
);
end;

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

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