| Revision 17035,
882 bytes
checked in by zacheiss, 23 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r17034,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | #!/usr/bin/perl -w |
|---|
| 2 | |
|---|
| 3 | $epoc="/usr/local/epoc"; |
|---|
| 4 | @objs=@ARGV; |
|---|
| 5 | $basname=$objs[0]; |
|---|
| 6 | $basname =~ s/.o//; |
|---|
| 7 | $baspe = $basname . "pe"; |
|---|
| 8 | |
|---|
| 9 | |
|---|
| 10 | system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " . |
|---|
| 11 | "-o $baspe.exe $epoc/lib/eexe.o @objs " . |
|---|
| 12 | "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); |
|---|
| 13 | |
|---|
| 14 | system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " . |
|---|
| 15 | "--base-file $basname.bas $epoc/lib/eexe.o @objs " . |
|---|
| 16 | "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); |
|---|
| 17 | |
|---|
| 18 | system("arm-pe-ld -s -e _E32Startup $basname.exp " . |
|---|
| 19 | "-o $baspe.exe $epoc/lib/eexe.o @objs " . |
|---|
| 20 | "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); |
|---|
| 21 | |
|---|
| 22 | system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " . |
|---|
| 23 | "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " . |
|---|
| 24 | "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" "); |
|---|
| 25 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
