diff --git a/libffi/ChangeLog b/libffi/ChangeLog
index 1496f5939fc..8a1b6980f96 100644
--- a/libffi/ChangeLog
+++ b/libffi/ChangeLog
@@ -1,6 +1,7 @@
 2002-01-18  David Edelsohn  <edelsohn@gnu.org>
 
 	* src/powerpc/darwin.S (_ffi_call_AIX): New.
+	* src/powerpc/aix.S (ffi_call_DARWIN): New.
 
 2002-01-17  David Edelsohn  <edelsohn@gnu.org>
 
diff --git a/libffi/src/powerpc/aix.S b/libffi/src/powerpc/aix.S
index a0a6598175d..427733f5976 100644
--- a/libffi/src/powerpc/aix.S
+++ b/libffi/src/powerpc/aix.S
@@ -205,5 +205,20 @@ L(fp_return_value):
 L(float_return_value):
 	stfs	f1,0(r30)
 	b	L(done_return_value)
+	.long 0
+	.byte 0,0,0,1,128,4,0,0
 //END(ffi_call_AIX)
 
+.csect .text[PR]
+	.align 2
+	.globl ffi_call_DARWIN
+	.globl .ffi_call_DARWIN
+.csect ffi_call_DARWIN[DS]
+ffi_call_DARWIN:
+	.long .ffi_call_DARWIN, TOC[tc0], 0
+	.csect .text[PR]
+.ffi_call_DARWIN:
+	blr
+	.long 0
+	.byte 0,0,0,0,0,0,0,0
+//END(ffi_call_DARWIN)