1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
--- f2c-20020621.orig/src/sysdep.c 2000-07-05 00:54:54.000000000 +0200
+++ f2c-20020621/src/sysdep.c 2005-01-09 17:56:35.000000000 +0100
@@ -111,6 +111,7 @@
if (debugflag == 1)
return;
k = strlen(tmpdir) + 24;
+#ifdef MSDOS
c_functions = (char *)ckalloc(7*k);
initfname = c_functions + k;
initbname = initfname + k;
@@ -118,6 +119,15 @@
p1_file = blkdfname + k;
p1_bakfile = p1_file + k;
sortfname = p1_bakfile + k;
+#else
+ char *c_functions;
+ char *initfname;
+ char *initbname;
+ char *blkdfname;
+ char *p1_file;
+ char *p1_bakfile;
+ char *sortfname;
+#endif
{
#ifdef MSDOS
char buf[64], *s, *t;
@@ -156,16 +166,16 @@
sprintf(p1_file, "%s%sp1f", t, f2c);
sprintf(p1_bakfile, "%s%sp1fb", t, f2c);
sprintf(sortfname, "%s%ssort", t, f2c);
+ sprintf(initbname, "%s.b", initfname);
#else
- long pid = getpid();
- sprintf(c_functions, "%s/f2c%ld_func", tmpdir, pid);
- sprintf(initfname, "%s/f2c%ld_rd", tmpdir, pid);
- sprintf(blkdfname, "%s/f2c%ld_blkd", tmpdir, pid);
- sprintf(p1_file, "%s/f2c%ld_p1f", tmpdir, pid);
- sprintf(p1_bakfile, "%s/f2c%ld_p1fb", tmpdir, pid);
- sprintf(sortfname, "%s/f2c%ld_sort", tmpdir, pid);
+ c_functions = tempnam(tmpdir,"f2c_func");
+ initfname = tempnam(tmpdir,"f2c_rc");
+ initbname = tempnam(tmpdir,"f2c_rc.b");
+ blkdfname = tempnam(tmpdir,"f2c_blkd");
+ p1_file = tempnam(tmpdir,"f2c_p1f");
+ p1_bakfile = tempnam(tmpdir,"f2c_p1fb");
+ sortfname = tempnam(tmpdir,"f2c_sort");
#endif
- sprintf(initbname, "%s.b", initfname);
}
if (debugflag)
fprintf(diagfile, "%s %s %s %s %s %s\n", c_functions,
--- f2c-20020621.orig/src/xsum0.out 2003-03-20 19:49:59.000000000 +0100
+++ f2c-20020621/src/xsum0.out 2005-01-14 19:29:15.690750136 +0100
@@ -47,7 +47,7 @@
proc.c 649db52 39174
put.c af0be95 10345
putpcc.c 4d278f 45996
-sysdep.c e03333ea 14359
+sysdep.c f0f5a91b 14478
sysdep.h e7826434 2755
tokens 188b7c5d 733
usignal.h 1c4ce909 124
|
GitWeb
