/*	$Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp $	*/
/*-
 * Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include "common.h"

asm(
	"	.text\n"
	"	.section __TEXT,__picsymbolstub1,symbol_stubs,pure_instructions,32"
);

/*
 *  void _dyld_func_lookup(const char *, void **);
 *
 *  jump to the linker via the pointer in the __dyld section
 */
asm(
	"	.text\n"
	"	.p2align 2\n"
	"	.private_extern __dyld_func_lookup\n"
	"__dyld_func_lookup:\n"
	"	mflr r0\n"
	"	bcl 20,31,L__dyld_func_lookup$pb\n"
	"L__dyld_func_lookup$pb:\n"
	"	mflr r11\n"
	"	mtlr r0\n"
	"	addis r11,r11,ha16(Ldyld_func_lookup-L__dyld_func_lookup$pb)\n"
	"	lwz r11,lo16(Ldyld_func_lookup-L__dyld_func_lookup$pb)(r11)\n"
	"	mtctr r11\n"
	"	bctr\n"
);

/*
 *  void dyld_stub_binding_helper(void)
 */
asm(
	"	.data\n"
	"	.p2align 2\n"
	"dyld__mach_header:\n"
	"	.long __mh_dylib_header\n"
	"	.text\n"
	"	.p2align 2\n"
	"	.private_extern dyld_stub_binding_helper\n"
	"dyld_stub_binding_helper:\n"
	"	mflr r0\n"
	"	bcl 20,31,Ldyld_stub_binding_helper$pb\n"
	"Ldyld_stub_binding_helper$pb:\n"
	"	mflr r12\n"
	"	mtlr r0\n"
	"	mr r0,r12\n"
	"	addis r12,r12,ha16(Ldyld_lazy_binder-Ldyld_stub_binding_helper$pb)\n"
	"	lwz r12,lo16(Ldyld_lazy_binder-Ldyld_stub_binding_helper$pb)(r12)\n"
	"	mtctr r12\n"
	"	mr r12,r0\n"
	"	addis r12,r12,ha16(dyld__mach_header-Ldyld_stub_binding_helper$pb)\n"
	"	lwz r12,lo16(dyld__mach_header-Ldyld_stub_binding_helper$pb)(r12)\n"
        "       bctr\n"
);

/*
 * __dyld section
 */
asm(
	"	.dyld\n"
	"	.p2align 2\n"
	"Ldyld_lazy_binder:\n"
	"	.long 0x8fe01000\n"
	"Ldyld_func_lookup:\n"
	"	.long 0x8fe01008\n"

);

asm("\t.subsections_via_symbols\n");

IDENT("$Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp $");
