← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to components/synedit/syneditmarkupifdef.pp

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-04-25 12:57:26 UTC
  • mfrom: (1.1.12)
  • Revision ID: package-import@ubuntu.com-20140425125726-6zkdcnnbbleuuvwj
Tags: 1.2+dfsg-1
[ Abou Al Montacir ]
* Packaged QT4 based IDE and LCL units.

[ Paul Gevers ]
* New upstream release
* Drop obsolete patches + refresh spell_errors.diff
* Update dependencies and description for QT4 changes
* Improve deduplication in d/rules (adds lcl-qt4 -> lcl-gtk2 -> lcl-nogui)

Show diffs side-by-side

added added

removed removed

Lines of Context:
components/synedit/syneditmarkupifdef.pp
522
522
  SynEdit;
523
523
var
524
524
  TheDict: TSynRefCountedDict = nil;
525
 
XXXCurTree: TSynMarkupHighIfDefLinesTree = nil;
 
525
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
526
  DebugCurTreeForAssert: TSynMarkupHighIfDefLinesTree = nil;
 
527
  {$ENDIF}
526
528
 
527
529
type
528
530
 
2105
2107
 
2106
2108
begin
2107
2109
  // Line nodes vill be invalidated in DoHighlightChanged
2108
 
XXXCurTree := self; try
 
2110
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
2111
  DebugCurTreeForAssert := self; try
 
2112
  {$ENDIF}
2109
2113
 
2110
2114
  IncChangeStep;
2111
2115
 
2311
2315
 
2312
2316
  end;
2313
2317
 
2314
 
finally XXXCurTree := nil; end;
 
2318
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
2319
  finally DebugCurTreeForAssert := nil; end;
 
2320
  {$ENDIF}
2315
2321
end;
2316
2322
 
2317
2323
procedure TSynMarkupHighIfDefLinesTree.DoHighlightChanged(Sender: TSynEditStrings; AIndex,
2850
2856
  i, j, NodeValidTo: Integer;
2851
2857
  SkipPeers: Boolean;
2852
2858
begin
2853
 
XXXCurTree := self; try
 
2859
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
2860
  DebugCurTreeForAssert := self; try
 
2861
  {$ENDIF}
2854
2862
  TmpNode.FTree := Self;
2855
2863
 
2856
2864
  NotInCodeLowLevel := MaxInt;
3012
3020
    end;
3013
3021
  end;
3014
3022
 
3015
 
finally XXXCurTree := nil; end;
 
3023
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
3024
  finally DebugCurTreeForAssert := nil; end;
 
3025
  {$ENDIF}
3016
3026
end;
3017
3027
 
3018
3028
procedure TSynMarkupHighIfDefLinesTree.SetNodeState(ALinePos, AstartPos: Integer;
3547
3557
  FLastValidLastLine := LastLine;
3548
3558
  FLastValidTreeStep := FIfDefTree.ChangeStep;
3549
3559
 
3550
 
try
 
3560
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
3561
  try
 
3562
  DebugCurTreeForAssert := FIfDefTree; try
 
3563
  {$ENDIF}
3551
3564
//debugln(['TSynEditMarkupIfDef.DoTreeUnlocked ', TopLine, ' - ', LastLine]);
3552
 
XXXCurTree := FIfDefTree; try
3553
3565
 
3554
3566
  ScanDisRange    := MarkupInfoDisabled.IsEnabled;
3555
3567
  ScanEnaRange    := MarkupInfoEnabled.IsEnabled;
3732
3744
  FMarkupNodes.EndMatchScan(LastLine);
3733
3745
  EndMatchScan(LastLine);
3734
3746
 
3735
 
finally XXXCurTree := nil; end;
3736
 
except FIfDefTree.DebugPrint(true); end;
 
3747
  {$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
 
3748
  finally DebugCurTreeForAssert := nil; end;
 
3749
  except FIfDefTree.DebugPrint(true); end;
 
3750
  {$ENDIF}
3737
3751
end;
3738
3752
 
3739
3753
procedure TSynEditMarkupIfDef.DoTreeChanged(Sender: TObject);
4065
4079
end;
4066
4080
 
4067
4081
 
 
4082
{$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
4068
4083
var OldAssert: TAssertErrorProc = @SysAssert;
4069
4084
Procedure MyAssert(const Msg,FName:ShortString;LineNo:Longint;ErrorAddr:Pointer);
4070
4085
var
4071
4086
  t: TSynMarkupHighIfDefLinesTree;
4072
4087
begin
4073
4088
debugln('################# '+Msg);
4074
 
if XXXCurTree <> nil then begin
4075
 
  t := XXXCurTree;
4076
 
  XXXCurTree:= nil;
 
4089
if DebugCurTreeForAssert <> nil then begin
 
4090
  t := DebugCurTreeForAssert;
 
4091
  DebugCurTreeForAssert:= nil;
4077
4092
  t.DebugPrint(true);
4078
4093
end;
4079
4094
  if OldAssert <> nil
4080
4095
  then OldAssert(Msg, FName, LineNo, ErrorAddr)
4081
4096
  else halt(0);
4082
4097
end;
 
4098
{$ENDIF}
4083
4099
 
 
4100
{$IFDEF WITH_SYN_DEBUG_MARKUP_IFDEF}
4084
4101
initialization
4085
4102
  OldAssert := AssertErrorProc;
4086
4103
  AssertErrorProc := @MyAssert;
 
4104
{$ENDIF}
4087
4105
 
4088
4106
end.
4089
4107