diff options
| author | gingold | 2009-12-30 13:28:25 +0000 |
|---|---|---|
| committer | gingold | 2009-12-30 13:28:25 +0000 |
| commit | 8cca0b24e2c19eedecffdeec89a8a2898da1e362 (patch) | |
| tree | 25dbfdd7b64a942a311239e5e664aa027e0b0263 /translate/grt/grt-stats.adb | |
| parent | f529e7bae13bfb58075c495552a9cbfdd0f10f88 (diff) | |
| download | ghdl-8cca0b24e2c19eedecffdeec89a8a2898da1e362.tar.gz ghdl-8cca0b24e2c19eedecffdeec89a8a2898da1e362.tar.bz2 ghdl-8cca0b24e2c19eedecffdeec89a8a2898da1e362.zip | |
Fix fprintf call on x86-64.
From Thomas Sailer.
Diffstat (limited to 'translate/grt/grt-stats.adb')
| -rw-r--r-- | translate/grt/grt-stats.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/translate/grt/grt-stats.adb b/translate/grt/grt-stats.adb index 13a939a..cf5674e 100644 --- a/translate/grt/grt-stats.adb +++ b/translate/grt/grt-stats.adb @@ -71,10 +71,8 @@ package body Grt.Stats is procedure Put (Stream : FILEs; Val : Clock_T) is - Fmt : constant String := "%3d.%03d" & Character'Val (0); - - procedure fprintf (Stream : FILEs; Fmt : Address; A, B : Clock_T); - pragma Import (C, fprintf); + procedure Fprintf_Clock (Stream : FILEs; A, B : Clock_T); + pragma Import (C, Fprintf_Clock, "__ghdl_fprintf_clock"); Sec : Clock_T; Ms : Clock_T; @@ -84,7 +82,7 @@ package body Grt.Stats is -- Avoid overflow. Ms := ((Val mod One_Second) * 1000) / One_Second; - fprintf (Stream, Fmt'Address, Sec, Ms); + Fprintf_Clock (Stream, Sec, Ms); end Put; procedure Put (Stream : FILEs; T : Time_Stats) is |