paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 13:28:07 +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 TMachOSubMachineType = record
case TMachOMachineType of case TMachOMachineType of
msmppc_all: (fPpcSubType: TMachOSubMachineTypePowerPC); mmtpowerpc: (fPpcSubType: TMachOSubMachineTypePowerPC);
msmppc64_all: (fPpc64SubType: TMachOSubMachineTypePowerPC64); mmtpowerpc64: (fPpc64SubType: TMachOSubMachineTypePowerPC64);
msm386_all: (f386SubType: TMachOSubMachineType386); mmti386: (f386SubType: TMachOSubMachineType386);
msmx64_all: (fX64SubType: TMachOSubMachineTypex64); mmtx86_64: (fX64SubType: TMachOSubMachineTypex64);
mmtarm: (fArmSubType: TMachOSubMachineTypeArm); mmtarm: (fArmSubType: TMachOSubMachineTypeArm);
mmtarm64: (fArm64SubType: TMachOSubMachineTypeAarch64); mmtarm64: (fArm64SubType: TMachOSubMachineTypeAarch64);
end; end;

2
rtl/inc/sstrings.inc
View File

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

4
tests/tbs/tb0516.pp
View File

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