forked from xtuml/mc
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathm.bridge.arc
64 lines (64 loc) · 2.59 KB
/
m.bridge.arc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
.//============================================================================
.// $RCSfile: m.bridge.arc,v $
.//
.// Description:
.// This archetype file contains the implementation functions for colors
.// specified in the (user supplied/modified) bridge.clr file.
.//
.// Notice:
.// (C) Copyright 1998-2013 Mentor Graphics Corporation
.// All rights reserved.
.//
.// This document contains confidential and proprietary information and
.// property of Mentor Graphics Corp. No part of this document may be
.// reproduced without the express written permission of Mentor Graphics Corp.
.//============================================================================
.//
.//============================================================================
.function WireSynchServiceOoaBridge
.param string initiant
.param string ee_key_letters
.param string recipient
.print "Note: WireSynchServiceOoaBridge is no longer supported. Use components and interfaces."
.end function
.//
.//============================================================================
.function WireRealizeExternalEntity
.param string a
.param string b
.param string c
.param string d
.param string e
.print "Note: WireRealizeExternalEntity is no longer supported. Use components and interfaces."
.end function
.//
.//============================================================================
.function WireRealizedExternalEntity
.param string a
.param string b
.param string c
.param string d
.param string e
.print "Note: WireRealizeExternalEntity is no longer supported. Use components and interfaces."
.end function
.//
.//
.//============================================================================
.// Mark a function (synchronous service) as being safe for
.// interrupt service routine (ISR) invocation. This is also useful
.// for task communication and other multi-context situations.
.//============================================================================
.function TagSyncServiceSafeForInterrupts
.param string component_name
.param string function_name
.assign component_name = "$r{component_name}"
.select any tm_sync from instances of TM_SYNC where ( ( selected.RegisteredDomain == component_name ) and ( selected.Name == function_name ) )
.if ( empty tm_sync )
.create object instance tm_sync of TM_SYNC
.assign tm_sync.RegisteredDomain = component_name
.assign tm_sync.Name = function_name
.end if
.assign tm_sync.IsSafeForInterrupts = true
.print "Function ${function_name} in component ${component_name} marked as safe for interrupt invocation."
.end function
.//