paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 23:09:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

atari: make control array of gem_pbb PurePascal compatible

Browse Source 
Applications expect it to be an array, not a record.
This commit is contained in:
Thorsten Otto 2022-02-05 14:26:11 +01:00 committed by Charlie Balogh
parent 43e92ef2b7
commit 40adddea34
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/tosunits/src/gem.pas
View File

@ -164,8 +164,16 @@ const
type
AESPB = TAESPB;
AESPBPtr = ^AESPB;
control_ARRAY = ARRAY[0..4] of smallint;
AESPBPtr = ^AESPB;
AESPB = record
control: ^control_ARRAY;
global: PAESGlobal;
intin: PAESIntIn;
intout: PAESIntOut;
addrin: PAESAddrIn;
addrout: PAESAddrOut;
end;
AESOBJECT = TAESOBJECT;
AESOBJECTPtr = ^TAESOBJECT;
VDIPB = TVDIPB;
@ -232,7 +240,7 @@ var Gem_pb: AES_block; external name 'aes_global';
*)
var
AES_pb: TAESPB; external name 'aespb';
AES_pb: AESPB; external name 'aespb';
VDI_pb: TVDIPB; external name 'vdipb';
{*