paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 14:07:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix missing reference to procedure streaming

Browse Source
This commit is contained in:
michael 2020-08-06 13:00:01 +00:00
parent 21146d5b6d
commit 628dd46797
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/classes.pas
View File

@ -7719,7 +7719,7 @@ begin
if TTypeInfoSet(PropType).CompType.Kind=tkEnumeration then
SetOrdProp(Instance, PropInfo, FDriver.ReadSet(TTypeInfoEnum(TTypeInfoSet(PropType).CompType)));
end;
tkMethod:
tkMethod, tkRefToProcVar:
if FDriver.NextValue = vaNil then
begin
FDriver.ReadValue;
@ -7776,7 +7776,7 @@ begin
{tkint64:
SetInt64Prop(Instance, PropInfo, ReadInt64);}
else
raise EReadError.CreateFmt(SUnknownPropertyType, [Ord(PropType.Kind)]);
raise EReadError.CreateFmt(SUnknownPropertyType, [Str(PropType.Kind)]);
end;
end;

2
packages/rtl/rtlconsts.pas
View File

@ -60,7 +60,7 @@ Resourcestring
SInvalidPropertyValue = 'Invalid value for property';
SInvalidImage = 'Invalid stream format';
SUnknownProperty = 'Unknown property: "%s"';
SUnknownPropertyType = 'Unknown property type %d';
SUnknownPropertyType = 'Unknown property type %s';
SAncestorNotFound = 'Ancestor class for "%s" not found.';
SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';
SPropertyException = 'Error reading %s%s%s: %s';