Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: a8a89995bd
Branches Tags
freepascal.comp...
/
tests
/
sparc
/
system.pas

system.pas 191 B
History Raw

123456789101112 
  1. UNIT {SPARC}System;
    2. 

  2. INTERFACE
    3. 

  3. CONST
    4. 

  4.   MaxInt=1 SHL 16 - 1;
    5. 

  5. 	MaxCardinal=1 SHL 32 - 1;
    6. 

  6. TYPE
    7. 

  7.   Integer=-MaxInt-1..MaxInt;
    8. 

  8. 	Cardinal=0..MaxCardinal;
    9. 

  9. VAR
    10. 

  10.   Input,Output:Text;
    11. 

  11. IMPLEMENTATION
    12. 

  12. END.
    13.