mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 04:26:13 +02:00
* added ptrgl helper to cprt0 startup code as well
git-svn-id: trunk@1779 -
This commit is contained in:
parent
93bb997d8f
commit
268050b0c1
@ -54,6 +54,22 @@
|
|||||||
.globl .\fn
|
.globl .\fn
|
||||||
.\fn:
|
.\fn:
|
||||||
.endm
|
.endm
|
||||||
|
|
||||||
|
/* "ptrgl" glue code */
|
||||||
|
.section ".text"
|
||||||
|
.align 3
|
||||||
|
.globl .ptrgl
|
||||||
|
.ptrgl:
|
||||||
|
ld 0, 0(11)
|
||||||
|
std 2, 40(1)
|
||||||
|
mtctr 0
|
||||||
|
ld 2, 8(11)
|
||||||
|
ld 11, 8(11)
|
||||||
|
bctr
|
||||||
|
.long 0
|
||||||
|
.byte 0, 12, 0, 0, 0, 0, 0, 0
|
||||||
|
.type .ptrgl, @function
|
||||||
|
.size .ptrgl, . - .ptrgl
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* start_addresses is a structure containing the real
|
* start_addresses is a structure containing the real
|
||||||
|
Loading…
Reference in New Issue
Block a user