Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Fixed loading boolean property.

Henrique Gottardi Werlang 3 years ago
parent
c9bfb3c440
commit
d69b7e791b
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/rtl/classes.pas

+ 1 - 1
packages/rtl/classes.pas
View File 

@@ -8159,7 +8159,7 @@ begin
 
         SetOrdProp(Instance, PropInfo, ReadInteger);
 
         SetOrdProp(Instance, PropInfo, ReadInteger);
 
       end;
 
       end;
 
     tkBool:
 
     tkBool:
 
-      SetOrdProp(Instance, PropInfo, Ord(ReadBoolean));
 
+      SetBoolProp(Instance, PropInfo, ReadBoolean);
 
     tkChar:
 
     tkChar:
 
       SetOrdProp(Instance, PropInfo, Ord(ReadChar));
 
       SetOrdProp(Instance, PropInfo, Ord(ReadChar));
 
     tkEnumeration:
 
     tkEnumeration: