git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7336 8c9fc860-2736-0410-a75d-ab315db34111
@@ -13031,7 +13031,9 @@ TYPE
PROCEDURE PatchCRC(crc: LONGINT);
BEGIN
- PatchLongint(ModuleSection(), patchCRC, crc);
+ IF implementationVisitor.newObjectFile & ~simple THEN
+ PatchLongint(ModuleSection(), patchCRC, crc);
+ END;
END PatchCRC;