Startsida Utforska Hjälp
Logga in
pascal
/
fpc
spegling av https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Filer Ärenden 0 Wiki
Träd: c038e4c3f2
Grenar Taggar
fpc
/
tests
/
webtbf
/
tw35753.pp

tw35753.pp 211 B
Historik Rå

123456789101112 
  1. { %fail }
    2. 

  2. { %OPT=-vw -Sew }
    3. 

  3. 

  4. type
    5. 

  5.       TRegister = (
    6. 

  6.         TRegisterLowEnum := Low(longint),
    7. 

  7.         TRegisterHighEnum := High(longint)
    8. 

  8.       );
    9. 

  9. const
    10. 

  10.        NR_INVALID    = tregister($fffffffff);
    11. 

  11. begin
    12. 

  12. end.
    13.