help-smalltalk
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Help-smalltalk] Re: Wrong path in gst.im


From: Paolo Bonzini
Subject: [Help-smalltalk] Re: Wrong path in gst.im
Date: Fri, 09 Mar 2007 14:06:09 +0100
User-agent: Thunderbird 1.5.0.10 (Macintosh/20070221)

Thomas Girard wrote:
> On Fri, Mar 09, 2007 at 01:58:59PM +0100, Paolo Bonzini wrote:
>>> I have noticed that path to *some* Smalltalk files are not correctly
>>> kept inside the `gst.im' file. The last path part is stripped.
> 
> [...]
> 
>> What version is this?
> 
> Oops, sorry. That's version 2.3.3.

Sigh.  As soon as I found time to fix Sungjin and Brad's reported
bugs, I'll release 2.3.4.  In the meanwhile, here's the patch.

--- orig/scripts/Finish.st
+++ mod/scripts/Finish.st
@@ -43,11 +43,12 @@ ok ifFalse: [ ObjectMemory quit: 1 ]!
 
 "Remove DESTDIR and references to the build directory, from the paths
  stored in the image"
-| newImagePath newKernelBasePath |
+| newImagePath oldKernelBasePath newKernelBasePath |
+oldKernelBasePath := File pathFor: KernelFilePath.
 newKernelBasePath := Smalltalk arguments at: 1.
 newImagePath := Smalltalk arguments at: 2.
-KernelFilePath = newKernelBasePath
-    ifFalse: [ FileSegment relocateFrom: KernelFilePath to: newKernelBasePath 
].
+oldKernelBasePath = newKernelBasePath ifFalse: [
+    FileSegment relocateFrom: oldKernelBasePath to: newKernelBasePath ].
 
 ImageFileName := 'gst.im'.
 ImageFilePath := newImagePath.

Paolo




reply via email to

[Prev in Thread] Current Thread [Next in Thread]