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

made sure that the references section is included in object files, and particular that it is linked to the static image

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7603 8c9fc860-2736-0410-a75d-ab315db34111
felixf 7 years ago
parent
b348f5ed82
commit
522e854ed9
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 

@@ -13082,6 +13082,7 @@ TYPE
 
 			AddPointer(typeInfoSection, typeInfoSectionOffset);
 
 			AddPointer(typeInfoSection, typeInfoSectionOffset);
 
 			TypeInfoSection(typeInfoSection);
 
 			TypeInfoSection(typeInfoSection);
 
 			referenceSection := Block("Heaps","SystemBlockDesc",".@References",referenceSectionOffset);
 
 			referenceSection := Block("Heaps","SystemBlockDesc",".@References",referenceSectionOffset);
 
+			referenceSection.SetExported(TRUE);
 
 			References(referenceSection);
 
 			References(referenceSection);
 
 			procTableSection := Block("Heaps","SystemBlockDesc",".@ProcTable",procTableSectionOffset);
 
 			procTableSection := Block("Heaps","SystemBlockDesc",".@ProcTable",procTableSectionOffset);
 
 			ProcedureDescriptorArray(procTableSection, numberProcs);
 
 			ProcedureDescriptorArray(procTableSection, numberProcs);