diff options
| author | gingold | 2008-01-15 05:53:39 +0000 |
|---|---|---|
| committer | gingold | 2008-01-15 05:53:39 +0000 |
| commit | eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951 (patch) | |
| tree | 3944b708fedbc9f955f09f947cd4377c286a9127 /translate/grt/grt-vpi.ads | |
| parent | 861828b455955858709dfda217af0188cfdef799 (diff) | |
| download | ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.tar.gz ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.tar.bz2 ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.zip | |
synchronize: add support for MacOSX, fix bogus type conversion
Diffstat (limited to 'translate/grt/grt-vpi.ads')
| -rw-r--r-- | translate/grt/grt-vpi.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/translate/grt/grt-vpi.ads b/translate/grt/grt-vpi.ads index 9f4ffa9..a7f06f7 100644 --- a/translate/grt/grt-vpi.ads +++ b/translate/grt/grt-vpi.ads @@ -79,10 +79,10 @@ package Grt.Vpi is -- double real; -- } s_vpi_time, *p_vpi_time; type s_vpi_time is record - mType : integer; - mHigh : integer; -- this should be unsigned - mLow : integer; -- this should be unsigned - mReal : float; -- this should be double + mType : Integer; + mHigh : Integer; -- this should be unsigned + mLow : Integer; -- this should be unsigned + mReal : Float; -- this should be double end record; type p_vpi_time is access s_vpi_time; |