[ruby-dev:9283] Re: xmalloc() in Windows

小林です。

----- Original Message -----
From: "Katsuyuki Komatsu" <[e-mail]>
Subject: [ruby-dev:9282] Re: xmalloc() in Windows


>
> あと、Data_Wrap_Struct()やData_Make_Struct()のfreeも変える
> 必要があります。ext/md5/md5init.c等で引っかかります。
>
あだっ！　確かに忘れていました。
でも、ひょっとして free()　->　xfree() の変換を
実際にやられているということですか？
いずれにせよ、変換プログラムを修正しました。
# たった一行の修正なのにずい分遅くなったような．．．
# これって、Win2K が遅いから？？
# 前は NT4.0(SP6) だったけど．．．

小林 茂雄
[e-mail]


#
# After execution,be sure to change xfree() called in
# xfree() to free() avoiding infinite recursive call
# in gc.c.
# Same as xmalloc() call in xmalloc().
#
Dir.foreach (".") do |file|
 if /\.c$|\.h$|\.y$/ =~ file
  if FileTest::exist?(file+".old")==false
   print "Processing:",file,"\n"
   File::rename(file,file+".old")
   in_file  = open(file+".old", "r")
   out_file = open(file, "w")
   while line = in_file.gets
    line.gsub!(/(\s|,)free(\(|,|\))/,'\1xfree\2')
    line.gsub!(/(\s)malloc\(/,'\1xmalloc(')
    out_file.puts(line)
   end
   in_file.close
   out_file.close
  end
 end
end
exit