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

MorphOS: missing TLayer_Info and structures fixes

Browse Source 
git-svn-id: trunk@41945 -
This commit is contained in:
marcus 2019-04-27 20:30:12 +00:00
parent 62ecd686c6
commit 7601a4ba97
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
packages/morphunits/src/agraphics.pas
View File

@ -129,7 +129,29 @@ type
_p1,
_p2 : APTR; // system reserved
reserved: LongInt; // system use
Flags : LongInt; // only exists in layer allocation
end;
PLayer_Info = ^TLayer_Info;
TLayer_Info = record
Top_Layer: Player;
check_lp: PLayer;
Obs: PClipRect;
FreeClipRects: PClipRect;
PrivateReserve1: LongInt;
PrivateReserve2: LongInt;
Lock: TSignalSemaphore;
gs_Head: TMinList;
PrivateReserve3: SmallInt;
PrivateReserve4: APTR;
Flags: Word; // LIFLG_SUPPORTS_OFFSCREEN_LAYERS
fatten_count: ShortInt;
LockLayersCount: ShortInt;
PrivateReserve5: SmallInt;
BlankHook: APTR;
LayerInfo_extra: APTR;
end;
@ -275,12 +297,12 @@ type
NxtList: PCopList;
);
1:(
VWaitPos: SmallInt; // vertical wait position
DestAddr: SmallInt; // destination Pointer
DestData: SmallInt; // data to send
);
2:(
VWaitPos: SmallInt; // vertical wait position
HWaitPos: SmallInt; // horizontal wait position
DestData: SmallInt; // data to send
);
end;
@ -288,7 +310,7 @@ type
PCprList = ^TCprList;
TCprList = record
Next: PCprList;
Start: Word; // start of copper list
Start: PWord; // start of copper list
MaxCount: SmallInt; // number of long instructions
end;
@ -1903,9 +1925,9 @@ type
VBCounter: LongWord;
HashTableSemaphore: PSignalSemaphore; // Semaphore for hash_table access, private in fact
ChunkyToPlanarPtr: PLongWord; // HWEmul[0];
HWEmul: array[1..8] of PLongWord;
case boolean of
true: ( ChunkyToPlanarPtr: PLongWord;); // HWEmul[0];
false: (HWEmul: array[0..8] of PLongWord;);
end;
const