Skip to content

Instantly share code, notes, and snippets.

@shelajev

shelajev/keccak-calls.cob

Created October 15, 2020 15:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shelajev/c1817f11ea46c09ca46c03cc5f9235e6 to your computer and use it in GitHub Desktop.
Save shelajev/c1817f11ea46c09ca46c03cc5f9235e6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
keccak-calls.cob
cob_procedure_params[0] = &f_8;
cob_procedure_params[1] = &f_9;
cob_procedure_params[2] = COB_SET_DATA (f_12, b_12);
cob_procedure_params[3] = COB_SET_DATA (f_13, b_13);
cob_procedure_params[4] = &f_10;
cob_procedure_params[5] = COB_SET_DATA (f_14, b_14);
cob_procedure_params[6] = &f_11;
cob_glob_ptr->cob_call_params = 7;
cob_glob_ptr->cob_stmt_exception = 0;
if (unlikely((cob_glob_ptr->cob_exception_code & 0x0b00) == 0x0b00)) cob_glob_ptr->cob_exception_code = 0;
if (unlikely(call_KECCAK.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel))
{
call_KECCAK.funcvoid = cob_resolve_cobol ("KECCAK", 0, 1);
}
b_2 = ((int (*)(void *, void *, void *, void *, void *, void *, void *))call_KECCAK.funcint) (b_8, b_9, b_12, b_13, b_10, b_14, b_11);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment