From d5b069a935dd30aabbef5078b06c26a6db2cb9f1 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 30 Oct 2006 10:29:29 +0000 Subject: [PATCH] * added missing typecheckpasses for new left/right nodes created in taddnode.typecheckpass() git-svn-id: trunk@5089 - --- compiler/nadd.pas | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/compiler/nadd.pas b/compiler/nadd.pas index df557c1582..7d8ae39ed6 100644 --- a/compiler/nadd.pas +++ b/compiler/nadd.pas @@ -1361,6 +1361,7 @@ implementation right:=csubscriptnode.create( hsym, ctypeconvnode.create_internal(right,methodpointertype)); + typecheckpass(right); end; if (ld.deftype=procvardef) and (not tprocvardef(ld).is_addressonly) then @@ -1368,6 +1369,7 @@ implementation left:=csubscriptnode.create( hsym, ctypeconvnode.create_internal(left,methodpointertype)); + typecheckpass(left); end; end @@ -1436,6 +1438,7 @@ implementation begin left:=caddnode.create(muln,left, cordconstnode.create(tpointerdef(rd).pointeddef.size,sinttype,true)); + typecheckpass(left); end; end else @@ -1467,6 +1470,7 @@ implementation begin right:=caddnode.create(muln,right, cordconstnode.create(tpointerdef(ld).pointeddef.size,sinttype,true)); + typecheckpass(right); end end else if is_zero_based_array(ld) and @@ -1474,6 +1478,7 @@ implementation begin right:=caddnode.create(muln,right, cordconstnode.create(tarraydef(ld).elementdef.size,sinttype,true)); + typecheckpass(right); end; end else @@ -1501,9 +1506,11 @@ implementation right:=csubscriptnode.create( hsym, ctypeconvnode.create_internal(right,methodpointertype)); + typecheckpass(right); left:=csubscriptnode.create( hsym, ctypeconvnode.create_internal(left,methodpointertype)); + typecheckpass(left); end; end else