Преглед на файлове

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.