pastojs: fixed conflicting msg number 4016

git-svn-id: trunk@43691 -
This commit is contained in:
Mattias Gaertner 2019-12-15 14:13:51 +00:00
parent 12084211bf
commit 384c5ab644

View File

@ -484,7 +484,7 @@ const
nVirtualMethodNameMustMatchExternal = 4013;
nPublishedNameMustMatchExternal = 4014;
nInvalidVariableModifier = 4015;
nConstRefNotForXAsConst = 4016;
// was nExternalObjectConstructorMustBeNamedNew = 4016;
nNewInstanceFunctionMustBeVirtual = 4017;
nNewInstanceFunctionMustHaveTwoParameters = 4018;
nNewInstanceFunctionMustNotHaveOverloadAtX = 4019;
@ -499,6 +499,7 @@ const
nBitWiseOperationIs32Bit = 4028;
nDuplicateMessageIdXAtY = 4029;
nDispatchRequiresX = 4030;
nConstRefNotForXAsConst = 4031;
// resourcestring patterns of messages
resourcestring
sPasElementNotSupported = 'Pascal element not supported: %s';
@ -517,7 +518,6 @@ resourcestring
sInvalidVariableModifier = 'Invalid variable modifier "%s"';
sPublishedNameMustMatchExternal = 'Published name must match external';
// was sExternalObjectConstructorMustBeNamedNew = 'external object constructor must be named "new"';
sConstRefNotForXAsConst = 'ConstRef not yet implemented for %s. Treating as Const';
sNewInstanceFunctionMustBeVirtual = 'NewInstance function must be virtual';
sNewInstanceFunctionMustHaveTwoParameters = 'NewInstance function must have two parameters';
sNewInstanceFunctionMustNotHaveOverloadAtX = 'NewInstance function must not have overload at %s';
@ -532,6 +532,7 @@ resourcestring
sBitWiseOperationIs32Bit = 'Bitwise operation is 32-bit';
sDuplicateMessageIdXAtY = 'Duplicate message id "%s" at %s';
sDispatchRequiresX = 'Dispatch requires %s';
sConstRefNotForXAsConst = 'ConstRef not yet implemented for %s. Treating as Const';
const
ExtClassBracketAccessor = '[]'; // external name '[]' marks the array param getter/setter