diff options
| author | gingold | 2010-01-28 06:08:48 +0000 |
|---|---|---|
| committer | gingold | 2010-01-28 06:08:48 +0000 |
| commit | e2b41faa79b1f32569ccbc514a375fc2e6f5e99f (patch) | |
| tree | bdb53cf3c46d99c7dd5d125cb262034e7498cde8 /translate/grt | |
| parent | 3cc13c09aeaaf0920cedd2bf7a8e902735a92d42 (diff) | |
| download | ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.tar.gz ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.tar.bz2 ghdl-e2b41faa79b1f32569ccbc514a375fc2e6f5e99f.zip | |
Improve doc.
Remove ortho_code-sysdeps.
Add Pragma convention C in grt for accesses to subprograms.
Fix build on windows.
Diffstat (limited to 'translate/grt')
| -rw-r--r-- | translate/grt/grt-processes.ads | 1 | ||||
| -rw-r--r-- | translate/grt/grt-signals.adb | 1 | ||||
| -rw-r--r-- | translate/grt/grt-signals.ads | 3 | ||||
| -rw-r--r-- | translate/grt/grt-vpi.ads | 1 |
4 files changed, 5 insertions, 1 deletions
diff --git a/translate/grt/grt-processes.ads b/translate/grt/grt-processes.ads index b59a5b1..3218d72 100644 --- a/translate/grt/grt-processes.ads +++ b/translate/grt/grt-processes.ads @@ -127,6 +127,7 @@ package Grt.Processes is private -- Access to a process subprogram. type Proc_Acc is access procedure (Self : System.Address); + pragma Convention (C, Proc_Acc); -- State of a process. type Process_State is diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb index 8704aab..fc24077 100644 --- a/translate/grt/grt-signals.adb +++ b/translate/grt/grt-signals.adb @@ -1804,6 +1804,7 @@ package body Grt.Signals is end Compute_Resolved_Signal; type Conversion_Func_Acc is access procedure (Instance : System.Address); + pragma Convention (C, Conversion_Func_Acc); function To_Conversion_Func_Acc is new Ada.Unchecked_Conversion (Source => System.Address, Target => Conversion_Func_Acc); diff --git a/translate/grt/grt-signals.ads b/translate/grt/grt-signals.ads index bab73ce..79d6e55 100644 --- a/translate/grt/grt-signals.ads +++ b/translate/grt/grt-signals.ads @@ -76,7 +76,8 @@ package Grt.Signals is -- Function access type used to evaluate the guard expression. type Guard_Func_Acc is access function (This : System.Address) - return Ghdl_B2; + return Ghdl_B2; + pragma Convention (C, Guard_Func_Acc); -- Simply linked list of processes to be resumed in case of events. diff --git a/translate/grt/grt-vpi.ads b/translate/grt/grt-vpi.ads index a7f06f7..694db8c 100644 --- a/translate/grt/grt-vpi.ads +++ b/translate/grt/grt-vpi.ads @@ -137,6 +137,7 @@ package Grt.Vpi is (Source => Address, Target => p_cb_data); type cb_rtn_type is access function (Cb : p_cb_data) return Integer; + pragma Convention (C, cb_rtn_type); type s_cb_data is record Reason : Integer; |