parser: Remove unnecessary astCloneTree()s for ThreadCall arguments

freebasic · May 7, 2014 · 7f5217b · 7f5217b
1 parent 55db979
commit 7f5217b
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/compiler/rtl-system-thread.bas b/src/compiler/rtl-system-thread.bas
@@ -193,13 +193,18 @@ function rtlThreadCall(byval callexpr as ASTNODE ptr) as ASTNODE ptr
         if arg = 0 then
             exit function
         end if
-        argexpr( args-i+1 ) = astCloneTREE( arg->l )
+
+        '' Take the argument expression out of the ARG node
+        argexpr( args-i+1 ) = arg->l
+        arg->l = NULL
+
         argmode( args-i+1 ) = arg->arg.mode
+
         arg = arg->r
     next i
 
-    '' delete call
-    astDelTREE( callexpr )
+	'' Delete the CALL and its now empty ARGs
+	astDelTREE( callexpr )
 
     '' create new call
     dim as ASTNODE ptr expr = astNewCall( PROCLOOKUP( THREADCALL ) )