rebuilt release (32bit)

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

WinAos/obg/Files.SymW

@@ -211,6 +211,7 @@ VAR
 	PROCEDURE ^ Enumerate(VAR mask: ARRAY OF CHAR; flags: SET; enum: Enumerator); 
 	PROCEDURE ^ Exists*(CONST fileName: ARRAY OF CHAR; VAR fullName: ARRAY OF CHAR; VAR flags: SET): BOOLEAN; 
 	PROCEDURE ^ AddSearchPath*(context: Commands.Context); 
+	PROCEDURE ^ SetWorkPath*(context: Commands.Context); 
 	PROCEDURE ^ FindOpenFile(enum: FileSearcher; fs: FileSystem; key: LONGINT): File; 
 	PROCEDURE ^ ReadSInt*(VAR r: Rider; VAR x: SHORTINT); 
 	PROCEDURE ^ ReadInt*(VAR r: Rider; VAR x: INTEGER); 

WinAos/obg/FoxBinarySymbolFile.SymW

@@ -37,6 +37,7 @@ CONST
 	sfTypeProcedure = 51; 
 	sfSysFlag = 52; 
 	sfInvisible = 53; 
+	sfHidden = 172; 
 	sfReadOnly = 54; 
 	sfObjFlag = 55; 
 	sfConst = 55; 

WinAos/obg/Modules.SymW

@@ -15,7 +15,7 @@ CONST
 	ClearCode = TRUE; 
 	DefaultContext* = \"A2"\; 
 	NoLoader = 3400; 
-	TraceBoot = TRUE; 
+	TraceBoot = FALSE; 
 	PreciseGC* = 0; 
 	ModuleInitTimeout = HUGEINT(0B2D05E00H); 
 TYPE 

WinAos/obg/Objects.SymW

@@ -100,6 +100,7 @@ TYPE
 		restartSP-: LONGINT; 
 		lastThreadTimes: HUGEINT; 
 		gcContext: GCContext; 
+		context: ANY; 
 
 		PROCEDURE ^ FindRoots*; 
 	END Process; 
@@ -154,6 +155,8 @@ VAR
 	PROCEDURE ^ LockedByCurrent*(obj: ANY): BOOLEAN; 
 	PROCEDURE ^ Yield*; 
 	PROCEDURE ^ CurrentProcess*(): Process; 
+	PROCEDURE ^ CurrentContext*(): ANY; 
+	PROCEDURE ^ SetContext*(context: ANY); 
 	PROCEDURE ^ GetStackBottom*(p: Process): ADDRESS; 
 	PROCEDURE ^ ActiveObject*(): ANY; 
 	PROCEDURE ^ GetProcessID*(): LONGINT; 

WinAos/obg/Reflection.SymW

@@ -96,7 +96,7 @@ VAR
 
 	PROCEDURE ^ CheckHeapAddress(address: ADDRESS): BOOLEAN; 
 	PROCEDURE ^ Wait(w: Streams.Writer); 
-	PROCEDURE ^ Expect(b: BOOLEAN): BOOLEAN; 
+	PROCEDURE ^ Expect(pos: SIZE; b: BOOLEAN): BOOLEAN; 
 	PROCEDURE ^ GetChar*(refs: Modules.Bytes; VAR offset: SIZE): CHAR; 
 	PROCEDURE ^ SkipChar*(VAR offset: SIZE); 
 	PROCEDURE ^ GetAddress*(refs: Modules.Bytes; VAR offset: SIZE): ADDRESS; 

WinAos/obg/User32.SymW

@@ -270,7 +270,8 @@ TYPE
 	Msg* = RECORD 
 		hwnd*: HWND; 
 		message*: LONGINT; 
-		wParam*, lParam*: LONGINT; 
+		wParam*: WParam; 
+		lParam*: LParam; 
 		time*: LONGINT; 
 		point*: Point; 
 	END; 

WinAos/obg/WMProcessInfo.SymW

@@ -78,6 +78,7 @@ VAR
 
 	PROCEDURE ^ GetTitleStr(col: LONGINT; VAR x: ARRAY OF CHAR); 
 	PROCEDURE ^ GetAlign(col: LONGINT): LONGINT; 
+	PROCEDURE ^ CheckBP(p: Objects.Process; bp: ADDRESS): ADDRESS; 
 	PROCEDURE ^ OpenCpuLoadWindow(pid: LONGINT); 
 	PROCEDURE ^ InitStrings; 
 	PROCEDURE ^ InitPrototypes; 

WinAos/obg/WinFS.SymW

@@ -172,6 +172,7 @@ VAR
 	PROCEDURE ^ RegisterNotification*(p: NotificationProc); 
 	PROCEDURE ^ Init; 
 	PROCEDURE ^ AddSearchPath*(context: Commands.Context); 
+	PROCEDURE ^ SetWorkPath*(context: Commands.Context); 
 	PROCEDURE ^ Mount*(context: Commands.Context); 
 	PROCEDURE ^ Unmount*(context: Commands.Context); 
 BEGIN