I like this feature request

-
I like this feature request

{$BEGINOPT R+,Q-}
...
{$ENDOPT}

https://quality.embarcadero.com/browse/RSP-14045
https://quality.embarcadero.com/browse/RSP-14045

Comments

  1. Lars FosdalMarch 28, 2016 at 11:26 PM

    I assume you want the options to return to their previous settings at ENDOPT ?

    That would indeed be nice.

    ReplyDelete
  2. Paul TOTHMarch 28, 2016 at 11:54 PM

    yes, it's to avoid such things

    {$IFOPT R+}
    {$DEFINE R_PLUS}
    {$R-}
    {$ENDIF}
    ...

    {$IFDEF R_PLUS}
    {$R+}
    {$UNDEF R_PLUS}
    {$ENDIF}

    ReplyDelete
  3. Stefan GlienkeMarch 29, 2016 at 1:40 AM

    Make an inc file with this content:

    {$IFNDEF R_PLUS}
      {$IFOPT R+}
        {$DEFINE R_PLUS}
        {$R-}
      {$ENDIF}
    {$ELSE}
      {$R+}
      {$UNDEF R_PLUS}
    {$ENDIF}

    And then just include it where to turn on and off.

    ReplyDelete
  4. Paul TOTHMarch 29, 2016 at 1:42 AM

    Stefan Glienke And you can create a collection of include files TURN_R_OFF.inc, TURN_R_ON.inc, TURN_Q_ON.inc etc :)

    ReplyDelete
  5. Maciej IzakMarch 29, 2016 at 1:48 AM

    IMO better approach is {$PUSH}/{$POP}:
    {$PUSH}
    {$R+}{$Q-}
    ...
    {$POP}

    ReplyDelete
  6. Paul TOTHMarch 29, 2016 at 1:54 AM

    Maciej Izak yes...but what's included in PUSH/POP, everything ? why not...or perhaps

    {$PUSH R,Q,ZEROBASEDSTRINGS}
    {$IFDEF WIN64}
    {$R-}
    {$ENDIF}
    ...
    {$POP}

    ReplyDelete
  7. Lars FosdalMarch 29, 2016 at 1:55 AM

    Push/Pop would allow you to use the longform of the switches.

    ReplyDelete
  8. Paul TOTHMarch 29, 2016 at 1:57 AM

    Lars Fosdal yes, and you can play with flags like in my sample above (WIN64)...I've added a comment about that.

    ReplyDelete
  9. Maciej IzakMarch 29, 2016 at 1:59 AM

    ...additionally {$PUSH}/{$POP} is compatible with FPC :)

    ReplyDelete
  10. Paul TOTHMarch 29, 2016 at 2:00 AM

    Maciej Izak haha :) didn't know 
    http://www.freepascal.org/docs-html/prog/progsu63.html#x70-690001.2.63

    ReplyDelete

Post a Comment