From a1b252538fc592ad908f881b5b7aa63bc152696e Mon Sep 17 00:00:00 2001 From: svenbarth Date: Fri, 18 Dec 2020 13:50:36 +0000 Subject: [PATCH] * change def parameter of single_type() from var to out (part of patch by Blaise.ru) git-svn-id: trunk@47809 - --- compiler/ptype.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ptype.pas b/compiler/ptype.pas index afaecfafc7..4887e759c8 100644 --- a/compiler/ptype.pas +++ b/compiler/ptype.pas @@ -41,7 +41,7 @@ interface procedure resolve_forward_types; { reads a string, file type or a type identifier } - procedure single_type(var def:tdef;options:TSingleTypeOptions); + procedure single_type(out def:tdef;options:TSingleTypeOptions); { reads any type declaration, where the resulting type will get name as type identifier } procedure read_named_type(var def:tdef;const newsym:tsym;genericdef:tstoreddef;genericlist:tfphashobjectlist;parseprocvardir:boolean;var hadtypetoken:boolean); @@ -454,7 +454,7 @@ implementation end; - procedure single_type(var def:tdef;options:TSingleTypeOptions); + procedure single_type(out def:tdef;options:TSingleTypeOptions); var t2 : tdef; isspecialize,