[deliverable/titan.core.git] / regression_test / lazyEval / lazy_B.ttcn

/******************************************************************************
 * Copyright (c) 2000-2015 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 ******************************************************************************/
module lazy_B {

import from lazy_defs all;

function f_lazy_Bi( in @lazy integer pl_i, in boolean pl_evalFlag) runs on MyComp {  
  if(pl_evalFlag){
    v_i:= pl_i; //expression evaluated
  }
  log(v_i);
}

function f_lazy_BBi( in @lazy integer pl_i, in boolean pl_evalFlag) runs on MyComp {  
  f_lazy_Bi(pl_i,pl_evalFlag);
}

}
Commit	Line	Data
970ed795	1	/******************************************************************************
3abe9331	2	* Copyright (c) 2000-2015 Ericsson Telecom AB
970ed795 EL	3	* All rights reserved. This program and the accompanying materials
	4	* are made available under the terms of the Eclipse Public License v1.0
	5	* which accompanies this distribution, and is available at
	6	* http://www.eclipse.org/legal/epl-v10.html
	7	******************************************************************************/
	8	module lazy_B {
	9
	10	import from lazy_defs all;
	11
	12	function f_lazy_Bi( in @lazy integer pl_i, in boolean pl_evalFlag) runs on MyComp {
	13	if(pl_evalFlag){
	14	v_i:= pl_i; //expression evaluated
	15	}
	16	log(v_i);
	17	}
	18
	19	function f_lazy_BBi( in @lazy integer pl_i, in boolean pl_evalFlag) runs on MyComp {
	20	f_lazy_Bi(pl_i,pl_evalFlag);
	21	}
	22
	23	}