libf2c/7384: DATE_AND_TIME milliseconds field inactive on Windows

[tprince@computer.org]

>Number:         7384
>Category:       libf2c
>Synopsis:       DATE_AND_TIME milliseconds field inactive on Windows
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon Jul 22 21:16:01 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     Tim Prince
>Release:        gcc-3.1.1
>Organization:
>Environment:
Windows 2K et al
>Description:
As the current source depends on gettimeofday() to supply the milliseconds field for DATE_AND_TIME(), it is left zero on Windows.  Programs which require this information must use a C wrapper to call the Windows API GetLocalTime().
>How-To-Repeat:
Execute the u77-test.f program which is included in gcc-testsuite
>Fix:
Apply the attached patch to libf2c/libU77/datetime_.c, arrange that _WIN32 is pre-defined by gcc for the build of this directory (e.g. by including -mwin32 in CFLAGS when building under cygwin).  Note that [de]time_.c also look for _WIN32 to be pre-defined.
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: application/octet-stream; name="datetime.diff"; name="datetime.diff"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="datetime.diff"

KioqIC9ob21lL3RpbS9zcmMvZ2NjLTIwMDIwNDA4L2xpYmYyYy9saWJVNzcvZGF0ZXRpbWVfLmMJ
VHVlIEphbiAyMyAxNToyMDozMCAyMDAxCi0tLSBkYXRldGltZV8uYwlTYXQgSnVsIDIwIDEyOjA4
OjA4IDIwMDIKKioqKioqKioqKioqKioqIEJvc3RvbiwgTUEgMDIxMTEtMTMwNywgVVNBLiAgKi8K
KioqIDMyLDM1ICoqKioKLS0tIDMyLDQwIC0tLS0KICAjIGVuZGlmCiAgI2VuZGlmCisgI2lmIGRl
ZmluZWQgKF9XSU4zMikKKyAjaW5jbHVkZSA8d2luZG93cy5oPgorICN1bmRlZiBtaW4KKyAjdW5k
ZWYgbWF4CisgI2VuZGlmCiAgI2luY2x1ZGUgImYyYy5oIgogIAoqKioqKioqKioqKioqKiogaW50
IEc3N19kYXRlX2FuZF90aW1lXzAgKGNoYXIgKmRhdGUsIGNoYQoqKiogNDgsNTEgKioqKgotLS0g
NTMsNjQgLS0tLQogICAgY2hhciBkYXRbOV0sIHpvbls2XSwgZnRpbVsxMV07CiAgICBpbnQgaSwg
dmFsc1s4XTsKKyAjaWYgZGVmaW5lZCAoX1dJTjMyKQorICAgICBzdHJ1Y3QgX1NZU1RFTVRJTUUg
d2RhdHRpbTsKKyAgICAgR2V0TG9jYWxUaW1lKCZ3ZGF0dGltKTsKKyAgICAgdmFsc1s3XSA9IHdk
YXR0aW0ud01pbGxpc2Vjb25kczsKKyAjZWxzZQorICAgdmFsc1s3XSA9IDA7ICAgICAgICAgICAg
ICAgICAgLyogbm8gU1REQy9QT1NJWCB3YXkgdG8gZ2V0IHRoaXMgKi8KKyAgIC8qIEdOVWlzaCB3
YXk7IG1heWJlIHVzZSBgZnRpbWUnIG9uIG90aGVyIHN5c3RlbXMuICovCisgI2VuZGlmCiAgCiAg
ICB2YWxzWzBdID0gMTkwMCArIGx0aW1lLnRtX3llYXI7CioqKioqKioqKioqKioqKiBpbnQgRzc3
X2RhdGVfYW5kX3RpbWVfMCAoY2hhciAqZGF0ZSwgY2hhCioqKiA1OSw2NCAqKioqCiAgICB2YWxz
WzVdID0gbHRpbWUudG1fbWluOwogICAgdmFsc1s2XSA9IGx0aW1lLnRtX3NlYzsKLSAgIHZhbHNb
N10gPSAwOyAgICAgICAgICAgICAgICAgIC8qIG5vIFNUREMvUE9TSVggd2F5IHRvIGdldCB0aGlz
ICovCi0gICAvKiBHTlVpc2ggd2F5OyBtYXliZSB1c2UgYGZ0aW1lJyBvbiBvdGhlciBzeXN0ZW1z
LiAqLwogICNpZiBIQVZFX0dFVFRJTUVPRkRBWQogICAgewotLS0gNzIsNzUgLS0tLQo=