From 0c1d59ec5c5733b6da9c76a5533a370c22c10d48 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 23 Jan 2007 05:51:08 +0000
Subject: [PATCH]  * Use IncRefCount

git-svn-id: trunk@6144 -
---
 compiler/pexpr.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 764774e7cc..916bc455a9 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -1327,7 +1327,7 @@ implementation
                                Factor
 ****************************************************************************}
 
-    
+
     function is_member_read(sym: tsym; st: tsymtable; var p1: tnode;
                             out memberparentdef: tdef): boolean;
       var
@@ -1337,7 +1337,7 @@ implementation
         memberparentdef:=nil;
 
         case st.symtabletype of
-          ObjectSymtable: 
+          ObjectSymtable:
             begin
               memberparentdef:=tdef(st.defowner);
               exit;
@@ -1672,7 +1672,7 @@ implementation
                           { no procsyms in records (yet) }
                           internalerror(2007012006);
                       end
-                    else 
+                    else
                       { regular procedure/function call }
                       do_proc_call(srsym,srsymtable,nil,
                                    (getaddr and not(token in [_CARET,_POINT])),
@@ -1955,7 +1955,7 @@ implementation
                         else
                           begin
                             { The property symbol is referenced indirect }
-                            inc(protsym.refs);
+                            protsym.IncRefCount;
                             handle_propertysym(protsym,protsym.owner,p1);
                           end;
                       end