paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 10:22:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: added operators +, - for float

Browse Source 
git-svn-id: trunk@44884 -
This commit is contained in:
martin 2014-05-02 02:02:32 +00:00
parent fc31f1a0c0
commit aacb2aa6cf
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/fpdebug/fppascalparser.pas
View File

@ -2458,6 +2458,7 @@ function TFpPascalExpressionPartOperatorPlusMinus.DoGetResultValue: TFpDbgValue;
skPointer: Result := AddSubValueToPointer(AOtherVal, AIntVal);
skInteger: Result := TFpDbgValueConstNumber.Create(AIntVal.AsInteger + AOtherVal.AsInteger, True);
skCardinal: Result := TFpDbgValueConstNumber.Create(AIntVal.AsInteger + AOtherVal.AsCardinal, True);
skFloat: Result := TFpDbgValueConstFloat.Create(AIntVal.AsInteger + AOtherVal.AsFloat);
else SetError('Addition not supported');
end;
end;
@ -2468,6 +2469,17 @@ function TFpPascalExpressionPartOperatorPlusMinus.DoGetResultValue: TFpDbgValue;
skPointer: Result := AddSubValueToPointer(AOtherVal, ACardinalVal);
skInteger: Result := TFpDbgValueConstNumber.Create(ACardinalVal.AsCardinal + AOtherVal.AsInteger, True);
skCardinal: Result := TFpDbgValueConstNumber.Create(ACardinalVal.AsCardinal + AOtherVal.AsCardinal, False);
skFloat: Result := TFpDbgValueConstFloat.Create(ACardinalVal.AsCardinal + AOtherVal.AsFloat);
else SetError('Addition not supported');
end;
end;
function AddValueToFloat(AFloatVal, AOtherVal: TFpDbgValue): TFpDbgValue;
begin
Result := nil;
case AOtherVal.Kind of
skInteger: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat + AOtherVal.AsInteger);
skCardinal: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat + AOtherVal.AsCardinal);
skFloat: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat + AOtherVal.AsFloat);
else SetError('Addition not supported');
end;
end;
@ -2483,6 +2495,7 @@ function TFpPascalExpressionPartOperatorPlusMinus.DoGetResultValue: TFpDbgValue;
skPointer: Result := SubPointerFromValue(AOtherVal, AIntVal);
skInteger: Result := TFpDbgValueConstNumber.Create(AIntVal.AsInteger - AOtherVal.AsInteger, True);
skCardinal: Result := TFpDbgValueConstNumber.Create(AIntVal.AsInteger - AOtherVal.AsCardinal, True);
skFloat: Result := TFpDbgValueConstFloat.Create(AIntVal.AsInteger - AOtherVal.AsFloat);
else SetError('Subtraction not supported');
end;
end;
@ -2493,6 +2506,17 @@ function TFpPascalExpressionPartOperatorPlusMinus.DoGetResultValue: TFpDbgValue;
skPointer: Result := SubPointerFromValue(AOtherVal, ACardinalVal);
skInteger: Result := TFpDbgValueConstNumber.Create(ACardinalVal.AsCardinal - AOtherVal.AsInteger, True);
skCardinal: Result := TFpDbgValueConstNumber.Create(ACardinalVal.AsCardinal - AOtherVal.AsCardinal, False);
skFloat: Result := TFpDbgValueConstFloat.Create(ACardinalVal.AsCardinal - AOtherVal.AsFloat);
else SetError('Subtraction not supported');
end;
end;
function SubValueFromFloat(AFloatVal, AOtherVal: TFpDbgValue): TFpDbgValue;
begin
Result := nil;
case AOtherVal.Kind of
skInteger: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat - AOtherVal.AsInteger);
skCardinal: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat - AOtherVal.AsCardinal);
skFloat: Result := TFpDbgValueConstFloat.Create(AFloatVal.AsFloat - AOtherVal.AsFloat);
else SetError('Subtraction not supported');
end;
end;
@ -2515,6 +2539,7 @@ begin
skPointer: Result := AddSubValueToPointer(tmp1, tmp2);
skInteger: Result := AddValueToInt(tmp1, tmp2);
skCardinal: Result := AddValueToCardinal(tmp1, tmp2);
skFloat: Result := AddValueToFloat(tmp1, tmp2);
end;
end
else begin
@ -2522,6 +2547,7 @@ begin
skPointer: Result := AddSubValueToPointer(tmp1, tmp2, True);
skInteger: Result := SubValueFromInt(tmp1, tmp2);
skCardinal: Result := SubValueFromCardinal(tmp1, tmp2);
skFloat: Result := SubValueFromFloat(tmp1, tmp2);
end;
end;