OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* init.c, adaint.c: Minor reformatting. 

From-SVN: r72841
This commit is contained in:
Arnaud Charlet 2003-10-23 12:15:00 +02:00
parent 8f4eb34be6
commit 6d244bbea8
3 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/ChangeLog
View File

@ -1,7 +1,10 @@
2003-10-23 Arnaud Charlet <charlet@act-europe.fr>
* init.c, adaint.c: Minor reformatting.
2003-10-23 Danny Smith <dannysmith@users.sourceforge.net>
* ada/adaint.c (w32_epoch_offset): Define static const at file
level.
* adaint.c (w32_epoch_offset): Define static const at file level.
(win32_filetime): Replace offset with w32_epoch_offset. Use NULL
rather than t_create, t_access in call to GetFileTime. Use union
to convert between FILETIME and unsigned long long.
@ -34,7 +37,7 @@
2003-10-22 Arnaud Charlet <charlet@act-europe.fr>
* Makefile.in: Disable build of gnatpa. PR ada/10110.
* Makefile.in: Disable build of gnatpsta. PR ada/10110.
* cstreams.c (__gnat_full_name): Minor improvements and clean up
of previous change.
@ -55,7 +58,7 @@
* mingw32.h: New file.
* gnat_wrapper.adb: New file.
2003/10/22 Jerome Roussel <roussel@act-europe.fr>
2003-10-22 Jerome Roussel <roussel@act-europe.fr>
* g-regpat.ads, g-regpat.adb (Match): new function, to know if a
string match a pre compiled regular expression (the corresponding
@ -63,7 +66,7 @@
Fix typos in various comments
Update copyright notice in spec
2003/10/21 Gary Dismukes <dismukes@gnat.com>
2003-10-21 Gary Dismukes <dismukes@gnat.com>
* exp_ch3.adb:
(Component_Needs_Simple_Initialization): Return False when the type is a
@ -75,7 +78,7 @@
covers the case of zero-initialization of bit arrays).
Update copyright notice.
2003/10/21 Ed Schonberg <schonberg@gnat.com>
2003-10-21 Ed Schonberg <schonberg@gnat.com>
* sem_ch12.adb:
(Load_Parent_Of_Generic): If parent is compilation unit, stop search,

4
gcc/ada/adaint.c
View File

@ -836,7 +836,7 @@ __gnat_file_time_name (char *name)
time_t ret = 0;
HANDLE h = CreateFile (name, GENERIC_READ, FILE_SHARE_READ, 0,
OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
if (h != INVALID_HANDLE_VALUE)
{
ret = win32_filetime (h);
@ -961,7 +961,7 @@ __gnat_set_file_time_name (char *name, time_t time_stamp)
FILETIME ft_time;
unsigned long long ull_time;
} t_write;
HANDLE h = CreateFile (name, GENERIC_WRITE, FILE_SHARE_WRITE, NULL,
OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS,
NULL);

4
gcc/ada/init.c
View File

@ -715,7 +715,7 @@ __gnat_error_handler (sig)
msg = "unhandled signal";
}
mstate = (*Get_Machine_State_Addr)();
mstate = (*Get_Machine_State_Addr) ();
if (mstate)
{
mstate->eip = info->eip;
@ -1130,7 +1130,7 @@ __gnat_error_handler (sig, code, sc)
msg = "unhandled signal";
}
mstate = (*Get_Machine_State_Addr)();
mstate = (*Get_Machine_State_Addr) ();
if (mstate != 0)
memcpy ((void *) mstate, (const void *) sc, sizeof (sigcontext_t));