그러네요

빌더 님이 쓰신 글 :
: Lyn 님이 쓰신 글 :
: : 메모리 관리자가 2G 넘는 단일블럭을 지원 안할 뿐입니다.
: : 1G 씩 짤라서 여러번 할당하면 잘 됩니다
: :
: : (C#, Java도 2G넘는 블럭을 할당 할 수 없습니다... 현실적으로 블럭크기에 관계없이 할당 가능한 컴파일러는 VC++/IC++ 정도인듯)
: :
: : 윤승환 님이 쓰신 글 :
: : : 델마당에도 질문을 올렸는데 아무래도 64bit 프로그래밍해보신 분이 많지 않은 것 같네요.
: : : 경험있으신 분 의견 좀 부탁드립니다.
: : :
: : :
: : : ---------------------------------------------------------------------------
: : : XE2 Professional 구입/설치 후 처음 확인해보는 것이 64bit를 지원하는가였습니다.
: : :
: : : 테스트 방법의 문제인지 뭔가 설정을 해야하는데 빠뜨린 것인지
: : : 2GB를 초과하는 메모리쓰기는 여전히 실패하는군요.
: : :
: : :
: : : 64bit 프로그래밍해보신 분 계신지요?
: : :
: : :
: : :
: : : 환경: Windows 7 64 bit, 8GB RAM, 16GB 페이지 파일
: : :
: : :
: : : 1. target platform을 Win64로 변경하고 Win32는 삭제..
: : : 2. 아래 코드 입력 후 실행하면 정상 동작합니다.
: : :
: : : 3. 이제 GBSIZE=3로 변경 후 재실행 -> 오류 발생
: : :
: : :
: : :
: : : procedure TForm1.FormCreate(Sender: TObject);
: : : const
: : :   GBSIZE  =2;
: : : var
: : :   pMem  :PByte;
: : :   nSize :Int64;
: : :   i     :integer;
: : : begin
: : :   nSize :=1024*1024*1024{GB};
: : :   nSize :=nSize*GBSIZE;
: : :   pMem  :=AllocMem(nSize);
: : :
: : :
: : :   for i := 0 to GBSIZE*1024*1024-1 do
: : :     TRY
: : :       FillChar(pMem[i*1024],1024,0);
: : :     EXCEPT
: : :       OutputDebugString(PWideChar(Format('%d',[i])));
: : :     END;
: : : end;
:
:
:
:
: 답변:
:
: Lyn 님께서... 2GB 넘는 단일 블럭은 지원하지 않기때문에, 1GB 씩 나눠서 할당해야 한다고 답변하셨는데...
: 무엇을 근거로 그렇게 말씀하시는지 이해가 안갑니다. 제가 사용하는 컴도 Windows 7 64 bit 8GB RAM 입니다.
:
: 64비트 Native 컴파일러가 괜히 64비트 컴파일러겠습니까. 한번에 3GB 메모리 할당도 잘됩니다.
:
: 문제는 컴파일러에 있는게 아니고,  질문 올린 윤승환님의 소스코드에 버그가 있기 때문 입니다.
:
: 0 부터 GBSIZE*1024*1024-1 까지 루프를 돌리고 있는데,  FillChar(pMem[i*1024],1024,0); 식으로
: 메모리를 액세스 하면 당연히 문제가 발생할 수 밖에 없죠.
:
: 아래 소스를 참고 하세요. 3GB를 한번에 할당하고, FillChar 를 빨리 수행하기 위해서 MB 블럭 단위로
: 메모리 액세스하는 코드 입니다. Windows 7 64bit 8GB Memory 컴에서 테스트 한 겁니다.
:
:

: 
: procedure TForm1.Button1Click(Sender: TObject);
: const
:   GBSIZE = 1024 * 1024 * 1024;
:   MBSIZE = 1024 * 1024;
: 
: var
:   pMem      : PByte;
:   nGBSize   : Cardinal;
:   nMBBlocks : Cardinal;
:   I         : Cardinal;
: 
: begin
:   nGBSize   := GBSIZE;
:   nGBSize   := nGBSize * 3;    // 3GB
:   nMBBlocks := nGBSize div MBSIZE;
:   try
:       try
:         pMem  := AllocMem( nGBSize );
:         Caption := '3GB Memory Allocated...';
: 
:         for I := 0 to nMBBlocks - 1 do
:           FillChar( pMem[I * MBSIZE], MBSIZE, 0);
:       except
:         on EOutOfMemory do Caption := 'Fail - Not Enough Memory...';
:       end;
:   finally
:       FreeMem(pMem);
:   end;
: end;
: 
: