2
0
Эх сурвалжийг харах

No GC meta data for exit procedures

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6764 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 жил өмнө
parent
commit
1ca5839471

+ 1 - 1
source/FoxIntermediateBackend.Mod

@@ -10916,7 +10916,7 @@ TYPE
 				InitVariables(scope);
 				InitVariables(scope);
 				
 				
 				
 				
-				IF backend.preciseGC & (x.code = NIL) & (~procedureType.noPAF) & ~procedure.isEntry THEN
+				IF backend.preciseGC & (x.code = NIL) & (~procedureType.noPAF) & ~procedure.isEntry & ~procedure.isExit THEN
 					GetCodeSectionNameForSymbol(procedure, name);
 					GetCodeSectionNameForSymbol(procedure, name);
 					Basic.SuffixSegmentedName (name, Basic.MakeString ("@Descriptor"));
 					Basic.SuffixSegmentedName (name, Basic.MakeString ("@Descriptor"));
 					IntermediateCode.InitAddress(right, addressType, name, 0, 0);
 					IntermediateCode.InitAddress(right, addressType, name, 0, 0);