File tree Expand file tree Collapse file tree 3 files changed +10
-10
lines changed Expand file tree Collapse file tree 3 files changed +10
-10
lines changed Original file line number Diff line number Diff line change @@ -385,11 +385,11 @@ class procedure TInternalFuntions.SetVariable(const AStackFrames: TObjectStack<T
385
385
begin
386
386
if (AStackFrames = nil ) or (AStackFrames.count = 0 ) or (AStackOffset > 0 ) or (-AStackOffset > AStackFrames.count) then
387
387
exit;
388
- { $IFDEF DEFINE SUPPORT_STACK_LIST_PROPERTY}
388
+ { $IFDEF DEFINE SUPPORT_STACK_LIST_PROPERTY}
389
389
LStackFrame := AStackFrames.List[AStackFrames.count + AStackOffset];
390
- { $ELSE}
390
+ { $ELSE}
391
391
LStackFrame := AStackFrames.ToArray[AStackFrames.count + AStackOffset];
392
- { $ENDIF}
392
+ { $ENDIF}
393
393
LStackFrame[AVariable] := AValue;
394
394
end ;
395
395
@@ -706,11 +706,11 @@ class function TInternalFuntions.GetVariable(const AStackFrames: TObjectStack<TS
706
706
begin
707
707
if (AStackFrames = nil ) or (AStackFrames.count = 0 ) or (AStackOffset > 0 ) or (-AStackOffset > AStackFrames.count) then
708
708
exit;
709
- { $IFDEF DEFINE SUPPORT_STACK_LIST_PROPERTY}
709
+ { $IFDEF DEFINE SUPPORT_STACK_LIST_PROPERTY}
710
710
LStackFrame := AStackFrames.List[AStackFrames.count + AStackOffset];
711
- { $ELSE}
711
+ { $ELSE}
712
712
LStackFrame := AStackFrames.ToArray[AStackFrames.count + AStackOffset];
713
- { $ENDIF}
713
+ { $ENDIF}
714
714
exit(LStackFrame[AVariable]);
715
715
end ;
716
716
Original file line number Diff line number Diff line change @@ -57,9 +57,9 @@ interface
57
57
TJsonArray = Data.DBXJSON.TJsonArray;
58
58
{ $ELSE}
59
59
TJsonValue = System.JSON.TJsonValue;
60
- { $IFDEF SUPPORT_JSON_BOOL}
60
+ { $IFDEF SUPPORT_JSON_BOOL}
61
61
TJSONBool = System.JSON.TJSONBool; // not in XE6
62
- { $ENDIF}
62
+ { $ENDIF}
63
63
TJSONString = System.JSON.TJSONString;
64
64
TJSONNumber = System.JSON.TJSONNumber;
65
65
TJsonObject = System.JSON.TJsonObject;
Original file line number Diff line number Diff line change @@ -1053,9 +1053,9 @@ function MatchJsonValue(const AContext: ITemplateContext; const ATypeInfo: PType
1053
1053
(ATypeInfo = TypeInfo(TJSONNull)) or //
1054
1054
(ATypeInfo = TypeInfo(TJSONNumber)) or //
1055
1055
(ATypeInfo = TypeInfo(TJSONString)) or //
1056
- { $IFDEF SUPPORT_JSON_BOOL}
1056
+ { $IFDEF SUPPORT_JSON_BOOL}
1057
1057
(ATypeInfo = TypeInfo(TJSONBool)) or //
1058
- { $ENDIF}
1058
+ { $ENDIF}
1059
1059
(ATypeInfo = TypeInfo(TJSONTrue)) or //
1060
1060
(ATypeInfo = TypeInfo(TJSONFalse)) //
1061
1061
);
You can’t perform that action at this time.
0 commit comments