Turbo Pascal 6 patch

Hi,

You're still using TP6? This patch may be useful...

What does it do? Two things:

1 - It makes compiler option G+ the default
2 - It replaces the generation of ENTER & LEAVE for procedures with the faster
push bp; move bp,sp & pop bp instructions.

Comparing files TPCP.EXE and TPC.EXE (Size: 69214  Date: 1990-10-23 @ 6:00)
                   ^- My patched copy

      New   Old

0269: 37    17 Makes G+ default

69D7: 90    B0 -+- Disable generation of ENTER
69D8: 90    C8  |  in the $G+ state, and fall
69D9: 90    E8  |  through into the 8086 code
69DA: 90    3D  |  generation, as ENTER is slow
69DB: 90    B7  |  on the 486 and higher
69DC: 90    A1  |
69DD: 90    5A  |
69DE: 90    2A  |
69DF: 90    F7  |
69E0: 90    D8  |
69E1: 90    E8  |
69E2: 90    46  |
69E3: 90    B7  |
69E4: 90    B0  |
69E5: 90    00  |
69E6: 90    E9  |
69E7: 90    30  |
69E8: 90    B7 -+

6A26: 90    B0 -+- Same for LEAVE
6A27: 90    C9  |
6A28: 90    E9  |
6A29: 90    EE  |
6A2A: 90    B6 -+

FA40: 2D    2B -+- "-" New text to reflect that G+ is

FA4B: 38    32 -+- "8" now the default state.
FA4C: 36    38  |  "6"
FA4D: 20    36  |  " "
FA4E: 69    20  |  "i"
FA4F: 6E    69  |  "n"
FA50: 73    6E  |  "s"
FA51: 74    73  |  "t"
FA52: 72    74  |  "r"
FA53: 75    72  |  "u"
FA54: 63    75  |  "c"
FA55: 74    63  |  "t"
FA56: 69    74  |  "i"
FA57: 6F    69  |  "o"
FA58: 6E    6F  |  "n"
FA59: 73    6E  |  "s"
FA5A: 20    73 -+  " "

It is of course possible to make the same change to TP6.01 and TP/BP
7.00/7.01, if you do so, please post the locations to patch.

Robert
--
Robert AH Prins
prin...@wcg.co.uk

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/   Now offering spam-free web-based newsreading