diff --git a/library/IPA_Emulation.ttcnpp b/library/IPA_Emulation.ttcnpp
index 3ec6922..2305b7b 100644
--- a/library/IPA_Emulation.ttcnpp
+++ b/library/IPA_Emulation.ttcnpp
@@ -186,8 +186,10 @@
 	/* up-facing port for OML */
 	port IPA_OML_PT IPA_OML_PORT;
 #endif
+#ifdef IPA_EMULATION_CTRL
 	/* up-facing port for CTRL */
 	port IPA_CTRL_PT IPA_CTRL_PORT;
+#endif
 #ifdef IPA_EMULATION_GSUP
 	/* up-facing port for GSUP */
 	port IPA_GSUP_PT IPA_GSUP_PORT;
@@ -300,9 +302,11 @@
 		IPA_OML_PORT.send(evt);
 	}
 #endif
+#ifdef IPA_EMULATION_CTRL
 	if (IPA_CTRL_PORT.checkstate("Connected")) {
 		IPA_CTRL_PORT.send(evt);
 	}
+#endif
 #ifdef IPA_EMULATION_GSUP
 	if (IPA_GSUP_PORT.checkstate("Connected")) {
 		IPA_GSUP_PORT.send(evt);
@@ -497,10 +501,12 @@
 	ScanEvents();
 }
 
+#ifdef IPA_EMULATION_CTRL
 private function f_ctrl_to_user(octetstring msg) runs on IPA_Emulation_CT {
 	var charstring msg_ch := oct2char(msg);
 	IPA_CTRL_PORT.send(dec_CtrlMessage(msg_ch));
 }
+#endif
 
 #ifdef IPA_EMULATION_GSUP
 private function f_gsup_to_user(octetstring msg) runs on IPA_Emulation_CT {
@@ -703,11 +709,13 @@
 		}
 #endif
 
+#ifdef IPA_EMULATION_CTRL
 		[] IPA_CTRL_PORT.receive(CtrlMessage:?) -> value ctrl_msg {
 			payload := char2oct(enc_CtrlMessage(ctrl_msg));
 			ipa_ud := valueof(t_ASP_IPA_UD(IPAC_PROTO_OSMO, payload, IPAC_PROTO_EXT_CTRL));
 			IPA_PORT.send(f_from_asp(g_ipa_conn_id, ipa_ud));
 		}
+#endif
 
 #ifdef IPA_EMULATION_GSUP
 		[] IPA_GSUP_PORT.receive(GSUP_PDU:?) -> value gsup_msg {