util/incore update.

Support cross-compile platforms that don't support FINGERPRINT_premain,
e.g. VxWorks.

Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Andy Polyakov 2015-04-20 15:53:12 +02:00
parent 7ee7f92025
commit bd576049a9

View File

@ -382,7 +382,7 @@ if (!$legacy_mode) {
} }
$FINGERPRINT_ascii_value $FINGERPRINT_ascii_value
= $exe->Lookup("FINGERPRINT_ascii_value") or die; = $exe->Lookup("FINGERPRINT_ascii_value");
} }
if ($FIPS_text_startX && $FIPS_text_endX) { if ($FIPS_text_startX && $FIPS_text_endX) {
@ -439,9 +439,12 @@ $fingerprint = FIPS_incore_fingerprint();
if ($legacy_mode) { if ($legacy_mode) {
print unpack("H*",$fingerprint); print unpack("H*",$fingerprint);
} else { } elsif (defined($FINGERPRINT_ascii_value)) {
seek(FD,$FINGERPRINT_ascii_value->{st_offset},0) or die "$!"; seek(FD,$FINGERPRINT_ascii_value->{st_offset},0) or die "$!";
print FD unpack("H*",$fingerprint) or die "$!"; print FD unpack("H*",$fingerprint) or die "$!";
} else {
seek(FD,$FIPS_signature->{st_offset},0) or die "$!";
print FD $fingerprint or die "$!";
} }
close (FD); close (FD);