paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 64bit compilation

Browse Source 
git-svn-id: trunk@9771 -
This commit is contained in:
mattias 2006-08-30 08:24:17 +00:00
parent d05adb23c1
commit a8acc7c8ca
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -426,7 +426,7 @@ type
IdentifierTool: TFindDeclarationTool; IdentifierTool: TFindDeclarationTool;
FoundProc: PFoundProc; FoundProc: PFoundProc;
end; end;
{ TFindDeclarationParams } { TFindDeclarationParams }
TFindDeclarationParams = class(TObject) TFindDeclarationParams = class(TObject)

4
components/synedit/synregexpr.pas
View File

@ -927,8 +927,8 @@ function RegExprSubExpressions (const ARegExpr : string;
// check if entire r.e. added // check if entire r.e. added
if (ASubExprs.Count = 0) if (ASubExprs.Count = 0)
or ((integer (ASubExprs.Objects [0]) and $FFFF) <> 1) or ((PtrInt (ASubExprs.Objects [0]) and $FFFF) <> 1)
or (((integer (ASubExprs.Objects [0]) ShR 16) and $FFFF) <> Len) or (((PtrInt (ASubExprs.Objects [0]) ShR 16) and $FFFF) <> Len)
// whole r.e. wasn't added because it isn't bracketed // whole r.e. wasn't added because it isn't bracketed
// well, we add it now: // well, we add it now:
then ASubExprs.InsertObject (0, ARegExpr, TObject ((Len ShL 16) or 1)); then ASubExprs.InsertObject (0, ARegExpr, TObject ((Len ShL 16) or 1));