[Top][All Lists]
[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