From a53955d8abd68c604de02cc1e101c66169207fb7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Fri, 4 Jun 1999 21:35:58 +0000
Subject: Support the EBCDIC character set and BS2000/OSD-POSIX (work in
 progress).

Submitted by: Martin Kraemer <Martin.Kraemer@MchP.Siemens.De>
---
 crypto/objects/obj_dat.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'crypto/objects')

diff --git a/crypto/objects/obj_dat.c b/crypto/objects/obj_dat.c
index 0b24b14446..d56edcdf96 100644
--- a/crypto/objects/obj_dat.c
+++ b/crypto/objects/obj_dat.c
@@ -497,6 +497,17 @@ char *OBJ_bsearch(char *key, char *base, int num, int size, int (*cmp)())
 		else
 			return(p);
 		}
+#ifdef CHARSET_EBCDIC
+/* THIS IS A KLUDGE - Because the *_obj is sorted in ASCII order, and
+ * I don't have perl (yet), we revert to a *LINEAR* search
+ * when the object wasn't found in the binary search.
+ */
+	for (i=0; i<num; ++i) {
+		p= &(base[i*size]);
+		if ((*cmp)(key,p) == 0)
+			return p;
+	}
+#endif
 	return(NULL);
 	}
 
-- 
cgit v1.2.3