|
|
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: $@$diska:[eric]test_gcc2
5: $!
6: $! Command file to build libgcc2.olb. You should only run this once you
7: $! have the current compiler installed, otherwise some of the builtins will
8: $! not be recognized. Once you have built libgcc2.olb, you can merge this
9: $! with gnu_cc:[000000]gcclib.olb
10: $!
11: $lib/create libgcc2.olb
12: $call compile_libgcc2 "L_muldi3"
13: $call compile_libgcc2 "L_divdi3"
14: $call compile_libgcc2 "L_moddi3"
15: $call compile_libgcc2 "L_udivdi3"
16: $call compile_libgcc2 "L_umoddi3"
17: $call compile_libgcc2 "L_negdi2"
18: $call compile_libgcc2 "L_lshrdi3"
19: $call compile_libgcc2 "L_lshldi3"
20: $call compile_libgcc2 "L_ashldi3"
21: $call compile_libgcc2 "L_ashrdi3"
22: $call compile_libgcc2 "L_udivmoddi4"
23: $call compile_libgcc2 "L_cmpdi2"
24: $call compile_libgcc2 "L_ucmpdi2"
25: $call compile_libgcc2 "L_floatdidf"
26: $call compile_libgcc2 "L_floatdisf"
27: $call compile_libgcc2 "L_fixunsdfsi"
28: $call compile_libgcc2 "L_fixunssfsi"
29: $call compile_libgcc2 "L_fixunsdfdi"
30: $call compile_libgcc2 "L_fixdfdi"
31: $call compile_libgcc2 "L_fixunssfdi"
32: $call compile_libgcc2 "L_fixsfdi"
33: $call compile_libgcc2 "L_varargs"
34: $call compile_libgcc2 "L_eprintf"
35: $call compile_libgcc2 "L_builtin_new"
36: $call compile_libgcc2 "L_builtin_New" L_builtin_nnew
37: $call compile_libgcc2 "L_builtin_del"
38: $call compile_libgcc2 "L_bb"
39: $call compile_libgcc2 "L_shtab"
40: $call compile_libgcc2 "L_clear_cache"
41: $call compile_libgcc2 "L_trampoline"
42: $call compile_libgcc2 "L__main"
43: $!call compile_libgcc2 "L_exit"
44: $exit
45: $!
46: $compile_libgcc2:
47: $subroutine
48: $objname = p1
49: $if p2.nes."" then objname = p2
50: $gcc/include=([],[.config])/debug/define="''p1'" libgcc2.c/obj='objname'.obj
51: $lib libgcc2.olb 'objname'.obj
52: $del 'objname'.obj;/nolog
53: $endsubroutine
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.