Rebuilt releases.

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

Linux32/bin/Compiler.SymU

@@ -9,13 +9,12 @@ CONST
 	FindPC* = 5; 
 	Warnings* = 7; 
 	ForceModuleBodies* = 8; 
-	UseDarwinCCalls* = 9; 
-	SingleModule* = 10; 
-	Oberon07* = 11; 
-	ChangeCase* = 12; 
-	Cooperative* = 13; 
-	CellsAreObjects* = 14; 
-	UseLineNumbers* = 15; 
+	SingleModule* = 9; 
+	Oberon07* = 10; 
+	ChangeCase* = 11; 
+	Cooperative* = 12; 
+	CellsAreObjects* = 13; 
+	UseLineNumbers* = 14; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 

Linux32/bin/FoxAMDBackend.SymU

@@ -207,14 +207,16 @@ TYPE
 		forceFPU: BOOLEAN; 
 		winAPIRegisters: ARRAY 4 OF LONGINT; 
 		cRegisters: ARRAY 6 OF LONGINT; 
+		intParameterIndex: WORD; 
+		floatParameterIndex: WORD; 
 
 		PROCEDURE ^  & InitBackendAMD64; 
 		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; flags: SET; checker: SemanticChecker.Checker; system: Global.System); 
 		PROCEDURE ^ GetSystem*(): Global.System; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
 		PROCEDURE ^ HardwareIntegerRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
 		PROCEDURE ^ HardwareFloatRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ ResetParameterRegisters*; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
 		PROCEDURE ^ SupportedInstruction*(CONST instruction: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GenerateBinary(module: Sections.Module; dump: Streams.Writer); 
 		PROCEDURE ^ ProcessIntermediateCodeModule*(intermediateCodeModule: Formats.GeneratedModule): Formats.GeneratedModule; 

Linux32/bin/FoxIntermediateBackend.SymU

@@ -86,8 +86,8 @@ CONST
 	ProtectModulesPointers = FALSE; 
 	CreateProcedureDescInfo = TRUE; 
 	WarningDynamicLoading = FALSE; 
-	SysvABI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention}; 
-	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention, SyntaxTree.WinAPICallingConvention}; 
+	SysvABI = {SyntaxTree.CCallingConvention}; 
+	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.WinAPICallingConvention}; 
 TYPE 
 	Position = SyntaxTree.Position; 
 
@@ -315,7 +315,7 @@ TYPE
 		PROCEDURE ^ TraceExit(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ Emit(instruction: IntermediateCode.Instruction); 
 		PROCEDURE ^ EmitTrap(position: Position; trapNo: LONGINT); 
-		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT; numRegs: LONGINT); 
+		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT); 
 		PROCEDURE ^ Enter(position: Position; callconv: LONGINT; varSize: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ Leave(position: Position; callconv: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ EmitLeave(section: IntermediateCode.Section; position: Basic.Position; procedure: SyntaxTree.Procedure; callconv: LONGINT); 
@@ -408,7 +408,7 @@ TYPE
 		PROCEDURE ^ IndexDesignator(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ PrepareTensorDescriptor(expression: SyntaxTree.IndexDesignator): SyntaxTree.Variable; 
-		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; numberRegister: LONGINT); 
+		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; register: WORD); 
 		PROCEDURE ^ VisitStatementDesignator*(x: SyntaxTree.StatementDesignator); 
 		PROCEDURE ^ InlineProcedureCall(x: SyntaxTree.ProcedureCallDesignator): BOOLEAN; 
 		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
@@ -614,8 +614,8 @@ TYPE
 		experiment: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
+		PROCEDURE ^ ResetParameterRegisters*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 
 		PROCEDURE ^ SupportedImmediate*(CONST op: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ ProcessSyntaxTreeModule*(syntaxTreeModule: SyntaxTree.Module): Formats.GeneratedModule; 

Linux32/bin/FoxSemanticChecker.SymU

@@ -45,7 +45,6 @@ TYPE
 	VAR 
 		module: SyntaxTree.Module; 
 		diagnostics: Diagnostics.Diagnostics; 
-		useDarwinCCalls: BOOLEAN; 
 		cooperative: BOOLEAN; 
 		error-: BOOLEAN; 
 		VerboseErrorMessage: BOOLEAN; 
@@ -74,7 +73,7 @@ TYPE
 		cellsAreObjects: BOOLEAN; 
 		variableAccessed: BOOLEAN; 
 
-		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
+		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
 		PROCEDURE ^ Error(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ Warning(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS(position: Position; CONST msg, msg2: ARRAY OF CHAR); 
@@ -360,7 +359,7 @@ TYPE
 	PROCEDURE ^ FindSuperProcedure*(scope: SyntaxTree.RecordScope; procedure: SyntaxTree.Procedure): SyntaxTree.Procedure; 
 	PROCEDURE ^ GetConstructor(record: SyntaxTree.RecordType): SyntaxTree.Procedure; 
 	PROCEDURE ^ EnterCase(VAR root: SyntaxTree.CaseConstant; min, max: Basic.Integer): BOOLEAN; 
-	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
+	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
 	PROCEDURE ^ NewWarnings*(diagnostics: Diagnostics.Diagnostics): Warnings; 
 	PROCEDURE ^ IsRangeType(type: SyntaxTree.Type): BOOLEAN; 
 	PROCEDURE ^ IsMathArrayType(type: SyntaxTree.Type): BOOLEAN; 

Linux32/bin/FoxSyntaxTree.SymU

@@ -4,10 +4,9 @@ CONST
 	OberonCallingConvention* = 0; 
 	CCallingConvention* = 1; 
 	WinAPICallingConvention* = 2; 
-	DarwinCCallingConvention* = 3; 
-	InterruptCallingConvention* = 4; 
-	PlatformCallingConvention* = 5; 
-	UndefinedCallingConvention* = 6; 
+	InterruptCallingConvention* = 3; 
+	PlatformCallingConvention* = 4; 
+	UndefinedCallingConvention* = 5; 
 	InternalRead* = 0; 
 	InternalWrite* = 1; 
 	ProtectedRead* = 2; 

Linux64/bin/Compiler.SymUu

@@ -9,13 +9,12 @@ CONST
 	FindPC* = 5; 
 	Warnings* = 7; 
 	ForceModuleBodies* = 8; 
-	UseDarwinCCalls* = 9; 
-	SingleModule* = 10; 
-	Oberon07* = 11; 
-	ChangeCase* = 12; 
-	Cooperative* = 13; 
-	CellsAreObjects* = 14; 
-	UseLineNumbers* = 15; 
+	SingleModule* = 9; 
+	Oberon07* = 10; 
+	ChangeCase* = 11; 
+	Cooperative* = 12; 
+	CellsAreObjects* = 13; 
+	UseLineNumbers* = 14; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 

Linux64/bin/FoxAMDBackend.SymUu

@@ -207,14 +207,16 @@ TYPE
 		forceFPU: BOOLEAN; 
 		winAPIRegisters: ARRAY 4 OF LONGINT; 
 		cRegisters: ARRAY 6 OF LONGINT; 
+		intParameterIndex: WORD; 
+		floatParameterIndex: WORD; 
 
 		PROCEDURE ^  & InitBackendAMD64; 
 		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; flags: SET; checker: SemanticChecker.Checker; system: Global.System); 
 		PROCEDURE ^ GetSystem*(): Global.System; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
 		PROCEDURE ^ HardwareIntegerRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
 		PROCEDURE ^ HardwareFloatRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ ResetParameterRegisters*; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
 		PROCEDURE ^ SupportedInstruction*(CONST instruction: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GenerateBinary(module: Sections.Module; dump: Streams.Writer); 
 		PROCEDURE ^ ProcessIntermediateCodeModule*(intermediateCodeModule: Formats.GeneratedModule): Formats.GeneratedModule; 

Linux64/bin/FoxIntermediateBackend.SymUu

@@ -86,8 +86,8 @@ CONST
 	ProtectModulesPointers = FALSE; 
 	CreateProcedureDescInfo = TRUE; 
 	WarningDynamicLoading = FALSE; 
-	SysvABI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention}; 
-	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention, SyntaxTree.WinAPICallingConvention}; 
+	SysvABI = {SyntaxTree.CCallingConvention}; 
+	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.WinAPICallingConvention}; 
 TYPE 
 	Position = SyntaxTree.Position; 
 
@@ -315,7 +315,7 @@ TYPE
 		PROCEDURE ^ TraceExit(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ Emit(instruction: IntermediateCode.Instruction); 
 		PROCEDURE ^ EmitTrap(position: Position; trapNo: LONGINT); 
-		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT; numRegs: LONGINT); 
+		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT); 
 		PROCEDURE ^ Enter(position: Position; callconv: LONGINT; varSize: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ Leave(position: Position; callconv: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ EmitLeave(section: IntermediateCode.Section; position: Basic.Position; procedure: SyntaxTree.Procedure; callconv: LONGINT); 
@@ -408,7 +408,7 @@ TYPE
 		PROCEDURE ^ IndexDesignator(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ PrepareTensorDescriptor(expression: SyntaxTree.IndexDesignator): SyntaxTree.Variable; 
-		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; numberRegister: LONGINT); 
+		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; register: WORD); 
 		PROCEDURE ^ VisitStatementDesignator*(x: SyntaxTree.StatementDesignator); 
 		PROCEDURE ^ InlineProcedureCall(x: SyntaxTree.ProcedureCallDesignator): BOOLEAN; 
 		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
@@ -614,8 +614,8 @@ TYPE
 		experiment: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
+		PROCEDURE ^ ResetParameterRegisters*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 
 		PROCEDURE ^ SupportedImmediate*(CONST op: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ ProcessSyntaxTreeModule*(syntaxTreeModule: SyntaxTree.Module): Formats.GeneratedModule; 

Linux64/bin/FoxSemanticChecker.SymUu

@@ -45,7 +45,6 @@ TYPE
 	VAR 
 		module: SyntaxTree.Module; 
 		diagnostics: Diagnostics.Diagnostics; 
-		useDarwinCCalls: BOOLEAN; 
 		cooperative: BOOLEAN; 
 		error-: BOOLEAN; 
 		VerboseErrorMessage: BOOLEAN; 
@@ -74,7 +73,7 @@ TYPE
 		cellsAreObjects: BOOLEAN; 
 		variableAccessed: BOOLEAN; 
 
-		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
+		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
 		PROCEDURE ^ Error(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ Warning(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS(position: Position; CONST msg, msg2: ARRAY OF CHAR); 
@@ -360,7 +359,7 @@ TYPE
 	PROCEDURE ^ FindSuperProcedure*(scope: SyntaxTree.RecordScope; procedure: SyntaxTree.Procedure): SyntaxTree.Procedure; 
 	PROCEDURE ^ GetConstructor(record: SyntaxTree.RecordType): SyntaxTree.Procedure; 
 	PROCEDURE ^ EnterCase(VAR root: SyntaxTree.CaseConstant; min, max: Basic.Integer): BOOLEAN; 
-	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
+	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
 	PROCEDURE ^ NewWarnings*(diagnostics: Diagnostics.Diagnostics): Warnings; 
 	PROCEDURE ^ IsRangeType(type: SyntaxTree.Type): BOOLEAN; 
 	PROCEDURE ^ IsMathArrayType(type: SyntaxTree.Type): BOOLEAN; 

Linux64/bin/FoxSyntaxTree.SymUu

@@ -4,10 +4,9 @@ CONST
 	OberonCallingConvention* = 0; 
 	CCallingConvention* = 1; 
 	WinAPICallingConvention* = 2; 
-	DarwinCCallingConvention* = 3; 
-	InterruptCallingConvention* = 4; 
-	PlatformCallingConvention* = 5; 
-	UndefinedCallingConvention* = 6; 
+	InterruptCallingConvention* = 3; 
+	PlatformCallingConvention* = 4; 
+	UndefinedCallingConvention* = 5; 
 	InternalRead* = 0; 
 	InternalWrite* = 1; 
 	ProtectedRead* = 2; 

Win32/bin/Compiler.SymW

@@ -9,13 +9,12 @@ CONST
 	FindPC* = 5; 
 	Warnings* = 7; 
 	ForceModuleBodies* = 8; 
-	UseDarwinCCalls* = 9; 
-	SingleModule* = 10; 
-	Oberon07* = 11; 
-	ChangeCase* = 12; 
-	Cooperative* = 13; 
-	CellsAreObjects* = 14; 
-	UseLineNumbers* = 15; 
+	SingleModule* = 9; 
+	Oberon07* = 10; 
+	ChangeCase* = 11; 
+	Cooperative* = 12; 
+	CellsAreObjects* = 13; 
+	UseLineNumbers* = 14; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 

Win32/bin/FoxAMDBackend.SymW

@@ -207,14 +207,16 @@ TYPE
 		forceFPU: BOOLEAN; 
 		winAPIRegisters: ARRAY 4 OF LONGINT; 
 		cRegisters: ARRAY 6 OF LONGINT; 
+		intParameterIndex: WORD; 
+		floatParameterIndex: WORD; 
 
 		PROCEDURE ^  & InitBackendAMD64; 
 		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; flags: SET; checker: SemanticChecker.Checker; system: Global.System); 
 		PROCEDURE ^ GetSystem*(): Global.System; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
 		PROCEDURE ^ HardwareIntegerRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
 		PROCEDURE ^ HardwareFloatRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ ResetParameterRegisters*; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
 		PROCEDURE ^ SupportedInstruction*(CONST instruction: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GenerateBinary(module: Sections.Module; dump: Streams.Writer); 
 		PROCEDURE ^ ProcessIntermediateCodeModule*(intermediateCodeModule: Formats.GeneratedModule): Formats.GeneratedModule; 

Win32/bin/FoxIntermediateBackend.SymW

@@ -86,8 +86,8 @@ CONST
 	ProtectModulesPointers = FALSE; 
 	CreateProcedureDescInfo = TRUE; 
 	WarningDynamicLoading = FALSE; 
-	SysvABI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention}; 
-	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention, SyntaxTree.WinAPICallingConvention}; 
+	SysvABI = {SyntaxTree.CCallingConvention}; 
+	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.WinAPICallingConvention}; 
 TYPE 
 	Position = SyntaxTree.Position; 
 
@@ -315,7 +315,7 @@ TYPE
 		PROCEDURE ^ TraceExit(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ Emit(instruction: IntermediateCode.Instruction); 
 		PROCEDURE ^ EmitTrap(position: Position; trapNo: LONGINT); 
-		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT; numRegs: LONGINT); 
+		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT); 
 		PROCEDURE ^ Enter(position: Position; callconv: LONGINT; varSize: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ Leave(position: Position; callconv: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ EmitLeave(section: IntermediateCode.Section; position: Basic.Position; procedure: SyntaxTree.Procedure; callconv: LONGINT); 
@@ -408,7 +408,7 @@ TYPE
 		PROCEDURE ^ IndexDesignator(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ PrepareTensorDescriptor(expression: SyntaxTree.IndexDesignator): SyntaxTree.Variable; 
-		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; numberRegister: LONGINT); 
+		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; register: WORD); 
 		PROCEDURE ^ VisitStatementDesignator*(x: SyntaxTree.StatementDesignator); 
 		PROCEDURE ^ InlineProcedureCall(x: SyntaxTree.ProcedureCallDesignator): BOOLEAN; 
 		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
@@ -614,8 +614,8 @@ TYPE
 		experiment: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
+		PROCEDURE ^ ResetParameterRegisters*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 
 		PROCEDURE ^ SupportedImmediate*(CONST op: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ ProcessSyntaxTreeModule*(syntaxTreeModule: SyntaxTree.Module): Formats.GeneratedModule; 

Win32/bin/FoxSemanticChecker.SymW

@@ -45,7 +45,6 @@ TYPE
 	VAR 
 		module: SyntaxTree.Module; 
 		diagnostics: Diagnostics.Diagnostics; 
-		useDarwinCCalls: BOOLEAN; 
 		cooperative: BOOLEAN; 
 		error-: BOOLEAN; 
 		VerboseErrorMessage: BOOLEAN; 
@@ -74,7 +73,7 @@ TYPE
 		cellsAreObjects: BOOLEAN; 
 		variableAccessed: BOOLEAN; 
 
-		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
+		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
 		PROCEDURE ^ Error(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ Warning(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS(position: Position; CONST msg, msg2: ARRAY OF CHAR); 
@@ -360,7 +359,7 @@ TYPE
 	PROCEDURE ^ FindSuperProcedure*(scope: SyntaxTree.RecordScope; procedure: SyntaxTree.Procedure): SyntaxTree.Procedure; 
 	PROCEDURE ^ GetConstructor(record: SyntaxTree.RecordType): SyntaxTree.Procedure; 
 	PROCEDURE ^ EnterCase(VAR root: SyntaxTree.CaseConstant; min, max: Basic.Integer): BOOLEAN; 
-	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
+	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
 	PROCEDURE ^ NewWarnings*(diagnostics: Diagnostics.Diagnostics): Warnings; 
 	PROCEDURE ^ IsRangeType(type: SyntaxTree.Type): BOOLEAN; 
 	PROCEDURE ^ IsMathArrayType(type: SyntaxTree.Type): BOOLEAN; 

Win32/bin/FoxSyntaxTree.SymW

@@ -4,10 +4,9 @@ CONST
 	OberonCallingConvention* = 0; 
 	CCallingConvention* = 1; 
 	WinAPICallingConvention* = 2; 
-	DarwinCCallingConvention* = 3; 
-	InterruptCallingConvention* = 4; 
-	PlatformCallingConvention* = 5; 
-	UndefinedCallingConvention* = 6; 
+	InterruptCallingConvention* = 3; 
+	PlatformCallingConvention* = 4; 
+	UndefinedCallingConvention* = 5; 
 	InternalRead* = 0; 
 	InternalWrite* = 1; 
 	ProtectedRead* = 2; 

Win64/bin/Compiler.SymWw

@@ -9,13 +9,12 @@ CONST
 	FindPC* = 5; 
 	Warnings* = 7; 
 	ForceModuleBodies* = 8; 
-	UseDarwinCCalls* = 9; 
-	SingleModule* = 10; 
-	Oberon07* = 11; 
-	ChangeCase* = 12; 
-	Cooperative* = 13; 
-	CellsAreObjects* = 14; 
-	UseLineNumbers* = 15; 
+	SingleModule* = 9; 
+	Oberon07* = 10; 
+	ChangeCase* = 11; 
+	Cooperative* = 12; 
+	CellsAreObjects* = 13; 
+	UseLineNumbers* = 14; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 

Win64/bin/FoxAMDBackend.SymWw

@@ -207,14 +207,16 @@ TYPE
 		forceFPU: BOOLEAN; 
 		winAPIRegisters: ARRAY 4 OF LONGINT; 
 		cRegisters: ARRAY 6 OF LONGINT; 
+		intParameterIndex: WORD; 
+		floatParameterIndex: WORD; 
 
 		PROCEDURE ^  & InitBackendAMD64; 
 		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; flags: SET; checker: SemanticChecker.Checker; system: Global.System); 
 		PROCEDURE ^ GetSystem*(): Global.System; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
 		PROCEDURE ^ HardwareIntegerRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
 		PROCEDURE ^ HardwareFloatRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ ResetParameterRegisters*; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
 		PROCEDURE ^ SupportedInstruction*(CONST instruction: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GenerateBinary(module: Sections.Module; dump: Streams.Writer); 
 		PROCEDURE ^ ProcessIntermediateCodeModule*(intermediateCodeModule: Formats.GeneratedModule): Formats.GeneratedModule; 

Win64/bin/FoxIntermediateBackend.SymWw

@@ -86,8 +86,8 @@ CONST
 	ProtectModulesPointers = FALSE; 
 	CreateProcedureDescInfo = TRUE; 
 	WarningDynamicLoading = FALSE; 
-	SysvABI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention}; 
-	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention, SyntaxTree.WinAPICallingConvention}; 
+	SysvABI = {SyntaxTree.CCallingConvention}; 
+	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.WinAPICallingConvention}; 
 TYPE 
 	Position = SyntaxTree.Position; 
 
@@ -315,7 +315,7 @@ TYPE
 		PROCEDURE ^ TraceExit(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ Emit(instruction: IntermediateCode.Instruction); 
 		PROCEDURE ^ EmitTrap(position: Position; trapNo: LONGINT); 
-		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT; numRegs: LONGINT); 
+		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT); 
 		PROCEDURE ^ Enter(position: Position; callconv: LONGINT; varSize: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ Leave(position: Position; callconv: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ EmitLeave(section: IntermediateCode.Section; position: Basic.Position; procedure: SyntaxTree.Procedure; callconv: LONGINT); 
@@ -408,7 +408,7 @@ TYPE
 		PROCEDURE ^ IndexDesignator(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ PrepareTensorDescriptor(expression: SyntaxTree.IndexDesignator): SyntaxTree.Variable; 
-		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; numberRegister: LONGINT); 
+		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; register: WORD); 
 		PROCEDURE ^ VisitStatementDesignator*(x: SyntaxTree.StatementDesignator); 
 		PROCEDURE ^ InlineProcedureCall(x: SyntaxTree.ProcedureCallDesignator): BOOLEAN; 
 		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
@@ -614,8 +614,8 @@ TYPE
 		experiment: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
+		PROCEDURE ^ ResetParameterRegisters*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 
 		PROCEDURE ^ SupportedImmediate*(CONST op: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ ProcessSyntaxTreeModule*(syntaxTreeModule: SyntaxTree.Module): Formats.GeneratedModule; 

Win64/bin/FoxSemanticChecker.SymWw

@@ -45,7 +45,6 @@ TYPE
 	VAR 
 		module: SyntaxTree.Module; 
 		diagnostics: Diagnostics.Diagnostics; 
-		useDarwinCCalls: BOOLEAN; 
 		cooperative: BOOLEAN; 
 		error-: BOOLEAN; 
 		VerboseErrorMessage: BOOLEAN; 
@@ -74,7 +73,7 @@ TYPE
 		cellsAreObjects: BOOLEAN; 
 		variableAccessed: BOOLEAN; 
 
-		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
+		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
 		PROCEDURE ^ Error(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ Warning(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS(position: Position; CONST msg, msg2: ARRAY OF CHAR); 
@@ -360,7 +359,7 @@ TYPE
 	PROCEDURE ^ FindSuperProcedure*(scope: SyntaxTree.RecordScope; procedure: SyntaxTree.Procedure): SyntaxTree.Procedure; 
 	PROCEDURE ^ GetConstructor(record: SyntaxTree.RecordType): SyntaxTree.Procedure; 
 	PROCEDURE ^ EnterCase(VAR root: SyntaxTree.CaseConstant; min, max: Basic.Integer): BOOLEAN; 
-	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
+	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
 	PROCEDURE ^ NewWarnings*(diagnostics: Diagnostics.Diagnostics): Warnings; 
 	PROCEDURE ^ IsRangeType(type: SyntaxTree.Type): BOOLEAN; 
 	PROCEDURE ^ IsMathArrayType(type: SyntaxTree.Type): BOOLEAN; 

Win64/bin/FoxSyntaxTree.SymWw

@@ -4,10 +4,9 @@ CONST
 	OberonCallingConvention* = 0; 
 	CCallingConvention* = 1; 
 	WinAPICallingConvention* = 2; 
-	DarwinCCallingConvention* = 3; 
-	InterruptCallingConvention* = 4; 
-	PlatformCallingConvention* = 5; 
-	UndefinedCallingConvention* = 6; 
+	InterruptCallingConvention* = 3; 
+	PlatformCallingConvention* = 4; 
+	UndefinedCallingConvention* = 5; 
 	InternalRead* = 0; 
 	InternalWrite* = 1; 
 	ProtectedRead* = 2; 

WinAos/obg/Compiler.SymW

@@ -9,13 +9,12 @@ CONST
 	FindPC* = 5; 
 	Warnings* = 7; 
 	ForceModuleBodies* = 8; 
-	UseDarwinCCalls* = 9; 
-	SingleModule* = 10; 
-	Oberon07* = 11; 
-	ChangeCase* = 12; 
-	Cooperative* = 13; 
-	CellsAreObjects* = 14; 
-	UseLineNumbers* = 15; 
+	SingleModule* = 9; 
+	Oberon07* = 10; 
+	ChangeCase* = 11; 
+	Cooperative* = 12; 
+	CellsAreObjects* = 13; 
+	UseLineNumbers* = 14; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 

WinAos/obg/FoxAMDBackend.SymW

@@ -207,14 +207,16 @@ TYPE
 		forceFPU: BOOLEAN; 
 		winAPIRegisters: ARRAY 4 OF LONGINT; 
 		cRegisters: ARRAY 6 OF LONGINT; 
+		intParameterIndex: WORD; 
+		floatParameterIndex: WORD; 
 
 		PROCEDURE ^  & InitBackendAMD64; 
 		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; flags: SET; checker: SemanticChecker.Checker; system: Global.System); 
 		PROCEDURE ^ GetSystem*(): Global.System; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
 		PROCEDURE ^ HardwareIntegerRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
 		PROCEDURE ^ HardwareFloatRegister(index: LONGINT; sizeInBits: LONGINT): LONGINT; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ ResetParameterRegisters*; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
 		PROCEDURE ^ SupportedInstruction*(CONST instruction: IntermediateCode.Instruction; VAR moduleName, procedureName: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ GenerateBinary(module: Sections.Module; dump: Streams.Writer); 
 		PROCEDURE ^ ProcessIntermediateCodeModule*(intermediateCodeModule: Formats.GeneratedModule): Formats.GeneratedModule; 

WinAos/obg/FoxIntermediateBackend.SymW

@@ -86,8 +86,8 @@ CONST
 	ProtectModulesPointers = FALSE; 
 	CreateProcedureDescInfo = TRUE; 
 	WarningDynamicLoading = FALSE; 
-	SysvABI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention}; 
-	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.DarwinCCallingConvention, SyntaxTree.WinAPICallingConvention}; 
+	SysvABI = {SyntaxTree.CCallingConvention}; 
+	SysvABIorWINAPI = {SyntaxTree.CCallingConvention, SyntaxTree.WinAPICallingConvention}; 
 TYPE 
 	Position = SyntaxTree.Position; 
 
@@ -315,7 +315,7 @@ TYPE
 		PROCEDURE ^ TraceExit(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ Emit(instruction: IntermediateCode.Instruction); 
 		PROCEDURE ^ EmitTrap(position: Position; trapNo: LONGINT); 
-		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT; numRegs: LONGINT); 
+		PROCEDURE ^ EmitEnter(section: IntermediateCode.Section; position: Position; procedure: SyntaxTree.Procedure; callconv: LONGINT; varSize: LONGINT); 
 		PROCEDURE ^ Enter(position: Position; callconv: LONGINT; varSize: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ Leave(position: Position; callconv: LONGINT): IntermediateCode.Instruction; 
 		PROCEDURE ^ EmitLeave(section: IntermediateCode.Section; position: Basic.Position; procedure: SyntaxTree.Procedure; callconv: LONGINT); 
@@ -408,7 +408,7 @@ TYPE
 		PROCEDURE ^ IndexDesignator(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ VisitIndexDesignator*(x: SyntaxTree.IndexDesignator); 
 		PROCEDURE ^ PrepareTensorDescriptor(expression: SyntaxTree.IndexDesignator): SyntaxTree.Variable; 
-		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; numberRegister: LONGINT); 
+		PROCEDURE ^ PushParameter(expression: SyntaxTree.Expression; parameter: SyntaxTree.Parameter; callingConvention: LONGINT; needsParameterBackup: BOOLEAN; VAR parameterBackup: IntermediateCode.Operand; register: WORD); 
 		PROCEDURE ^ VisitStatementDesignator*(x: SyntaxTree.StatementDesignator); 
 		PROCEDURE ^ InlineProcedureCall(x: SyntaxTree.ProcedureCallDesignator): BOOLEAN; 
 		PROCEDURE ^ VisitProcedureCallDesignator*(x: SyntaxTree.ProcedureCallDesignator); 
@@ -614,8 +614,8 @@ TYPE
 		experiment: BOOLEAN; 
 
 		PROCEDURE ^  & InitIntermediateBackend*; 
-		PROCEDURE ^ NumberParameterRegisters*(callingConvention: SyntaxTree.CallingConvention): SIZE; 
-		PROCEDURE ^ ParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; index: LONGINT): LONGINT; 
+		PROCEDURE ^ GetParameterRegister*(callingConvention: SyntaxTree.CallingConvention; type: IntermediateCode.Type; VAR register: WORD): BOOLEAN; 
+		PROCEDURE ^ ResetParameterRegisters*; 
 		PROCEDURE ^ GenerateIntermediate*(x: SyntaxTree.Module; supportedInstruction: SupportedInstructionProcedure; supportedImmediate: SupportedImmediateProcedure): Sections.Module; 
 		PROCEDURE ^ SupportedImmediate*(CONST op: IntermediateCode.Operand): BOOLEAN; 
 		PROCEDURE ^ ProcessSyntaxTreeModule*(syntaxTreeModule: SyntaxTree.Module): Formats.GeneratedModule; 

WinAos/obg/FoxSemanticChecker.SymW

@@ -45,7 +45,6 @@ TYPE
 	VAR 
 		module: SyntaxTree.Module; 
 		diagnostics: Diagnostics.Diagnostics; 
-		useDarwinCCalls: BOOLEAN; 
 		cooperative: BOOLEAN; 
 		error-: BOOLEAN; 
 		VerboseErrorMessage: BOOLEAN; 
@@ -74,7 +73,7 @@ TYPE
 		cellsAreObjects: BOOLEAN; 
 		variableAccessed: BOOLEAN; 
 
-		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
+		PROCEDURE ^  & InitChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR); 
 		PROCEDURE ^ Error(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ Warning(position: Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ErrorSS(position: Position; CONST msg, msg2: ARRAY OF CHAR); 
@@ -360,7 +359,7 @@ TYPE
 	PROCEDURE ^ FindSuperProcedure*(scope: SyntaxTree.RecordScope; procedure: SyntaxTree.Procedure): SyntaxTree.Procedure; 
 	PROCEDURE ^ GetConstructor(record: SyntaxTree.RecordType): SyntaxTree.Procedure; 
 	PROCEDURE ^ EnterCase(VAR root: SyntaxTree.CaseConstant; min, max: Basic.Integer): BOOLEAN; 
-	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, useDarwinCCalls, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
+	PROCEDURE ^ NewChecker*(diagnostics: Diagnostics.Diagnostics; verboseErrorMessage, cooperative: BOOLEAN; system: Global.System; symbolFileFormat: Formats.SymbolFileFormat; VAR importCache: SyntaxTree.ModuleScope; CONST backend: ARRAY OF CHAR): Checker; 
 	PROCEDURE ^ NewWarnings*(diagnostics: Diagnostics.Diagnostics): Warnings; 
 	PROCEDURE ^ IsRangeType(type: SyntaxTree.Type): BOOLEAN; 
 	PROCEDURE ^ IsMathArrayType(type: SyntaxTree.Type): BOOLEAN; 

WinAos/obg/FoxSyntaxTree.SymW

@@ -4,10 +4,9 @@ CONST
 	OberonCallingConvention* = 0; 
 	CCallingConvention* = 1; 
 	WinAPICallingConvention* = 2; 
-	DarwinCCallingConvention* = 3; 
-	InterruptCallingConvention* = 4; 
-	PlatformCallingConvention* = 5; 
-	UndefinedCallingConvention* = 6; 
+	InterruptCallingConvention* = 3; 
+	PlatformCallingConvention* = 4; 
+	UndefinedCallingConvention* = 5; 
 	InternalRead* = 0; 
 	InternalWrite* = 1; 
 	ProtectedRead* = 2;