Skip to content

Make Delphi Happy, about those conditionals #86

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
TommiPrami wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Make Delphi Happy, about those conditionals #86

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
52 changes: 26 additions & 26 deletions src/FLRE.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3699,9 +3699,9 @@ type TXMMValue=record
end{$ifndef fpc}{$if CompilerVersion>=28.0}align 16{$ifend}{$endif};

function PtrPosCharSetOf2Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -3807,10 +3807,10 @@ function PtrPosCharSetOf2(const SearchChar0,SearchChar1:TFLRERawByteChar;const T
end;

function PtrPosCharSetOf3Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -3942,11 +3942,11 @@ function PtrPosCharSetOf3(const SearchChar0,SearchChar1,SearchChar2:TFLRERawByte
end;

function PtrPosCharSetOf4Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4095,12 +4095,12 @@ function PtrPosCharSetOf4(const SearchChar0,SearchChar1,SearchChar2,SearchChar3:
end;

function PtrPosCharSetOf5Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4236,13 +4236,13 @@ function PtrPosCharSetOf5(const SearchChar0,SearchChar1,SearchChar2,SearchChar3,
end;

function PtrPosCharSetOf6Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
XMM5Constant:TXMMValue=(Lo:TFLREQWord($0505050505050505);Hi:TFLREQWord($0505050505050505));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4389,14 +4389,14 @@ function PtrPosCharSetOf6(const SearchChar0,SearchChar1,SearchChar2,SearchChar3,
end;

function PtrPosCharSetOf7Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
XMM5Constant:TXMMValue=(Lo:TFLREQWord($0505050505050505);Hi:TFLREQWord($0505050505050505));
XMM6Constant:TXMMValue=(Lo:TFLREQWord($0606060606060606);Hi:TFLREQWord($0606060606060606));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4554,15 +4554,15 @@ function PtrPosCharSetOf7(const SearchChar0,SearchChar1,SearchChar2,SearchChar3,
end;

function PtrPosCharSetOf8Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
XMM5Constant:TXMMValue=(Lo:TFLREQWord($0505050505050505);Hi:TFLREQWord($0505050505050505));
XMM6Constant:TXMMValue=(Lo:TFLREQWord($0606060606060606);Hi:TFLREQWord($0606060606060606));
XMM7Constant:TXMMValue=(Lo:TFLREQWord($0707070707070707);Hi:TFLREQWord($0707070707070707));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4731,9 +4731,9 @@ function PtrPosCharSetOf8(const SearchChar0,SearchChar1,SearchChar2,SearchChar3,
end;

function PtrPosCharPairSearch(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -4858,11 +4858,11 @@ function PtrPosCharPair(const SearchChar0,SearchChar1:TFLRERawByteChar;const Tex
end;

function PtrPosCharSetOf2Of2Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -5029,13 +5029,13 @@ function PtrPosCharSetOf2Of2(const SearchChar0,SearchChar1:TFLRERawByteChar;cons
end;

function PtrPosCharSetOf2Of3Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
XMM5Constant:TXMMValue=(Lo:TFLREQWord($0505050505050505);Hi:TFLREQWord($0505050505050505));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -5190,15 +5190,15 @@ function PtrPosCharSetOf2Of3(const SearchChar0,SearchChar1:TFLRERawByteChar;cons
end;

function PtrPosCharSetOf2Of4Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM4Constant:TXMMValue=(Lo:TFLREQWord($0404040404040404);Hi:TFLREQWord($0404040404040404));
XMM5Constant:TXMMValue=(Lo:TFLREQWord($0505050505050505);Hi:TFLREQWord($0505050505050505));
XMM6Constant:TXMMValue=(Lo:TFLREQWord($0606060606060606);Hi:TFLREQWord($0606060606060606));
XMM7Constant:TXMMValue=(Lo:TFLREQWord($0707070707070707);Hi:TFLREQWord($0707070707070707));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -5373,11 +5373,11 @@ function PtrPosCharSetOf2Of4(const SearchChar0,SearchChar1:TFLRERawByteChar;cons
end;

function PtrPosCharRangeSearch(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM126Constant:TXMMValue=(Lo:TFLREQWord($7e7e7e7e7e7e7e7e);Hi:TFLREQWord($7e7e7e7e7e7e7e7e));
XMM127Constant:TXMMValue=(Lo:TFLREQWord($7f7f7f7f7f7f7f7f);Hi:TFLREQWord($7f7f7f7f7f7f7f7f));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down Expand Up @@ -5490,13 +5490,13 @@ function PtrPosCharRange(const SearchFromChar,SearchToChar:TFLRERawByteChar;cons
end;

function PtrPosCharRangeOf2Search(const p:pointer;const v:TFLREQWord;const pEnd:pointer):TFLREPtrInt; assembler; register;
{$if defined(fpc) and (fpc_version>=3)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$push}{$codealign localmin=16}{$codealign varmin=16}{$ifend}
const XMM1Constant:TXMMValue=(Lo:TFLREQWord($0101010101010101);Hi:TFLREQWord($0101010101010101));
XMM2Constant:TXMMValue=(Lo:TFLREQWord($0202020202020202);Hi:TFLREQWord($0202020202020202));
XMM3Constant:TXMMValue=(Lo:TFLREQWord($0303030303030303);Hi:TFLREQWord($0303030303030303));
XMM126Constant:TXMMValue=(Lo:TFLREQWord($7e7e7e7e7e7e7e7e);Hi:TFLREQWord($7e7e7e7e7e7e7e7e));
XMM127Constant:TXMMValue=(Lo:TFLREQWord($7f7f7f7f7f7f7f7f);Hi:TFLREQWord($7f7f7f7f7f7f7f7f));
{$if defined(fpc) and (fpc_version>=3)}{$pop}{$ifend}
{$if defined(fpc) and (fpc_version>=3.0)}{$pop}{$ifend}
asm
{$ifdef Windows}
// Win64 ABI to System-V ABI wrapper
Expand Down