ports/devel/tcl-trf/files/patch-md2
Mikhail Teterin f65a5e70f9 The below-mentioned PR identified a problem, which should've been
caught by the test-harness -- but was not, because the harness was
not used correctly (for 10 years).

Provide a new harness and fix the reported problem as well as another
one -- with MD2 digests -- identified by the now-functioning
test-suit.

Bump PORTREVISION...

PR:		237132
Reported by:	Vadim Zborovsky
2019-04-11 04:37:41 +00:00

180 lines
3.9 KiB
Text
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

--- generic/md2.c 2009-06-18 00:54:43.000000000 -0400
+++ generic/md2.c 2009-07-13 00:28:17.000000000 -0400
@@ -28,5 +28,6 @@
*/
-#include "loadman.h"
+#include "transformInt.h"
+#include "md2d.h"
/*
@@ -42,14 +43,4 @@
/*
- * Declarations of internal procedures.
- */
-
-static void MDmd2_Start _ANSI_ARGS_ ((VOID* context));
-static void MDmd2_Update _ANSI_ARGS_ ((VOID* context, unsigned int character));
-static void MDmd2_UpdateBuf _ANSI_ARGS_ ((VOID* context, unsigned char* buffer, int bufLen));
-static void MDmd2_Final _ANSI_ARGS_ ((VOID* context, VOID* digest));
-static int MDmd2_Check _ANSI_ARGS_ ((Tcl_Interp* interp));
-
-/*
* Generator definition.
*/
@@ -59,9 +50,9 @@
sizeof (CTX_TYPE),
DIGEST_SIZE,
- MDmd2_Start,
- MDmd2_Update,
- MDmd2_UpdateBuf,
- MDmd2_Final,
- MDmd2_Check
+ (Trf_MDStart *)MD2_Init,
+ NULL,
+ (Trf_MDUpdateBuf *)MD2_Update,
+ (Trf_MDFinal *)MD2_Final,
+ NULL
};
@@ -90,139 +81,2 @@
return Trf_RegisterMessageDigest (interp, &mdDescription);
}
-
-/*
- *------------------------------------------------------*
- *
- * MDmd2_Start --
- *
- * ------------------------------------------------*
- * Initialize the internal state of the message
- * digest generator.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static void
-MDmd2_Start (context)
-VOID* context;
-{
- md2f.init ((MD2_CTX*) context);
-}
-
-/*
- *------------------------------------------------------*
- *
- * MDmd2_Update --
- *
- * ------------------------------------------------*
- * Update the internal state of the message digest
- * generator for a single character.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static void
-MDmd2_Update (context, character)
-VOID* context;
-unsigned int character;
-{
- unsigned char buf = character;
-
- md2f.update ((MD2_CTX*) context, &buf, 1);
-}
-
-/*
- *------------------------------------------------------*
- *
- * MDmd2_UpdateBuf --
- *
- * ------------------------------------------------*
- * Update the internal state of the message digest
- * generator for a character buffer.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static void
-MDmd2_UpdateBuf (context, buffer, bufLen)
-VOID* context;
-unsigned char* buffer;
-int bufLen;
-{
- md2f.update ((MD2_CTX*) context, (unsigned char*) buffer, bufLen);
-}
-
-/*
- *------------------------------------------------------*
- *
- * MDmd2_Final --
- *
- * ------------------------------------------------*
- * Generate the digest from the internal state of
- * the message digest generator.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * As of the called procedure.
- *
- * Result:
- * None.
- *
- *------------------------------------------------------*
- */
-
-static void
-MDmd2_Final (context, digest)
-VOID* context;
-VOID* digest;
-{
- md2f.final ((unsigned char*) digest, (MD2_CTX*) context);
-}
-
-/*
- *------------------------------------------------------*
- *
- * MDmd2_Check --
- *
- * ------------------------------------------------*
- * Do global one-time initializations of the message
- * digest generator.
- * ------------------------------------------------*
- *
- * Sideeffects:
- * Loads the shared library containing the
- * MD2 functionality
- *
- * Result:
- * A standard Tcl error code.
- *
- *------------------------------------------------------*
- */
-
-static int
-MDmd2_Check (interp)
-Tcl_Interp* interp;
-{
- return TrfLoadMD2 (interp);
-}