LAN板とソレ以外の日々

OpenCOBOLでcopyする項目の長さが異なるときの処理で(´ー｀)検討

3740 return cb_build_funcall_3 ("memcpy", 3741 cb_build_cast_address (dst), 3742 cb_build_cast_address (src), 3743 cb_field_size(dst) > cb_field_size(src) ? cb_build_cast_length (src) : cb_build_cast_length (dst));
素のままだと単にmemcpyするコードが吐かれるんですが、srcとdstのうち短い方に合わせた方が良いんじゃないの？という修正例。ちなみにオリジナルのコードはdstの長さに合わせるようになってますが、src側で確保しているメモリ領域外も複製元としてreadされる（そしてSEGFAULT）場合があるので、おそらくこのコードの方が良いと考えてます。
試しに
3737 if ( cb_field_size(dst) != cb_field_size(src) ) { 3738 printf("memcpy(%s(%d),%s(%d),%d)\n", cb_field(dst)->name, cb_field_size(dst), cb_field(src)->name, cb_field_size(src), cb_field_size(dst)); 3739 }
こういうコード追加してみればわかりますが、既存のコードのあちこちに結構埋まってるものです（srcとdstの長さが異なるCOPY）
Posted by minemaz at 2009年04月24日 14:21