* fixed passing function results to const formal defs, see tbs/tb0490.pp

git-svn-id: trunk@56 -

.gitattributes

@@ -4959,6 +4959,7 @@ tests/tbs/tb0486.pp svneol=native#text/plain
 tests/tbs/tb0487.pp svneol=native#text/plain
 tests/tbs/tb0488.pp svneol=native#text/plain
 tests/tbs/tb0489.pp svneol=native#text/plain
+tests/tbs/tb0490.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

compiler/htypechk.pas

@@ -1096,6 +1096,9 @@ implementation
                       (valid_addr in opts) and
                       (hp.resulttype.def.deftype=stringdef) then
                      result:=true
+                 else
+                   if valid_const in opts then
+                     result:=true
                  else
                   CGMessagePos(hp.fileinfo,errmsg);
                  exit;

tests/tbs/tb0490.pp

@@ -0,0 +1,17 @@
+type
+  trecord = record
+    l : longint;
+  end;
+
+function test : trecord;
+  begin
+  end;
+
+procedure p(const c);
+  begin
+  end;
+
+begin
+  p(test);
+end.
+