Author: mdiep Date: Thu Jan 25 08:21:38 2007 New Revision: 16790 Modified: trunk/languages/tcl/runtime/builtin/source.pir
Log: [tcl]: Fix things on Windows, step 2. Modified: trunk/languages/tcl/runtime/builtin/source.pir ============================================================================== --- trunk/languages/tcl/runtime/builtin/source.pir (original) +++ trunk/languages/tcl/runtime/builtin/source.pir Thu Jan 25 08:21:38 2007 @@ -50,7 +50,9 @@ inc $I0 $I2 = $I0 $I1 = ord contents, $I2 - if $I1 != 10 goto backslash_loop # \n + if $I1 == 10 goto space # \n + if $I1 == 13 goto space # \r + goto backslash_loop space: inc $I2 if $I0 >= len goto execute
