components/codetools/linkscanner.pas

3398 var ValStart: integer;
3403   ValStart:=SrcPos;
3406   if CompareUpToken('ON',Src,ValStart,SrcPos) then
3408   else if CompareUpToken('OFF',Src,ValStart,SrcPos) then
3410   else if CompareUpToken('PRELOAD',Src,ValStart,SrcPos)
3421         [copy(Src,ValStart,SrcPos-ValStart),FDirectiveName]);
3428 var ValStart: integer;
3433   ValStart:=SrcPos;
3436   if CompareUpToken('ON',Src,ValStart,SrcPos) then
3438   else if CompareUpToken('OFF',Src,ValStart,SrcPos) then
3442         [copy(Src,ValStart,SrcPos-ValStart),FDirectiveName]);
3449   ValStart: LongInt;
3454   ValStart:=SrcPos;
3457   if CompareUpToken('ON',Src,ValStart,SrcPos) then
3459   else if CompareUpToken('OFF',Src,ValStart,SrcPos) then
3463         [copy(Src,ValStart,SrcPos-ValStart),FDirectiveName]);
3469 var ValStart: integer;
3476   ValStart:=SrcPos;
3483   if CompareUpToken('DEFAULT',Src,ValStart,SrcPos) then begin
3493       if CompareUpToken(CompilerModeNames[AMode],Src,ValStart,SrcPos) then
3500       RaiseExceptionFmt(20170422130122,ctsInvalidMode,[copy(Src,ValStart,SrcPos-ValStart)]);
3510   p, ValStart: PChar;
3519   ValStart:=p;
3523     if CompareIdentifiers(@CompilerModeSwitchNames[ModeSwitch][1],ValStart)=0
3562   RaiseExceptionFmt(20170422130125,ctsInvalidModeSwitch,[GetIdentifier(ValStart)]);
3568   ValStart: integer;
3573   ValStart:=SrcPos;
3576   if CompareUpToken('ON',Src,ValStart,SrcPos) then begin