From 20fea3607cce1b6c0284c7b4c3c75594589cea99 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 26 Nov 2018 22:30:05 +0000 Subject: [PATCH] * pass volatility information to llvm.memcpy git-svn-id: trunk@40376 - --- compiler/llvm/hlcgllvm.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/compiler/llvm/hlcgllvm.pas b/compiler/llvm/hlcgllvm.pas index e66f15d76f..e9206644c6 100644 --- a/compiler/llvm/hlcgllvm.pas +++ b/compiler/llvm/hlcgllvm.pas @@ -1128,9 +1128,7 @@ implementation a_load_const_cgpara(list,u64inttype,size.size,sizepara); maxalign:=newalignment(max(source.alignment,dest.alignment),min(source.alignment,dest.alignment)); a_load_const_cgpara(list,u32inttype,maxalign,alignpara); - { we don't know anything about volatility here, should become an extra - parameter to g_concatcopy } - a_load_const_cgpara(list,llvmbool1type,0,volatilepara); + a_load_const_cgpara(list,llvmbool1type,ord((vol_read in source.volatility) or (vol_write in dest.volatility)),volatilepara); g_call_system_proc(list,pd,[@destpara,@sourcepara,@sizepara,@alignpara,@volatilepara],nil).resetiftemp; sourcepara.done; destpara.done;