Quellcode durchsuchen

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 vor 9 Jahren
Ursprung
Commit
1ca5839471
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      source/FoxIntermediateBackend.Mod

+ 1 - 1
source/FoxIntermediateBackend.Mod

@@ -10916,7 +10916,7 @@ TYPE
 				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);
 					Basic.SuffixSegmentedName (name, Basic.MakeString ("@Descriptor"));
 					IntermediateCode.InitAddress(right, addressType, name, 0, 0);