Minor additions, Info needs fixing

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

source/Info.Mod

@@ -810,11 +810,13 @@ VAR address : ADDRESS; module : Modules.Module; variable : Reflection.Variable;
 BEGIN
 	address := Heaps.NilVal;
 	module := Modules.ModuleByName("Heaps");
+	ASSERT(module # NIL); 
 	IF (module # NIL) THEN
 		IF Reflection.FindVar(module, "currentMarkValue", variable) THEN
 			ASSERT(variable.n = 1); (* currentMarkValue is not an array *)
 			ASSERT(variable.type = 6); (*? type is LONGINT, currently no support for 64-bit addresses *)
 			address := variable.adr;
+		ELSE HALT(100);
 		END;
 	END;
 	RETURN address;
@@ -833,17 +835,21 @@ END Info.
 
 SystemTools.Free Info ~
 
+Debugging.DisableGC
+Debugging.EnableGC 
+Compiler.Compile -p=Win32G FoxIntermediateBackend.Mod ~
 Info.AllObjects ~
 Info.AllObjects * ~
 
 Info.AllObjects --sort=0 * ~
 Info.AllObjects --sort=1 * ~
 Info.AllObjects --sort=2 * ~
+Info.AllObjects --sort=3 * ~
 
 Info.TraceModule PET ~
 
 Info.TraceModule Info ~
-Info.TraceModule Info * ~
+Info.TraceModule FoxIntermediateBackend * ~
 
 Info.TraceReference HotKeys.hotkeys ~
 Info.TraceReference HotKeys.hotkeys * ~

source/Shell.Mod

@@ -21,7 +21,7 @@ CONST
 
 	NestingLevelIndicator = ">";
 
-	MaxLen = 512;
+	MaxLen = 4096;
 	CmdLen = 64;
 	ParamLen = MaxLen;
 	CR = 0DX; LF = 0AX; TAB = 9X;

source/StdIOShell.Mod

@@ -289,4 +289,78 @@ SystemTools.DoCommands
 		GenericLoader.GofW
 		WinTrace.GofW WinApplication.GofW
 		~ 
+		
+		
 	~
+
+	FoxGenericObjectFile.MakeLibrary
+		Fox.Lib
+		FoxBasic.GofW  FoxProgTools.GofW  FoxScanner.GofW FoxCSharpScanner.GofW FoxSyntaxTree.GofW FoxGlobal.GofW
+		FoxActiveCells.GofW FoxHardware.GofW FoxFormats.GofW FoxPrintout.GofW
+		FoxParser.GofW FoxCSharpParser.GofW  FoxSemanticChecker.GofW
+		FoxBackend.GofW FoxSections.GofW 
+		FoxFrontend.GofW 
+		Compiler.GofW 
+		FoxOberonFrontend.GofW FoxCSharpFrontend.GofW
+		FoxFingerPrinter.GofW  FoxInterfaceComparison.GofW FoxTextualSymbolFile.GofW FoxBinarySymbolFile.GofW
+		FoxBinaryCode.GofW FoxIntermediateCode.GofW FoxIntermediateBackend.GofW FoxCodeGenerators.GofW
+		FoxBinaryObjectFile.GofW FoxGenericObjectFile.GofW
+		FoxAMD64InstructionSet.GofW FoxAMD64Assembler.GofW FoxAMDBackend.GofW
+		FoxAssembler.GofW FoxIntermediateAssembler.GofW FoxDisassembler.GofW
+		FoxARMInstructionSet.GofW FoxARMAssembler.GofW FoxARMBackend.GofW	FoxMinosObjectFile.GofW
+		FoxIntermediateParser.GofW FoxIntermediateObjectFile.GofW FoxIntermediateLinker.GofW 
+		FoxTRMInstructionSet.GofW FoxTRMAssembler.GofW FoxTRMBackend.GofW
+		FoxInterpreterBackend.GofW FoxTranspilerBackend.GofW
+		FoxDocumentationScanner.GofW FoxDocumentationTree.GofW FoxDocumentationPrinter.GofW FoxDocumentationHtml.GofW 
+		FoxDocumentationParser.GofW FoxDocumentationBackend.GofW
+		
+		XML.GofW XMLScanner.GofW DynamicStrings.GofW UTF8Strings.GofW XMLParser.GofW XMLObjects.GofW
+		PersistentObjects.GofW FoxInterpreterSymbols.GofW FoxInterpreter.GofW
+
+	~		
+
+
+
+	StaticLinker.Link --fileFormat=PE32CUI --fileName=oberon.exe --extension=GofW --displacement=401000H
+		Runtime Trace Kernel32 Machine Heaps Modules Objects Kernel KernelLog Streams Commands Files 
+		WinFS Clock Dates Reals Strings Diagnostics BitSets StringPool ObjectFile GenericLinker Reflection GenericLoader
+		
+		TrapWriters 	CRC SystemVersion Traps
+
+		WinTrace StdIO Pipes  Shell StdIOShell
+		
+		Options Locks Debugging
+		
+		StaticLinker 
+		Fox.Lib
+
+		InterpreterShell
+		
+		ProcessInfo0 ProcessInfo Plugins SystemTools
+	
+	~
+
+	StaticLinker.Link -p=Linux32G
+		Runtime Trace Glue Unix Machine Heaps Modules Objects Kernel KernelLog 
+		Streams Commands 
+		Files UnixFiles Clock Dates Reals Strings Diagnostics 
+		BitSets StringPool ObjectFile GenericLinker Reflection GenericLoader  
+
+		StdIO TrapWriters Traps 
+
+		Pipes Shell StdIOShell
+		
+		Options Locks Debugging
+		StaticLinker 
+		
+		Fox.Lib 
+		InterpreterShell
+
+		CRC SystemVersion ProcessInfo0 ProcessInfo Plugins SystemTools
+
+	~
+	FSTools.CloseFiles oberon
+	~
+~ 
+
+