소스 검색

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.