rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6780 8c9fc860-2736-0410-a75d-ab315db34111

WinAos/obg/FoxARMBackend.SymW

@@ -150,7 +150,6 @@ CONST
 	opTST = InstructionSet.opTST; 
 	opUMLAL = InstructionSet.opUMLAL; 
 	opUMULL = InstructionSet.opUMULL; 
-	MaximumFixupDistance = 1024; 
 	GetSP = 0; 
 	SetSP = 1; 
 	GetFP = 2; 
@@ -170,7 +169,7 @@ CONST
 	ADDC = 16; 
 	PACK = 17; 
 	UNPK = 18; 
-	UseFPUFlag = \"useFPU"\; 
+	UseFPU32Flag = \"useFPU32"\; 
 	UseFPU64Flag = \"useFPU64"\; 
 TYPE 
 	Operand = InstructionSet.Operand; 
@@ -180,6 +179,8 @@ TYPE
 	Citation = OBJECT 
 	VAR 
 		pc: LONGINT; 
+		bits: SIZE; 
+		shift: SIZE; 
 		next: Citation; 
 	END Citation; 
 
@@ -187,9 +188,11 @@ TYPE
 	VAR 
 		firstCitation, lastCitation: Citation; 
 		next: Reference; 
+		size: SIZE; 
 
-		PROCEDURE ^  & Init; 
-		PROCEDURE ^ AddCitation(pc: LONGINT); 
+		PROCEDURE ^  & Init(size: SIZE); 
+		PROCEDURE ^ Emit(out: BinaryCode.Section); 
+		PROCEDURE ^ AddCitation(pc: LONGINT; bits: SIZE; shift: SIZE); 
 	END Reference; 
 
 	ImmediateReference = OBJECT (Reference)
@@ -197,26 +200,39 @@ TYPE
 		value: LONGINT; 
 
 		PROCEDURE ^  & InitImm(v: LONGINT); 
+		PROCEDURE ^ Emit(out: BinaryCode.Section); 
 	END ImmediateReference; 
 
+	ImmediateHReference = OBJECT (Reference)
+	VAR 
+		value: HUGEINT; 
+
+		PROCEDURE ^  & InitImm(v: HUGEINT); 
+		PROCEDURE ^ Emit(out: BinaryCode.Section); 
+	END ImmediateHReference; 
+
 	SymbolReference = OBJECT (Reference)
 	VAR 
-		symbol: Sections.SectionName; 
-		fingerprint: LONGINT; 
+		identifier: ObjectFile.Identifier; 
 		symbolOffset: LONGINT; 
 
 		PROCEDURE ^  & InitSym(s: Sections.SectionName; fp: LONGINT; offs: LONGINT); 
+		PROCEDURE ^ Emit(out: BinaryCode.Section); 
 	END SymbolReference; 
 
 	ListOfReferences = OBJECT 
 	VAR 
 		firstReference, lastReference: Reference; 
-		referenceCount: LONGINT; 
-		pcOfFirstCitation: LONGINT; 
+		size: SIZE; 
+		due: SIZE; 
 
 		PROCEDURE ^  & Init; 
-		PROCEDURE ^ AddSymbol(symbol: Sections.SectionName; fingerprint: LONGINT; symbolOffset: LONGINT; pc: LONGINT); 
-		PROCEDURE ^ AddImmediate(value: LONGINT; pc: LONGINT); 
+		PROCEDURE ^ UpdateDue(pc: SIZE; bits: SIZE; shift: SIZE); 
+		PROCEDURE ^ AddCitation(reference: Reference; pc: SIZE; bits: SIZE; shift: SIZE); 
+		PROCEDURE ^ AddReference(reference: Reference): Reference; 
+		PROCEDURE ^ AddSymbol(symbol: Sections.SectionName; fingerprint: LONGINT; symbolOffset: LONGINT; pc: LONGINT; bits: LONGINT); 
+		PROCEDURE ^ AddImmediate(value: LONGINT; pc: SIZE; bits: SIZE); 
+		PROCEDURE ^ AddHImmediate(value: HUGEINT; pc: LONGINT; bits: SIZE); 
 	END ListOfReferences; 
 
 	PhysicalRegisters* = OBJECT (CodeGenerators.PhysicalRegisters)
@@ -250,7 +266,6 @@ TYPE
 		stackSize: LONGINT; 
 		stackSizeKnown: BOOLEAN; 
 		inStackAllocation: BOOLEAN; 
-		fixupPattern: ObjectFile.FixupPatterns; 
 
 		PROCEDURE ^  & InitGeneratorARM(CONST runtimeModuleName: SyntaxTree.IdentifierString; diagnostics: Diagnostics.Diagnostics; backend: BackendARM); 
 		PROCEDURE ^ Section*(in: IntermediateCode.Section; out: BinaryCode.Section); 
@@ -290,6 +305,7 @@ TYPE
 		PROCEDURE ^ IsDoublePrecisionFloat(CONST irOperand: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ IsFloat(CONST irOperand: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ IsInteger(CONST irOperand: IntermediateCode.Operand): BOOLEAN; 
+		PROCEDURE ^ IsInteger64(CONST irOperand: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ PartType(CONST type: IntermediateCode.Type; part: LONGINT): IntermediateCode.Type; 
 		PROCEDURE ^ GetPartType*(CONST type: IntermediateCode.Type; part: LONGINT; VAR partType: IntermediateCode.Type); 
 		PROCEDURE ^ ValueOfPart(value: HUGEINT; part: LONGINT): LONGINT; 
@@ -376,6 +392,7 @@ TYPE
 	END BackendARM; 
 VAR 
 	emptyOperand: Operand; 
+	rFixupPattern: ObjectFile.FixupPatterns; 
 
 	PROCEDURE ^ Assert(condition: BOOLEAN; CONST message: ARRAY OF CHAR); 
 	PROCEDURE ^ Halt(CONST message: ARRAY OF CHAR); 

WinAos/obg/FoxIntermediateBackend.SymW

@@ -82,7 +82,6 @@ CONST
 	Size7Flag = 9; 
 	Size8Flag = 10; 
 	ReflectionSupport = TRUE; 
-	PreciseGCSupport = TRUE; 
 TYPE 
 	SupportedInstructionProcedure* = PROCEDURE {DELEGATE}(CONST instr: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR):BOOLEAN; 
 
@@ -582,6 +581,7 @@ TYPE
 		preregisterStatic-: BOOLEAN; 
 		dump-: Basic.Writer; 
 		cellsAreObjects: BOOLEAN; 
+		preciseGC: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 

WinAos/obg/Reflection.SymW

@@ -99,10 +99,11 @@ VAR
 	PROCEDURE ^ WriteType*(w: Streams.Writer; adr: ADDRESS); 
 	PROCEDURE ^ WriteProc0(w: Streams.Writer; mod: Modules.Module; pc, fp: ADDRESS; VAR refs: Modules.Bytes; VAR refpos: LONGINT; VAR base: ADDRESS); 
 	PROCEDURE ^ WriteBasicValue*(w: Streams.Writer; type: CHAR; adr: ADDRESS; VAR size: SIZE); 
-	PROCEDURE ^ WriteValueString*(w: Streams.Writer; adr: ADDRESS; maxLen: LONGINT); 
-	PROCEDURE ^ WriteValue*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; adr: ADDRESS); 
-	PROCEDURE ^ WriteVariable*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; base: ADDRESS); 
-	PROCEDURE ^ WriteVariables*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; base: ADDRESS); 
+	PROCEDURE ^ OnHeapOrStack(adr: ADDRESS; low, high: ADDRESS): BOOLEAN; 
+	PROCEDURE ^ WriteValueString*(w: Streams.Writer; adr: ADDRESS; maxLen: LONGINT; low, high: ADDRESS); 
+	PROCEDURE ^ WriteValue*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; adr: ADDRESS; low, high: ADDRESS); 
+	PROCEDURE ^ WriteVariable*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; base: ADDRESS; low, high: ADDRESS); 
+	PROCEDURE ^ WriteVariables*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; base: ADDRESS; low, high: ADDRESS); 
 	PROCEDURE ^ SkipType*(refs: Modules.Bytes; VAR offset: LONGINT); 
 	PROCEDURE ^ SkipProcedure*(refs: Modules.Bytes; VAR offset: LONGINT); 
 	PROCEDURE ^ SkipVariable*(refs: Modules.Bytes; VAR offset: LONGINT); 

WinAos/obg/Release.SymW

@@ -166,7 +166,8 @@ TYPE
 		prefixes: ARRAY MaxPrefixes OF Name; 
 		excludedPackages: Strings.StringArray; 
 		onlyPackages: Strings.StringArray; 
-		compiler, compileOptions, linker, linkOptions: ARRAY 128 OF CHAR; 
+		compileOptions, linkOptions: Options.Parameter; 
+		compiler, linker: ARRAY 128 OF CHAR; 
 		target: ARRAY 8 OF CHAR; 
 		extension: ARRAY 8 OF CHAR; 
 		symbolFileExtension: ARRAY 8 OF CHAR; 

WinAos/obg/WMComponents.SymW

@@ -164,7 +164,7 @@ TYPE
 		PROCEDURE ^ PropertyChanged*(sender, property: ANY); 
 		PROCEDURE ^ RecacheProperties*; 
 		PROCEDURE ^ InternalPropertyChanged(sender, property: ANY); 
-		PROCEDURE ^ InternalLinkChanged(sender, property: ANY); 
+		PROCEDURE ^ InternalLinkChanged(sender, link: ANY); 
 	END Component; 
 
 	Macro* = ARRAY 128 OF CHAR; 

WinAos/obg/WMEvents.SymW

@@ -1,5 +1,5 @@
 MODULE WMEvents;
-	IMPORT Strings, KernelLog;
+	IMPORT Kernel, Objects, Strings, KernelLog;
 CONST 
 TYPE 
 	String = Strings.String; 
@@ -27,8 +27,13 @@ TYPE
 		owner: ANY; 
 		finder: CompCommandFinder; 
 		next: EventSource; 
+		minimalDelay: LONGINT; 
+		updateTimer: Kernel.MilliTimer; 
+		lastFrameTimer: Objects.Timer; 
+		lastPar: ANY; 
 
 		PROCEDURE ^  & New*(owner: ANY; name, info: String; finder: CompCommandFinder); 
+		PROCEDURE ^ SetMinimalDelay*(ms: LONGINT); 
 		PROCEDURE ^ GetName*(): String; 
 		PROCEDURE ^ GetInfo*(): String; 
 		PROCEDURE ^ Add*(observer: EventListener); 
@@ -37,6 +42,7 @@ TYPE
 		PROCEDURE ^ RemoveByString*(string: String); 
 		PROCEDURE ^ CallWithSender*(sender, par: ANY); 
 		PROCEDURE ^ Call*(par: ANY); 
+		PROCEDURE ^ Call0; 
 		PROCEDURE ^ HasListeners*(): BOOLEAN; 
 	END EventSource; 
 

WinAos/obg/WMTextView.SymW

@@ -1,5 +1,5 @@
 MODULE WMTextView;
-	IMPORT Kernel, Modules, Inputs, KernelLog, XML, Texts, TextUtilities, SyntaxHighlighter, WMGraphics, WMGraphicUtilities, WMMessages, WMComponents, WMStandardComponents, Strings, WMDropTarget, Raster, WMRectangles, WMWindowManager, WMProperties, Commands, FileHandlers, Streams, WMPopups, FP1616, WMPieMenu, WMEvents, UnicodeBidirectionality, PositionDebugging, ContextualDependency;
+	IMPORT Kernel, Modules, Inputs, KernelLog, XML, Texts, TextUtilities, SyntaxHighlighter, WMGraphics, WMGraphicUtilities, WMMessages, WMComponents, WMStandardComponents, Strings, WMDropTarget, Raster, WMRectangles, WMWindowManager, WMProperties, Commands, FileHandlers, Streams, WMPopups, FP1616, WMPieMenu, WMEvents, UnicodeBidirectionality, PositionDebugging, ContextualDependency, D := Debugging;
 CONST 
 	TraceRenderOptimize = 0; 
 	TraceLayout = 1;