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
|
Author: Ole Streicher <olebole@debian.org>
Description: Wild-quess workaround for access violations in prim/general/libsrc/calc.for
This is to hide the following problem:
.
ERROR: AddressSanitizer: stack-buffer-overflow on address 0x7fffe7377ec4 at pc 0x40fb5c bp 0x7fffe7377350 sp 0x7fffe7377348
READ of size 4 at 0x7fffe7377ec4 thread T0
#0 0x40fb5b in opffw_ prim/general/libsrc/calc.f:129
#1 0x40900b in rarthm prim/general/src/rarthm.f:402
#2 0x4038ec in main prim/general/src/rarthm.f:456
#3 0x7fed23b91b44 in __libc_start_main (/lib/x86_64-linux-gnu/libc.so.6+0x21b44)
#4 0x403c42 (prim/exec/rarthm.exe+0x403c42)
Address 0x7fffe7377ec4 is located in stack of thread T0 at offset 1316 in frame
#0 0x40512f in rarthm prim/general/src/rarthm.f:1
This frame has 57 object(s):
[32, 36) 'uni'
[...]
[1184, 1188) 'rownoa'
[1248, 1252) 'rownob'
[1312, 1316) 'rowsiz' <== Memory access at offset 1316 overflows this variable
[1376, 1380) 'stat'
[1440, 1448) 'consta'
[1504, 1512) 'npixa'
[1568, 1576) 'npixb'
[1632, 1640) 'npixc'
--- a/prim/general/src/rarthm.for
+++ b/prim/general/src/rarthm.for
@@ -483,11 +483,11 @@
IF (OPERAT(1:1).NE.'Q') THEN
CALL OPFFW(OPERAT,MADRID(APNTR),MADRID(BPNTR),
+ MADRID(PNTRW),APIX,BPIX,CPIX,
- + ROWSIZ,ROWSIZ,ROWSIZ)
+ + NPIXA,NPIXB,NPIXC)
ELSE
CALL FN2FFW(OPERA(1:5),MADRID(APNTR),MADRID(BPNTR),
+ MADRID(PNTRW),APIX,BPIX,CPIX,
- + ROWSIZ,ROWSIZ,ROWSIZ)
+ + NPIXA,NPIXB,NPIXC)
ENDIF
C
C put resulting row back into relevant ATOM
|
GitWeb
