From ded56dfb049ee81e6ce7bccfbc5af1d1f9d5a42b Mon Sep 17 00:00:00 2001 From: martin Date: Sat, 8 Feb 2014 03:08:45 +0000 Subject: [PATCH] FPDebug: fixed compile without $DEFINE git-svn-id: trunk@43950 - --- components/fpdebug/fppascalparser.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/fpdebug/fppascalparser.pas b/components/fpdebug/fppascalparser.pas index 5b4ab4baa1..5a0fcf14ab 100644 --- a/components/fpdebug/fppascalparser.pas +++ b/components/fpdebug/fppascalparser.pas @@ -1968,7 +1968,7 @@ begin if tmp is TPasParserSymbolValueMakeReftype then begin TPasParserSymbolValueMakeReftype(tmp).IncRefLevel; Result := tmp; - Result.AddReference{$IFDEF WITH_REFCOUNT_DEBUG}(nil, 'DoGetResultValue');{$ENDIF} + Result.AddReference{$IFDEF WITH_REFCOUNT_DEBUG}(nil, 'DoGetResultValue'){$ENDIF}; exit; end; @@ -1976,7 +1976,7 @@ begin exit; Result := TPasParserSymbolValueMakeReftype.Create(tmp.DbgSymbol); - {$IFDEF WITH_REFCOUNT_DEBUG}Result.DbgRenameReference(nil, 'DoGetResultValue');{$ENDIF} + {$IFDEF WITH_REFCOUNT_DEBUG}Result.DbgRenameReference(nil, 'DoGetResultValue'){$ENDIF}; end; function TFpPascalExpressionPartOperatorMakeRef.DoGetIsTypeCast: Boolean;