Преглед изворни кода

Avoid resetting of casmdata from TPPCAsmData back to TAsmDataDef

git-svn-id: trunk@34375 -
pierre пре 9 година
родитељ
комит
628d7dcb05
1 измењених фајлова са 3 додато и 1 уклоњено
  1. 3 1
      compiler/aasmdef.pas

+ 3 - 1
compiler/aasmdef.pas

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