|
|
1.1 root 1: $! Set the def dir to proper place for use in batch. Works for interactive too.
2: $flnm = f$enviroment("PROCEDURE") ! get current procedure name
3: $set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
4: $!
5: $! Command file to build libgcc2.olb. You should only run this once you
6: $! have the current compiler installed, otherwise some of the builtins will
7: $! not be recognized. Once you have built libgcc2.olb, you can merge this
8: $! with gnu_cc:[000000]gcclib.olb
9: $!
1.1.1.2 ! root 10: $if f$extract(0,1,f$trnlnm("GNU_CC_VERSION")).nes."1" then goto compile
! 11: $!
! 12: $write sys$output "This must be compiled by gcc 2.0"
! 13: $exit
! 14: $!
! 15: $compile:
1.1 root 16: $lib/create libgcc2.olb
17: $call compile_libgcc2 "L_muldi3"
18: $call compile_libgcc2 "L_divdi3"
19: $call compile_libgcc2 "L_moddi3"
20: $call compile_libgcc2 "L_udivdi3"
21: $call compile_libgcc2 "L_umoddi3"
22: $call compile_libgcc2 "L_negdi2"
23: $call compile_libgcc2 "L_lshrdi3"
24: $call compile_libgcc2 "L_lshldi3"
25: $call compile_libgcc2 "L_ashldi3"
26: $call compile_libgcc2 "L_ashrdi3"
27: $call compile_libgcc2 "L_udivmoddi4"
28: $call compile_libgcc2 "L_cmpdi2"
29: $call compile_libgcc2 "L_ucmpdi2"
30: $call compile_libgcc2 "L_floatdidf"
31: $call compile_libgcc2 "L_floatdisf"
32: $call compile_libgcc2 "L_fixunsdfsi"
33: $call compile_libgcc2 "L_fixunssfsi"
34: $call compile_libgcc2 "L_fixunsdfdi"
35: $call compile_libgcc2 "L_fixdfdi"
36: $call compile_libgcc2 "L_fixunssfdi"
37: $call compile_libgcc2 "L_fixsfdi"
38: $call compile_libgcc2 "L_varargs"
39: $call compile_libgcc2 "L_eprintf"
40: $call compile_libgcc2 "L_builtin_new"
41: $call compile_libgcc2 "L_builtin_New" L_builtin_nnew
42: $call compile_libgcc2 "L_builtin_del"
43: $call compile_libgcc2 "L_bb"
44: $call compile_libgcc2 "L_shtab"
45: $call compile_libgcc2 "L_clear_cache"
46: $call compile_libgcc2 "L_trampoline"
47: $call compile_libgcc2 "L__main"
48: $!call compile_libgcc2 "L_exit"
49: $exit
50: $!
51: $compile_libgcc2:
52: $subroutine
53: $objname = p1
54: $if p2.nes."" then objname = p2
55: $gcc/include=([],[.config])/debug/define="''p1'" libgcc2.c/obj='objname'.obj
56: $lib libgcc2.olb 'objname'.obj
57: $del 'objname'.obj;/nolog
58: $endsubroutine
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.