Version bumps for modules changed by a6d37805ca8a9ba8 ($Id$ removal).
[perl.git] / epoc / link.pl
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