Home Explore Help
Register Sign In
oberon
/
A2OS
mirror of https://github.com/yarrom/A2OS.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

Patched length check for statically sized parameter arrays

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6862 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 years ago
parent
865bc4d205
commit
ea5edecbe9
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      source/FoxIntermediateBackend.Mod

+ 1 - 0
source/FoxIntermediateBackend.Mod
View File 

@@ -9485,6 +9485,7 @@ TYPE
 
 				END;
 
 				END;
 
 			ELSIF IsStaticArray(type) & (x.kind = SyntaxTree.ValueParameter) THEN
 
 			ELSIF IsStaticArray(type) & (x.kind = SyntaxTree.ValueParameter) THEN
 
 				IntermediateCode.AddOffset(result.op,ToMemoryUnits(system,x.offsetInBits));
 
 				IntermediateCode.AddOffset(result.op,ToMemoryUnits(system,x.offsetInBits));
 
+				IntermediateCode.InitImmediate(result.tag,addressType,type(SyntaxTree.ArrayType).staticLength);
 
 			ELSIF IsStaticArray(type) THEN
 
 			ELSIF IsStaticArray(type) THEN
 
 				IntermediateCode.AddOffset(result.op,ToMemoryUnits(system,x.offsetInBits));
 
 				IntermediateCode.AddOffset(result.op,ToMemoryUnits(system,x.offsetInBits));
 
 				IntermediateCode.MakeMemory(result.op,addressType);
 
 				IntermediateCode.MakeMemory(result.op,addressType);