-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License"). You may not use
+# this file except in compliance with the License. You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
# ====================================================================
# Copyright (c) 2008 Andy Polyakov <appro@openssl.org>
$OPENSSL=1;
+$output = pop;
+open STDOUT,">$output";
+
&asm_init($ARGV[0],"cmll-586.pl",$ARGV[$#ARGV] eq "386");
@T=("eax","ebx","ecx","edx");
&function_end("Camellia_Ekeygen");
if ($OPENSSL) {
-# int private_Camellia_set_key (
+# int Camellia_set_key (
# const unsigned char *userKey,
# int bits,
# CAMELLIA_KEY *key)
-&function_begin_B("private_Camellia_set_key");
+&function_begin_B("Camellia_set_key");
&push ("ebx");
&mov ("ecx",&wparam(0)); # pull arguments
&mov ("ebx",&wparam(1));
&set_label("done",4);
&pop ("ebx");
&ret ();
-&function_end_B("private_Camellia_set_key");
+&function_end_B("Camellia_set_key");
}
@SBOX=(
&asciz("Camellia for x86 by <appro\@openssl.org>");
&asm_finish();
+
+close STDOUT;