diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-29 15:17:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 15:17:00 +0000 |
| commit | d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a (patch) | |
| tree | c7b7eba9c36bd249d019d6457abad148d051a8d7 /src/interp/fortcall.boot | |
| parent | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (diff) | |
| download | open-axiom-d6e1db9b19a58fd6298e3d37eb6ec25f34ff191a.tar.gz | |
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 147323e2..42c6ba4d 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -215,8 +215,7 @@ printDec(type,dec,asps,fp) == writeXDR(v,str,fp) == -- Generate the calls to the filters which will read from the temp -- file. The CHECK macro ensures that the translation worked. - underscore := STRING CHAR('"__:",0) -- to avoid a compiler bug which won't - -- parse " ... __" properly. + underscore := '"__" wt(['" CHECK(xdr",underscore, XDRFun(v), '"(", str, '",&", first(v)],fp) if (LISTP (ty :=second v)) and first ty ~= '"char" then wt(['",&",first(v),'"__length,MAX__ARRAY(",first(v),'"__length),"],fp) |