mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 04:39:28 +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
|
||||
.\fn:
|
||||
.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
|
||||
|
Loading…
Reference in New Issue
Block a user