diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 05:27:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-10 05:27:03 +0000 |
| commit | 3a2f06e93704a4187f4ca10ac210246cacbd9b05 (patch) | |
| tree | e2098523c3499c3b9f0441e69fa72fd71a73907a /epoc/link.pl | |
| parent | 5a3e78123e3b27b54e7f651bd5fa051044f04189 (diff) | |
| download | perl-3a2f06e93704a4187f4ca10ac210246cacbd9b05.tar.gz | |
EPOC port update (from Olaf Flebbe <O.Flebbe@science-computing.de>)
p4raw-id: //depot/perl@4782
Diffstat (limited to 'epoc/link.pl')
| -rw-r--r-- | epoc/link.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/epoc/link.pl b/epoc/link.pl new file mode 100644 index 0000000000..9da8a356ca --- /dev/null +++ b/epoc/link.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w + +$epoc="/usr/local/epoc"; +@objs=@ARGV; +$basname=$objs[0]; +$basname =~ s/.o//; +$baspe = $basname . "pe"; + + +system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " . + "-o $baspe.exe $epoc/lib/eexe.o @objs " . + "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); + +system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " . + "--base-file $basname.bas $epoc/lib/eexe.o @objs " . + "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); + +system("arm-pe-ld -s -e _E32Startup -o $basname.exe $basname.exp " . + "-o $baspe.exe $epoc/lib/eexe.o @objs " . + "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); + +system( "wine \"$epoc/bin/petran.exe $baspe.exe $basname.exe " . + "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " . + "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000 \" "); + |