Author: wmb Date: 2007-08-17 20:31:38 +0200 (Fri, 17 Aug 2007) New Revision: 561
Modified: cpu/x86/kernel.bth cpu/x86/savemeta.fth Log: Yet another step in the pstr-elimination sage, see r521.
Modified: cpu/x86/kernel.bth =================================================================== --- cpu/x86/kernel.bth 2007-08-17 18:25:27 UTC (rev 560) +++ cpu/x86/kernel.bth 2007-08-17 18:31:38 UTC (rev 561) @@ -117,7 +117,8 @@ hex
\Tags close-tag-file -\NotTags .( --- Saving ) dic-file-name ". .( ---) dic-file-name save-meta cr +\NotTags .( --- Saving ) dic-file-name ". .( ---) +dic-file-name count $save-meta cr
\ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks
Modified: cpu/x86/savemeta.fth =================================================================== --- cpu/x86/savemeta.fth 2007-08-17 18:25:27 UTC (rev 560) +++ cpu/x86/savemeta.fth 2007-08-17 18:31:38 UTC (rev 561) @@ -8,7 +8,7 @@ 0f + 4 >> ;
-: save-meta ( str -- ) +: $save-meta ( filename$ -- ) \ origin-t >hostaddr here-t origin-t - save-image
origin-t origin-t h# 1c + le-l!-t \ Relocation base of saved image @@ -17,7 +17,7 @@ origin-t >hostaddr is code-adr makeheader
- new-file + $new-file exp-header /exp-header ofd @ fputs code-adr code-size ofd @ fputs relocation-map-t reloc-size ofd @ fputs