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

* ensure that TRegisterType and TSubRegister have a size of 1 by moving them at the correct location

Browse Source 
git-svn-id: trunk@35282 -
This commit is contained in:
svenbarth 2017-01-13 16:10:17 +00:00
parent 2e9d0543df
commit 0dbc123557
1 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
rtl/objpas/typinfo.pp
View File

@ -70,6 +70,36 @@ unit typinfo;
ccCppdecl, ccFar16, ccOldFPCCall, ccInternProc,
ccSysCall, ccSoftFloat, ccMWPascal);
{$push}
{$scopedenums on}
TSubRegister = (
None,
Lo,
Hi,
Word,
DWord,
QWord,
FloatSingle,
FloatDouble,
FloatQuad,
MultiMediaSingle,
MultiMediaDouble,
MultiMediaWhole,
MultiMediaX,
MultiMediaY
);
TRegisterType = (
Invalid,
Int,
FP,
MMX,
MultiMedia,
Special,
Address
);
{$pop}
{$MINENUMSIZE DEFAULT}
const
@ -82,35 +112,6 @@ unit typinfo;
TTypeKinds = set of TTypeKind;
ShortStringBase = string[255];
{$push}
{$scopedenums on}
TSubRegister = (
None,
Lo,
Hi,
Word,
DWord,
QWord,
FloatSingle,
FloatDouble,
FloatQuad,
MultiMediaSingle,
MultiMediaDouble,
MultiMediaWhole,
MultiMediaX,
MultiMediaY
);
TRegisterType = (
Invalid,
Int,
FP,
MMX,
MultiMedia,
Special,
Address
);
{$pop}
TParameterLocation =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}