Browse Source

rebuilt releases

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8149 8c9fc860-2736-0410-a75d-ab315db34111
felixf 7 years ago
parent
commit
1e6fedb684
100 changed files with 81 additions and 73 deletions
  1. BIN
      Linux32/bin/AVI.GofU
  2. 2 2
      Linux32/bin/AVI.SymU
  3. BIN
      Linux32/bin/Codecs.GofU
  4. 2 2
      Linux32/bin/Codecs.SymU
  5. 3 3
      Linux32/bin/Commands.SymU
  6. BIN
      Linux32/bin/Compiler.GofU
  7. BIN
      Linux32/bin/CompilerInterface.GofU
  8. BIN
      Linux32/bin/Diagnostics.GofU
  9. 15 14
      Linux32/bin/Diagnostics.SymU
  10. BIN
      Linux32/bin/Files.GofU
  11. 3 3
      Linux32/bin/Files.SymU
  12. BIN
      Linux32/bin/FoxA2Interface.GofU
  13. BIN
      Linux32/bin/FoxAMD64Assembler.GofU
  14. BIN
      Linux32/bin/FoxAMDBackend.GofU
  15. BIN
      Linux32/bin/FoxARMBackend.GofU
  16. BIN
      Linux32/bin/FoxActiveCells.GofU
  17. BIN
      Linux32/bin/FoxArrayBase.GofU
  18. BIN
      Linux32/bin/FoxBackend.GofU
  19. BIN
      Linux32/bin/FoxBasic.GofU
  20. 2 2
      Linux32/bin/FoxBasic.SymU
  21. BIN
      Linux32/bin/FoxCSharpParser.GofU
  22. BIN
      Linux32/bin/FoxIntermediateBackend.GofU
  23. BIN
      Linux32/bin/FoxIntermediateCode.GofU
  24. 1 0
      Linux32/bin/FoxIntermediateCode.SymU
  25. BIN
      Linux32/bin/FoxInterpreterBackend.GofU
  26. BIN
      Linux32/bin/FoxParser.GofU
  27. BIN
      Linux32/bin/FoxSemanticChecker.GofU
  28. BIN
      Linux32/bin/FoxTRMBackend.GofU
  29. BIN
      Linux32/bin/GenericLinker.GofU
  30. BIN
      Linux32/bin/MPEGUtilities.GofU
  31. 2 2
      Linux32/bin/MPEGUtilities.SymU
  32. BIN
      Linux32/bin/Machine.GofU
  33. BIN
      Linux32/bin/ModuleParser.GofU
  34. BIN
      Linux32/bin/PCAAMD64.GofU
  35. BIN
      Linux32/bin/PCARMRegisters.GofU
  36. BIN
      Linux32/bin/PCM.GofU
  37. BIN
      Linux32/bin/PCO.GofU
  38. BIN
      Linux32/bin/PCOARM.GofU
  39. BIN
      Linux32/bin/PCOF.GofU
  40. BIN
      Linux32/bin/PCOFPE.GofU
  41. 4 4
      Linux32/bin/PCOFPE.SymU
  42. BIN
      Linux32/bin/PCOM.GofU
  43. BIN
      Linux32/bin/PCP.GofU
  44. BIN
      Linux32/bin/PET.GofU
  45. BIN
      Linux32/bin/PETXMLTree.GofU
  46. BIN
      Linux32/bin/Release.GofU
  47. 8 6
      Linux32/bin/Streams.SymU
  48. BIN
      Linux32/bin/SyntaxHighlighter.GofU
  49. BIN
      Linux32/bin/TFPET.GofU
  50. BIN
      Linux32/bin/TestSuite.GofU
  51. BIN
      Linux32/bin/TextConverter.GofU
  52. BIN
      Linux32/bin/TextUtilities.GofU
  53. 1 1
      Linux32/bin/TextUtilities.SymU
  54. BIN
      Linux32/bin/WMDiagnostics.GofU
  55. BIN
      Linux32/bin/WhitespaceRemover.GofU
  56. BIN
      Linux32/oberon
  57. BIN
      Linux64/bin/Codecs.GofUu
  58. 2 2
      Linux64/bin/Codecs.SymUu
  59. 3 3
      Linux64/bin/Commands.SymUu
  60. BIN
      Linux64/bin/Compiler.GofUu
  61. BIN
      Linux64/bin/CompilerInterface.GofUu
  62. BIN
      Linux64/bin/Diagnostics.GofUu
  63. 15 14
      Linux64/bin/Diagnostics.SymUu
  64. BIN
      Linux64/bin/Files.GofUu
  65. 3 3
      Linux64/bin/Files.SymUu
  66. BIN
      Linux64/bin/FoxA2Interface.GofUu
  67. BIN
      Linux64/bin/FoxAMD64Assembler.GofUu
  68. BIN
      Linux64/bin/FoxAMDBackend.GofUu
  69. BIN
      Linux64/bin/FoxARMBackend.GofUu
  70. BIN
      Linux64/bin/FoxActiveCells.GofUu
  71. BIN
      Linux64/bin/FoxArrayBase.GofUu
  72. BIN
      Linux64/bin/FoxBackend.GofUu
  73. BIN
      Linux64/bin/FoxBasic.GofUu
  74. 2 2
      Linux64/bin/FoxBasic.SymUu
  75. BIN
      Linux64/bin/FoxCSharpParser.GofUu
  76. BIN
      Linux64/bin/FoxIntermediateBackend.GofUu
  77. BIN
      Linux64/bin/FoxIntermediateCode.GofUu
  78. 1 0
      Linux64/bin/FoxIntermediateCode.SymUu
  79. BIN
      Linux64/bin/FoxInterpreterBackend.GofUu
  80. BIN
      Linux64/bin/FoxParser.GofUu
  81. BIN
      Linux64/bin/FoxSemanticChecker.GofUu
  82. BIN
      Linux64/bin/FoxTRMBackend.GofUu
  83. BIN
      Linux64/bin/GenericLinker.GofUu
  84. BIN
      Linux64/bin/Machine.GofUu
  85. BIN
      Linux64/bin/ModuleParser.GofUu
  86. BIN
      Linux64/bin/PCAAMD64.GofUu
  87. BIN
      Linux64/bin/PCARMRegisters.GofUu
  88. BIN
      Linux64/bin/PCM.GofUu
  89. BIN
      Linux64/bin/PCO.GofUu
  90. BIN
      Linux64/bin/PCOARM.GofUu
  91. BIN
      Linux64/bin/PCOF.GofUu
  92. BIN
      Linux64/bin/PCOFPE.GofUu
  93. 4 4
      Linux64/bin/PCOFPE.SymUu
  94. BIN
      Linux64/bin/PCOM.GofUu
  95. BIN
      Linux64/bin/PCP.GofUu
  96. BIN
      Linux64/bin/PET.GofUu
  97. BIN
      Linux64/bin/PETXMLTree.GofUu
  98. BIN
      Linux64/bin/Release.GofUu
  99. 8 6
      Linux64/bin/Streams.SymUu
  100. BIN
      Linux64/bin/SyntaxHighlighter.GofUu

BIN
Linux32/bin/AVI.GofU


+ 2 - 2
Linux32/bin/AVI.SymU

@@ -93,10 +93,10 @@ TYPE
 		PROCEDURE ^ CompareCharArrays(ar1, ar2: ARRAY OF CHAR; len: LONGINT): BOOLEAN; 
 		PROCEDURE ^ ReadNextChunk(VAR buf: ARRAY OF CHAR); 
 		PROCEDURE ^ Resynch*(VAR buf: ARRAY OF CHAR): BOOLEAN; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 		PROCEDURE ^ SetAVIPos*(pos: LONGINT; VAR retPos: LONGINT); 
 		PROCEDURE ^ Bytes*(VAR x: ARRAY OF CHAR; ofs, size: LONGINT; VAR len: LONGINT); 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 	END AVIStream; 
 
 	AVIDemux* = OBJECT (AOC.AVDemultiplexer)

BIN
Linux32/bin/Codecs.GofU


+ 2 - 2
Linux32/bin/Codecs.SymU

@@ -42,7 +42,7 @@ TYPE
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^  & InitFileReader*(f: Files.File; pos: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 	END FileInputStream; 
 
 	AVDemultiplexer* = OBJECT 
@@ -64,7 +64,7 @@ TYPE
 
 		PROCEDURE ^  & Open*(demultiplexer: AVDemultiplexer; streamNr: LONGINT); 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^ SetPosX*(seekType: LONGINT; pos: LONGINT; VAR itemSize: LONGINT; VAR res: WORD); 
 	END DemuxStream; 
 

+ 3 - 3
Linux32/bin/Commands.SymU

@@ -28,14 +28,14 @@ TYPE
 	VAR 
 		in: Streams.Reader; 
 		tracer: Streams.Writer; 
-		pos0: LONGINT; 
+		pos0: Streams.Position; 
 		tracedPos: LONGINT; 
 
 		PROCEDURE ^  & Init(in: Streams.Reader; tracer: Streams.Writer); 
 		PROCEDURE ^ Receiver(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 	END ReaderMonitor; 
 
 	CommandProc = PROCEDURE ; 

BIN
Linux32/bin/Compiler.GofU


BIN
Linux32/bin/CompilerInterface.GofU


BIN
Linux32/bin/Diagnostics.GofU


+ 15 - 14
Linux32/bin/Diagnostics.SymU

@@ -1,7 +1,7 @@
 MODULE Diagnostics;
 	IMPORT Streams;
 CONST 
-	Invalid* = MIN(LONGINT); 
+	Invalid* =  -1; 
 	TypeInformation* = 0; 
 	TypeWarning* = 1; 
 	TypeError* = 2; 
@@ -10,15 +10,16 @@ CONST
 TYPE 
 	Diagnostics* = OBJECT 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 	END Diagnostics; 
 
 	Entry* = POINTER TO RECORD 
 		type*: WORD; 
 		source*: ARRAY 128 OF CHAR; 
-		position*, errorCode*: LONGINT; 
+		position*: Streams.Position; 
+		errorCode*: WORD; 
 		message*: ARRAY 256 OF CHAR; 
 		next*: Entry; 
 	END; 
@@ -35,15 +36,15 @@ TYPE
 		nofInformations-: SIZE; 
 		nofMessages-: SIZE; 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ToStream*(w: Streams.Writer; mask: SET); 
 		PROCEDURE ^  & Reset*; 
 		PROCEDURE ^ ForAll*(proc: EnumProc); 
 		PROCEDURE ^ GetEntries*(): EntryArray; 
-		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
-		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
+		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
+		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
 	END DiagnosticsList; 
 
 	StreamDiagnostics* = OBJECT (Diagnostics)
@@ -51,11 +52,11 @@ TYPE
 		writer: Streams.Writer; 
 
 		PROCEDURE ^  & Init*(w: Streams.Writer); 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 	END StreamDiagnostics; 
 
-	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; type: WORD; CONST message: ARRAY OF CHAR); 
+	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; type: WORD; CONST message: ARRAY OF CHAR); 
 BEGIN
 END Diagnostics.

BIN
Linux32/bin/Files.GofU


+ 3 - 3
Linux32/bin/Files.SymU

@@ -51,7 +51,7 @@ TYPE
 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^  & InitFileReader*(file: File; pos: LONGINT); 
 	END Reader; 
 
@@ -62,8 +62,8 @@ TYPE
 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 		PROCEDURE ^  & InitFileWriter*(file: File; pos: LONGINT); 
 	END Writer; 
 

BIN
Linux32/bin/FoxA2Interface.GofU


BIN
Linux32/bin/FoxAMD64Assembler.GofU


BIN
Linux32/bin/FoxAMDBackend.GofU


BIN
Linux32/bin/FoxARMBackend.GofU


BIN
Linux32/bin/FoxActiveCells.GofU


BIN
Linux32/bin/FoxArrayBase.GofU


BIN
Linux32/bin/FoxBackend.GofU


BIN
Linux32/bin/FoxBasic.GofU


+ 2 - 2
Linux32/bin/FoxBasic.SymU

@@ -376,9 +376,9 @@ TYPE
 		PROCEDURE ^  & InitW(w: Streams.Writer); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^ Update*; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 		PROCEDURE ^ Indent; 
 		PROCEDURE ^ Char*(x: CHAR); 
 		PROCEDURE ^ Bytes*(CONST x: ARRAY OF CHAR; ofs, len: LONGINT); 

BIN
Linux32/bin/FoxCSharpParser.GofU


BIN
Linux32/bin/FoxIntermediateBackend.GofU


BIN
Linux32/bin/FoxIntermediateCode.GofU


+ 1 - 0
Linux32/bin/FoxIntermediateCode.SymU

@@ -227,6 +227,7 @@ VAR
 	PROCEDURE ^ String*(string: SyntaxTree.SourceCode): Operand; 
 	PROCEDURE ^ InitType*(VAR type: Type; form: SHORTINT; sizeInBits: INTEGER); 
 	PROCEDURE ^ ToVectorType*(VAR type: Type; length: LONGINT); 
+	PROCEDURE ^ IsVectorRegister*(CONST op: Operand): BOOLEAN; 
 	PROCEDURE ^ InitRegisterClass*(VAR registerClass: RegisterClass; class: SHORTINT; number: LONGINT); 
 	PROCEDURE ^ InitParameterRegisterClass*(VAR registerClass: RegisterClass; number: LONGINT); 
 	PROCEDURE ^ NewType*(form: SHORTINT; sizeInBits: INTEGER): Type; 

BIN
Linux32/bin/FoxInterpreterBackend.GofU


BIN
Linux32/bin/FoxParser.GofU


BIN
Linux32/bin/FoxSemanticChecker.GofU


BIN
Linux32/bin/FoxTRMBackend.GofU


BIN
Linux32/bin/GenericLinker.GofU


BIN
Linux32/bin/MPEGUtilities.GofU


+ 2 - 2
Linux32/bin/MPEGUtilities.SymU

@@ -92,8 +92,8 @@ TYPE
 		PROCEDURE ^ ShowBuffer*; 
 		PROCEDURE ^ GetBits*(n: LONGINT): LONGINT; 
 		PROCEDURE ^ SkipBits*(n: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^ HasMoreData*(): BOOLEAN; 
 	END BitStream; 
 

BIN
Linux32/bin/Machine.GofU


BIN
Linux32/bin/ModuleParser.GofU


BIN
Linux32/bin/PCAAMD64.GofU


BIN
Linux32/bin/PCARMRegisters.GofU


BIN
Linux32/bin/PCM.GofU


BIN
Linux32/bin/PCO.GofU


BIN
Linux32/bin/PCOARM.GofU


BIN
Linux32/bin/PCOF.GofU


BIN
Linux32/bin/PCOFPE.GofU


+ 4 - 4
Linux32/bin/PCOFPE.SymU

@@ -109,8 +109,8 @@ TYPE
 		org, ofs: LONGINT; 
 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
-		PROCEDURE ^ SetPos*(ofs: LONGINT); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
+		PROCEDURE ^ SetPos*(ofs: Streams.Position); 
 		PROCEDURE ^  & Open*(sect: Section; ofs: LONGINT); 
 	END SectionReader; 
 
@@ -120,8 +120,8 @@ TYPE
 		org, ofs: LONGINT; 
 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
-		PROCEDURE ^ Pos*(): LONGINT; 
-		PROCEDURE ^ SetPos*(ofs: LONGINT); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
+		PROCEDURE ^ SetPos*(ofs: Streams.Position); 
 		PROCEDURE ^  & Open*(sect: Section; ofs: LONGINT); 
 	END SectionWriter; 
 

BIN
Linux32/bin/PCOM.GofU


BIN
Linux32/bin/PCP.GofU


BIN
Linux32/bin/PET.GofU


BIN
Linux32/bin/PETXMLTree.GofU


BIN
Linux32/bin/Release.GofU


+ 8 - 6
Linux32/bin/Streams.SymU

@@ -15,6 +15,8 @@ CONST
 TYPE 
 	TSize* = LONGINT; 
 
+	Position* = LONGINT; 
+
 	Sender* = PROCEDURE {DELEGATE}(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 
 	Receiver* = PROCEDURE {DELEGATE}(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
@@ -37,9 +39,9 @@ TYPE
 		PROCEDURE ^  & InitWriter*(send: Sender; size: LONGINT); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Update*; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Position; 
 		PROCEDURE ^ Char*(x: CHAR); 
 		PROCEDURE ^ Bytes*(CONST x: ARRAY OF CHAR; ofs, len: LONGINT); 
 		PROCEDURE ^ RawSInt*(x: SHORTINT); 
@@ -75,7 +77,7 @@ TYPE
 		PROCEDURE ^  & InitStringWriter*(size: LONGINT); 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Update*; 
 		PROCEDURE ^ Get*(VAR s: ARRAY OF CHAR); 
 		PROCEDURE ^ GetRaw*(VAR s: ARRAY OF CHAR; VAR len: LONGINT); 
@@ -92,9 +94,9 @@ TYPE
 		PROCEDURE ^  & InitReader*(receive: Receiver; size: LONGINT); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Available*(): LONGINT; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Position; 
 		PROCEDURE ^ Char*(VAR x: CHAR); 
 		PROCEDURE ^ Get*(): CHAR; 
 		PROCEDURE ^ Peek*(): CHAR; 
@@ -135,7 +137,7 @@ TYPE
 
 		PROCEDURE ^  & InitStringReader*(size: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ Set*(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ SetRaw*(CONST s: ARRAY OF CHAR; ofs, len: LONGINT); 

BIN
Linux32/bin/SyntaxHighlighter.GofU


BIN
Linux32/bin/TFPET.GofU


BIN
Linux32/bin/TestSuite.GofU


BIN
Linux32/bin/TextConverter.GofU


BIN
Linux32/bin/TextUtilities.GofU


+ 1 - 1
Linux32/bin/TextUtilities.SymU

@@ -66,7 +66,7 @@ TYPE
 		PROCEDURE ^  & Init*(text: Texts.Text); 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 	END TextReader; 
 
 	LongintArray = POINTER TO ARRAY OF LONGINT; 

BIN
Linux32/bin/WMDiagnostics.GofU


BIN
Linux32/bin/WhitespaceRemover.GofU


BIN
Linux32/oberon


BIN
Linux64/bin/Codecs.GofUu


+ 2 - 2
Linux64/bin/Codecs.SymUu

@@ -42,7 +42,7 @@ TYPE
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^  & InitFileReader*(f: Files.File; pos: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 	END FileInputStream; 
 
 	AVDemultiplexer* = OBJECT 
@@ -64,7 +64,7 @@ TYPE
 
 		PROCEDURE ^  & Open*(demultiplexer: AVDemultiplexer; streamNr: LONGINT); 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^ SetPosX*(seekType: LONGINT; pos: LONGINT; VAR itemSize: LONGINT; VAR res: WORD); 
 	END DemuxStream; 
 

+ 3 - 3
Linux64/bin/Commands.SymUu

@@ -28,14 +28,14 @@ TYPE
 	VAR 
 		in: Streams.Reader; 
 		tracer: Streams.Writer; 
-		pos0: LONGINT; 
+		pos0: Streams.Position; 
 		tracedPos: LONGINT; 
 
 		PROCEDURE ^  & Init(in: Streams.Reader; tracer: Streams.Writer); 
 		PROCEDURE ^ Receiver(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 	END ReaderMonitor; 
 
 	CommandProc = PROCEDURE ; 

BIN
Linux64/bin/Compiler.GofUu


BIN
Linux64/bin/CompilerInterface.GofUu


BIN
Linux64/bin/Diagnostics.GofUu


+ 15 - 14
Linux64/bin/Diagnostics.SymUu

@@ -1,7 +1,7 @@
 MODULE Diagnostics;
 	IMPORT Streams;
 CONST 
-	Invalid* = MIN(LONGINT); 
+	Invalid* =  -1; 
 	TypeInformation* = 0; 
 	TypeWarning* = 1; 
 	TypeError* = 2; 
@@ -10,15 +10,16 @@ CONST
 TYPE 
 	Diagnostics* = OBJECT 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 	END Diagnostics; 
 
 	Entry* = POINTER TO RECORD 
 		type*: WORD; 
 		source*: ARRAY 128 OF CHAR; 
-		position*, errorCode*: LONGINT; 
+		position*: Streams.Position; 
+		errorCode*: WORD; 
 		message*: ARRAY 256 OF CHAR; 
 		next*: Entry; 
 	END; 
@@ -35,15 +36,15 @@ TYPE
 		nofInformations-: SIZE; 
 		nofMessages-: SIZE; 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ToStream*(w: Streams.Writer; mask: SET); 
 		PROCEDURE ^  & Reset*; 
 		PROCEDURE ^ ForAll*(proc: EnumProc); 
 		PROCEDURE ^ GetEntries*(): EntryArray; 
-		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
-		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
+		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
+		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
 	END DiagnosticsList; 
 
 	StreamDiagnostics* = OBJECT (Diagnostics)
@@ -51,11 +52,11 @@ TYPE
 		writer: Streams.Writer; 
 
 		PROCEDURE ^  & Init*(w: Streams.Writer); 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
 	END StreamDiagnostics; 
 
-	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; type: WORD; CONST message: ARRAY OF CHAR); 
+	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; type: WORD; CONST message: ARRAY OF CHAR); 
 BEGIN
 END Diagnostics.

BIN
Linux64/bin/Files.GofUu


+ 3 - 3
Linux64/bin/Files.SymUu

@@ -51,7 +51,7 @@ TYPE
 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^  & InitFileReader*(file: File; pos: LONGINT); 
 	END Reader; 
 
@@ -62,8 +62,8 @@ TYPE
 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 		PROCEDURE ^  & InitFileWriter*(file: File; pos: LONGINT); 
 	END Writer; 
 

BIN
Linux64/bin/FoxA2Interface.GofUu


BIN
Linux64/bin/FoxAMD64Assembler.GofUu


BIN
Linux64/bin/FoxAMDBackend.GofUu


BIN
Linux64/bin/FoxARMBackend.GofUu


BIN
Linux64/bin/FoxActiveCells.GofUu


BIN
Linux64/bin/FoxArrayBase.GofUu


BIN
Linux64/bin/FoxBackend.GofUu


BIN
Linux64/bin/FoxBasic.GofUu


+ 2 - 2
Linux64/bin/FoxBasic.SymUu

@@ -376,9 +376,9 @@ TYPE
 		PROCEDURE ^  & InitW(w: Streams.Writer); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Streams.Position); 
 		PROCEDURE ^ Update*; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Streams.Position; 
 		PROCEDURE ^ Indent; 
 		PROCEDURE ^ Char*(x: CHAR); 
 		PROCEDURE ^ Bytes*(CONST x: ARRAY OF CHAR; ofs, len: LONGINT); 

BIN
Linux64/bin/FoxCSharpParser.GofUu


BIN
Linux64/bin/FoxIntermediateBackend.GofUu


BIN
Linux64/bin/FoxIntermediateCode.GofUu


+ 1 - 0
Linux64/bin/FoxIntermediateCode.SymUu

@@ -227,6 +227,7 @@ VAR
 	PROCEDURE ^ String*(string: SyntaxTree.SourceCode): Operand; 
 	PROCEDURE ^ InitType*(VAR type: Type; form: SHORTINT; sizeInBits: INTEGER); 
 	PROCEDURE ^ ToVectorType*(VAR type: Type; length: LONGINT); 
+	PROCEDURE ^ IsVectorRegister*(CONST op: Operand): BOOLEAN; 
 	PROCEDURE ^ InitRegisterClass*(VAR registerClass: RegisterClass; class: SHORTINT; number: LONGINT); 
 	PROCEDURE ^ InitParameterRegisterClass*(VAR registerClass: RegisterClass; number: LONGINT); 
 	PROCEDURE ^ NewType*(form: SHORTINT; sizeInBits: INTEGER): Type; 

BIN
Linux64/bin/FoxInterpreterBackend.GofUu


BIN
Linux64/bin/FoxParser.GofUu


BIN
Linux64/bin/FoxSemanticChecker.GofUu


BIN
Linux64/bin/FoxTRMBackend.GofUu


BIN
Linux64/bin/GenericLinker.GofUu


BIN
Linux64/bin/Machine.GofUu


BIN
Linux64/bin/ModuleParser.GofUu


BIN
Linux64/bin/PCAAMD64.GofUu


BIN
Linux64/bin/PCARMRegisters.GofUu


BIN
Linux64/bin/PCM.GofUu


BIN
Linux64/bin/PCO.GofUu


BIN
Linux64/bin/PCOARM.GofUu


BIN
Linux64/bin/PCOF.GofUu


BIN
Linux64/bin/PCOFPE.GofUu


+ 4 - 4
Linux64/bin/PCOFPE.SymUu

@@ -109,8 +109,8 @@ TYPE
 		org, ofs: LONGINT; 
 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
-		PROCEDURE ^ Pos*(): LONGINT; 
-		PROCEDURE ^ SetPos*(ofs: LONGINT); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
+		PROCEDURE ^ SetPos*(ofs: Streams.Position); 
 		PROCEDURE ^  & Open*(sect: Section; ofs: LONGINT); 
 	END SectionReader; 
 
@@ -120,8 +120,8 @@ TYPE
 		org, ofs: LONGINT; 
 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
-		PROCEDURE ^ Pos*(): LONGINT; 
-		PROCEDURE ^ SetPos*(ofs: LONGINT); 
+		PROCEDURE ^ Pos*(): Streams.Position; 
+		PROCEDURE ^ SetPos*(ofs: Streams.Position); 
 		PROCEDURE ^  & Open*(sect: Section; ofs: LONGINT); 
 	END SectionWriter; 
 

BIN
Linux64/bin/PCOM.GofUu


BIN
Linux64/bin/PCP.GofUu


BIN
Linux64/bin/PET.GofUu


BIN
Linux64/bin/PETXMLTree.GofUu


BIN
Linux64/bin/Release.GofUu


+ 8 - 6
Linux64/bin/Streams.SymUu

@@ -15,6 +15,8 @@ CONST
 TYPE 
 	TSize* = LONGINT; 
 
+	Position* = LONGINT; 
+
 	Sender* = PROCEDURE {DELEGATE}(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 
 	Receiver* = PROCEDURE {DELEGATE}(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
@@ -37,9 +39,9 @@ TYPE
 		PROCEDURE ^  & InitWriter*(send: Sender; size: LONGINT); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Update*; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Position; 
 		PROCEDURE ^ Char*(x: CHAR); 
 		PROCEDURE ^ Bytes*(CONST x: ARRAY OF CHAR; ofs, len: LONGINT); 
 		PROCEDURE ^ RawSInt*(x: SHORTINT); 
@@ -75,7 +77,7 @@ TYPE
 		PROCEDURE ^  & InitStringWriter*(size: LONGINT); 
 		PROCEDURE ^ Send(CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: WORD); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Update*; 
 		PROCEDURE ^ Get*(VAR s: ARRAY OF CHAR); 
 		PROCEDURE ^ GetRaw*(VAR s: ARRAY OF CHAR; VAR len: LONGINT); 
@@ -92,9 +94,9 @@ TYPE
 		PROCEDURE ^  & InitReader*(receive: Receiver; size: LONGINT); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Available*(): LONGINT; 
-		PROCEDURE ^ Pos*(): LONGINT; 
+		PROCEDURE ^ Pos*(): Position; 
 		PROCEDURE ^ Char*(VAR x: CHAR); 
 		PROCEDURE ^ Get*(): CHAR; 
 		PROCEDURE ^ Peek*(): CHAR; 
@@ -135,7 +137,7 @@ TYPE
 
 		PROCEDURE ^  & InitStringReader*(size: LONGINT); 
 		PROCEDURE ^ CanSetPos*(): BOOLEAN; 
-		PROCEDURE ^ SetPos*(pos: LONGINT); 
+		PROCEDURE ^ SetPos*(pos: Position); 
 		PROCEDURE ^ Receive(VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT); 
 		PROCEDURE ^ Set*(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ SetRaw*(CONST s: ARRAY OF CHAR; ofs, len: LONGINT); 

BIN
Linux64/bin/SyntaxHighlighter.GofUu


Some files were not shown because too many files changed in this diff