diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/ChangeLog.melt | 4 | ||||
| -rw-r--r-- | contrib/cold-basilys.lisp | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/contrib/ChangeLog.melt b/contrib/ChangeLog.melt new file mode 100644 index 00000000000..fa46a65c551 --- /dev/null +++ b/contrib/ChangeLog.melt @@ -0,0 +1,4 @@ + +2008-03-20 Basile Starynkevitch <basile@starynkevitch.net> + * cold-basilys.lisp: removed invocation if indent & basilys-gcc programs. + (output_ccode) added newline emission after outputting preprocessor directives. diff --git a/contrib/cold-basilys.lisp b/contrib/cold-basilys.lisp index b2766c781ee..18402f452d1 100644 --- a/contrib/cold-basilys.lisp +++ b/contrib/cold-basilys.lisp @@ -3698,7 +3698,7 @@ nil) (format str " const char xargdescr_[],~%") (format str " union basilysparam_un* xargtab_,~%") (format str " const char xresdescr_[],~%") - (format str " union basilysparam_un* xrestab_)~%{") + (format str " union basilysparam_un* xrestab_)~%{~%") (format str "#if ENABLE_CHECKING~%") (format str " static long thiscallcounter__;~%") (format str " long callcount_ = ++thiscallcounter__;~%") @@ -3743,7 +3743,7 @@ nil) (format str "/* body ~d end */~%" rk) (format str " lab_endrout:~%") (format str "basilys_check_call_frames(BASILYS_ANYWHERE, \"end ~a\");~%" (routinecname obj)) - (format str " basilys_topframe= (void*)(curfram__.prev); return curfram__.varptr[0];") + (format str " basilys_topframe= (void*)(curfram__.prev); return curfram__.varptr[0];~%") (format str "#undef callcount~%") (format str "} /* end rout_~d */~%~%" rk) (setf (compilation-currout this_compilation) oldcurout) |