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

Fixed variant discriminator types

Browse Source
This commit is contained in:
Jonas Maebe 2021-10-31 17:43:59 +01:00
parent 4f77cbbac4
commit 4426d0da7a
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-res/src/machotypes.pp
View File

@ -36,10 +36,10 @@ type
TMachOSubMachineType = record
case TMachOMachineType of
msmppc_all: (fPpcSubType: TMachOSubMachineTypePowerPC);
msmppc64_all: (fPpc64SubType: TMachOSubMachineTypePowerPC64);
msm386_all: (f386SubType: TMachOSubMachineType386);
msmx64_all: (fX64SubType: TMachOSubMachineTypex64);
mmtpowerpc: (fPpcSubType: TMachOSubMachineTypePowerPC);
mmtpowerpc64: (fPpc64SubType: TMachOSubMachineTypePowerPC64);
mmti386: (f386SubType: TMachOSubMachineType386);
mmtx86_64: (fX64SubType: TMachOSubMachineTypex64);
mmtarm: (fArmSubType: TMachOSubMachineTypeArm);
mmtarm64: (fArm64SubType: TMachOSubMachineTypeAarch64);
end;

2
rtl/inc/sstrings.inc
View File

@ -537,7 +537,7 @@ type
case TTypeKind of
tkInteger,tkChar,tkEnumeration,tkBool,tkWChar: (
MinValue,MaxValue : Longint;
case byte of
case TTypeKind of
tkEnumeration: (
BaseTypeRef : pointer
);

4
tests/tbs/tb0516.pp
View File

@ -5,8 +5,8 @@ type
tb = (e1,e2);
tr = record
case a: byte of
-1,'c'..ea,e2..-5: (l: longint);
'b'..eb,-1,-1,-1..-38,-100..e2: (c: cardinal);
0..5: (l: longint);
100..20: (c: cardinal);
end;
begin