Forráskód Böngészése

Avoid resetting of casmdata from TPPCAsmData back to TAsmDataDef

git-svn-id: trunk@34375 -
pierre 9 éve
szülő
commit
628d7dcb05
1 módosított fájl, 3 hozzáadás és 1 törlés
  1. 3 1
      compiler/aasmdef.pas

+ 3 - 1
compiler/aasmdef.pas

@@ -81,6 +81,8 @@ function TAsmDataDef.DefineAsmSymbolByClass(symclass: TAsmSymbolClass; const s:
 
 
 
 
 begin
 begin
-  casmdata:=TAsmDataDef;
+  { Do not overwrite if already set, by powerpc specific code for example }
+  if not assigned(casmdata) then
+    casmdata:=TAsmDataDef;
 end.
 end.