diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-12-15 12:51:01 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-12-15 12:51:01 +0100 |
| commit | 209db2bf05a5830792bc1a2f06c8fedf21285304 (patch) | |
| tree | 1a02b34983bc3ac002967364fb841e53d5f9fc47 /gcc/ada/s-tasdeb.adb | |
| parent | c1d5acdb6eb4fa31e092602cb9d116c79f52e07d (diff) | |
| download | gcc-209db2bf05a5830792bc1a2f06c8fedf21285304.zip gcc-209db2bf05a5830792bc1a2f06c8fedf21285304.tar.gz gcc-209db2bf05a5830792bc1a2f06c8fedf21285304.tar.bz2 | |
[multiple changes]
2003-12-15 Robert Dewar <dewar@gnat.com>
* exp_ch6.adb (Expand_Thread_Body): Fix error in picking up default
sec stack size.
2003-12-15 Vincent Celier <celier@gnat.com>
* gnatchop.adb: (Error_Msg): Do not exit on error for a warning
(Gnatchop): Do not set failure status when reporting the number of
warnings.
2003-12-15 Doug Rupp <rupp@gnat.com>
* s-ctrl.ads: New file.
* Makefile.rtl (GNAT_RTL_NONTASKING_OBJS): Add s-crtl$(objext).
* Make-lang.in: (GNAT_ADA_OBJS): Add ada/s-crtl.o.
(GNATBIND_OBJS): Add ada/s-crtl.o.
* Makefile.in [VMS]: Clean up ifeq rules.
* gnatlink.adb, 6vcstrea.adb, a-direio.adb, a-sequio.adb,
a-ststio.adb, a-textio.adb, g-os_lib.adb, a-witeio.adb,
g-os_lib.ads, i-cstrea.adb, i-cstrea.ads, s-direio.adb,
s-fileio.adb, s-memcop.ads, s-memory.adb, s-stache.adb,
s-tasdeb.adb: Update copyright.
Import System.CRTL.
Make minor modifications to use System.CRTL declared functions instead
of importing locally.
2003-12-15 GNAT Script <nobody@gnat.com>
* Make-lang.in: Makefile automatically updated
From-SVN: r74627
Diffstat (limited to 'gcc/ada/s-tasdeb.adb')
| -rw-r--r-- | gcc/ada/s-tasdeb.adb | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gcc/ada/s-tasdeb.adb b/gcc/ada/s-tasdeb.adb index f8f50b9..baca961 100644 --- a/gcc/ada/s-tasdeb.adb +++ b/gcc/ada/s-tasdeb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2003 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,14 +39,12 @@ -- Do not add any dependency to GNARL packages since this package is used -- in both normal and restricted (ravenscar) environments. -with Interfaces.C; +with System.CRTL; with System.Task_Primitives.Operations; with Unchecked_Conversion; package body System.Tasking.Debug is - use Interfaces.C; - package STPO renames System.Task_Primitives.Operations; function To_Integer is new @@ -60,8 +58,7 @@ package body System.Tasking.Debug is -- Local Subprograms -- ----------------------- - procedure write (Fd : Integer; S : String; Count : size_t); - pragma Import (C, write); + procedure Write (Fd : Integer; S : String; Count : Integer); procedure Put (S : String); -- Display S on standard output. @@ -177,7 +174,7 @@ package body System.Tasking.Debug is procedure Put (S : String) is begin - write (2, S, S'Length); + Write (2, S, S'Length); end Put; -------------- @@ -186,7 +183,7 @@ package body System.Tasking.Debug is procedure Put_Line (S : String := "") is begin - write (2, S & ASCII.LF, S'Length + 1); + Write (2, S & ASCII.LF, S'Length + 1); end Put_Line; ---------------------- @@ -297,4 +294,11 @@ package body System.Tasking.Debug is end if; end Trace; + procedure Write (Fd : Integer; S : String; Count : Integer) is + + Num : Integer; + begin + Num := System.CRTL.write (Fd, S (S'First)'Address, Count); + end Write; + end System.Tasking.Debug; |