Browse Source

* return proper vardef value for wordbool, resolves #9125

git-svn-id: trunk@7778 -
florian 18 years ago
parent
commit
463fc20ecc
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -1527,7 +1527,7 @@ implementation
           varUndefined,
           varUndefined,
           varbyte,varqword,varlongword,varqword,
           varbyte,varqword,varlongword,varqword,
           varshortint,varsmallint,varinteger,varint64,
           varshortint,varsmallint,varinteger,varint64,
-          varboolean,varUndefined,varUndefined,varUndefined,
+          varboolean,varboolean,varUndefined,varUndefined,
           varUndefined,varUndefined,varCurrency);
           varUndefined,varUndefined,varCurrency);
       begin
       begin
         result:=basetype2vardef[ordtype];
         result:=basetype2vardef[ordtype];