Browse Source

only use base file name (not including directory) for generating unique boot_xxxx name

Nicolas Cannasse 13 years ago
parent
commit
28249732c5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      genswf.ml

+ 1 - 1
genswf.ml

@@ -793,7 +793,7 @@ let build_swf8 com codeclip exports =
 	clips @ code
 
 let build_swf9 com file swc =
-	let boot_name = if swc <> None || Common.defined com "haxe-boot" then "haxe" else "boot_" ^ (String.sub (Digest.to_hex (Digest.string file)) 0 4) in
+	let boot_name = if swc <> None || Common.defined com "haxe-boot" then "haxe" else "boot_" ^ (String.sub (Digest.to_hex (Digest.string (Filename.basename file))) 0 4) in
 	let code = Genswf9.generate com boot_name in
 	let code = (match swc with
 	| Some cat ->