Disallow dereferencing of non-pointer types in l-values.

This fixes #67.
2020-01-29 22:52:10 -06:00 · 2020-01-29 22:52:10 -06:00 · 3676e685b9
parent a4abc5e421
commit 3676e685b9
1 changed files with 2 additions and 0 deletions
--- a/Expression.pas
+++ b/Expression.pas
@ -2207,6 +2207,8 @@ var
      {load the address of the item pointed to by the pointer}
      GenerateCode(tree^.left);
      isBitField := false;
+      if not (expressionType^.kind in [pointerType,arrayType,functionType]) then
+         Error(79);
      end {else if}
   else if tree^.token.kind = dotch then begin