From 5d8275121682f9cd6cd563145d5d47bf7d04bbcc Mon Sep 17 00:00:00 2001 From: Marc Feeley Date: Thu, 19 May 2011 09:48:26 -0400 Subject: [PATCH] Avoid "Target of assignment is not an lvalue" warnings in FFI generated code. --- gsc/_ptree2.scm | 16 ++++++++-------- include/stamp.h | 4 ++-- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/gsc/_ptree2.scm b/gsc/_ptree2.scm index b019186..04b8f68 100644 --- a/gsc/_ptree2.scm +++ b/gsc/_ptree2.scm @@ -1,6 +1,6 @@ ;;;============================================================================ -;;; File: "_ptree2.scm", Time-stamp: <2009-07-04 17:17:17 feeley> +;;; File: "_ptree2.scm", Time-stamp: <2011-05-19 09:42:02 feeley> ;;; Copyright (c) 1994-2009 by Marc Feeley, All Rights Reserved. @@ -2494,20 +2494,20 @@ (string-append "return " c-id ";" nl-str) "")))) (if indirect-access-result + (c-preproc-define c-id (string-append c-id-prefix - (if (vector-ref indirect-access-result 1) - (string-append - (if sfun? "SFUN_CAST_AND_DEREF(" "CFUN_CAST_AND_DEREF(") - (c-type-decl result-typ "*")) - (string-append - (if sfun? "SFUN_CAST(" "CFUN_CAST(") - (c-type-decl result-typ ""))) + (if sfun? "SFUN_CAST_AND_DEREF(" "CFUN_CAST_AND_DEREF(") + (c-type-decl result-typ "*") "," + (if (vector-ref indirect-access-result 1) + "" + "&") c-id "_voidstar)") body) + body)))))) (define (comma-separated strs) diff --git a/include/stamp.h b/include/stamp.h index 78bedbe..9e848c9 100644 --- a/include/stamp.h +++ b/include/stamp.h @@ -2,5 +2,5 @@ * Time stamp of last source code repository commit. */ -#define ___STAMP_YMD 20110517 -#define ___STAMP_HMS 202015 +#define ___STAMP_YMD 20110519 +#define ___STAMP_HMS 134826 -- 2.11.4.GIT