Commit | Line | Data |
---|---|---|
3a2f06e9 GS |
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 | ||
ed79a026 | 18 | system("arm-pe-ld -s -e _E32Startup $basname.exp " . |
3a2f06e9 GS |
19 | "-o $baspe.exe $epoc/lib/eexe.o @objs " . |
20 | "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib"); | |
21 | ||
ed79a026 | 22 | system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " . |
3a2f06e9 | 23 | "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " . |
ed79a026 | 24 | "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" "); |
3a2f06e9 | 25 |