TweetFollow Us on Twitter

Sep 96 Top 10
Volume Number:12
Issue Number:9
Column Tag:Symantec Top Ten

Symantec Top 10

By Craig Conner

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

This month we start with a few THINK Pascal questions, then run through questions dealing with exception handling (or lack thereof), and then finish off with some miscellaneous topics.

The first question is from a news post:

Q: I have a large THINK Pascal project that I have always compiled for 68K with a floating-point unit. I now want to compile for a 68030-based PowerBook that has no FPU. Unfortunately, I am having some problems linking. If I turn off 68881/68882 under Code Generation in the Compile Options dialog, I get a link error:

undefined: 3SINH2 (Activation.p)

undefined: 3TANH2 (Activation.p)

I need to use these functions but I do not know how to get rid of this error. I did remove the SANELib881.lib library and replace it with SANELib.lib, but I still get the error. Any suggestions?

A: Unfortunately, those functions are defined in SANE.p only if you are compiling with 68881/68882 on. Fortunately, here are sinh, cosh, and tanh defined:

 function SinH(x:real):extended;
 begin
 sinH:=(exp(x) - exp(-x))/2;
 end;

 function CosH(x:real):extended;
 begin
 cosH := (exp(x)+exp(-x))/2;
 end;

 function TanH(x:real):extended;
 begin
 TanH := SinH(x)/CosH(x);
 end;

 TanH can be optimized like this:

 function TanH(x:real):extended;
 var
 eToX, eToNegX:extended;
 begin
 eToX := exp(x);
 eToNegX := exp(-x);
 TanH := ( eToX - eToNegX ) / (eToX + eToNegX);
 end;

It will be a tad slower than using SANE, but it will work. You can look at how exp(x) works on p. 358 of the THINK Pascal Users Manual, and the hyperbolic functions in any trigonometry textbook.

Q: When using THINK Pascal, I want to create my own pattern for use with the PenPat routine. How do I do this?

A: You should use the StuffHex routine (QuickDraw) to build your patterns. StuffHex will interpret its argument as an 8-by-8 bit-pattern with 1’s denoting “on” bits, and 0’s denoting “off” bits. Like so:

var
 myPat :Pattern;

StuffHex(@myPat, 'FFFFFFFFFFFFFFFF'); {All on}

Q: In THINK Pascal, whenever I try TextFace(bold), I get an “incompatible type” error. Why?

A: The “styles” used in Pascal are values in a set and need to be expressed as [bold], [underline], [italic], etc. Normal text is specified as the empty set, []. Try:

TextFace([bold]);


Q: In a TCL project that I am updating to version 8.1, I get an “undefined” error on catch_. What might cause this?

A: If you are using native exceptions (which is standard for 8.1 projects), catch_ has been redefined as catch_reference. Here is an example:

try_
{
   DoIt();
}
catch_reference(CException, e)
{
   errVal = e.GetErr();
}
catch_all_()
{
   errVal = -1;
}
end_try_

Q: I have just completed my latest project using TCL, and want to use MrC++ for the finishing touch. However, I get link errors when trying to build it. Why?

A: MrC and MrC++ do not have native exceptions built in, so you need to change the libraries some to get your project to link correctly. Remove the current CPlusLib TCL.o and BRLib libraries, and replace them with the ones that use the non-native exception handling. These are CPlusLib TCL_BELeh.o and BRLib(non-native eh).o. That should get it working.

Q: I just saw a note in the fp.h header recently about dtox80 and x80tod being contained in a library called MathLib v.2. Why was it not included on the last CD?

A: That note in the header file is premature. Apple has not released a new version yet. Currently you can use ldtox80 and x80told and they will work correctly.

Q: While compiling the OpenDoc project ODFFramewrk.RB.Π I get “not enough memory” errors when trying to load the precompiled header called ODFHeaders.RB. How can I fix this?

A: The obvious answer is to get more RAM. OpenDoc will require at least 32 megs, and the more the merrier. Turning on Virtual Memory should also work, but will slow compiling down. If Virtual Memory is too slow, you can change the size of the precompiled header using a switch set up for the headers. In the ODF.pch file, there is a:

#define FW_AGGRESSIVE_PRECOMPILE 1

Change this to 0 and then do the same for FWEnvDev.h. After re-precompiling, the ODFHeaders.RB file will be smaller.

Q: I am trying to build a 68K version of one of my SPM projects. I get the following error at link time using Link via ToolServer:

### While reading file "long pathname:MPW68KRuntime.o.o"
### Link: Error: PC-relative edit, offset out of range.
(Error 48) %__MAIN (309)
Reference to: main in file: pathname:main.cp.o

A: There are some nuances that you need to take care of when using ToolServer to link a 68K application in the link order file (the .lo file). The MPW68KRuntime library uses Near code, so it needs to be near the top of the list (in one of the first two segments that get created). Also, since that library calls the main routine, the file that contains that routine needs to be near that library. If you get a similar error after rearranging, then you need to turn on Far Code in the linker options, and use Far libraries where possible. Any library that does not have a Far version (like the runtime lib) needs to go near the top of the list.

Q: When using the alloc_gla memory package with the Vector demo, it reports heap corruption. What is wrong with the example?

A: Looking at the example, we see code like this:

    vector(int size)   { v = new T[size]; sz = size; };
    ~vector()          { delete v; };

This code may have been correct at one time, but nowadays it is not. Since the new call allocates an array, the delete operator is no longer the proper operator to use. Instead, the delete[] operator should be used, and alloc_gla will stop complaining:

    vector(int size)   { v = new T[size]; sz = size; };
    ~vector()          { delete[] v; };

Q: If I realign a structure like so:

#pragma options align=mac68k
struct{
...
}myStruct;
#pragma options align=powerpc 

my program crashes when trying to use myStruct. What might be happening?

A: The default setup for PPC projects is to use four-byte boundaries. align=powerpc will align to two-byte boundaries, and could cause incompatibilities. Use #pragma options align=reset instead, and that should fix the problem.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Goat Simulator Waste of Space (Games)
Goat Simulator Waste of Space 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICESiPhone 4S, iPad 2, iPod Touch 5 or better.** | Read more »
Wildfulness - Unwind in nature and calm...
Wildfulness - Unwind in nature and calm your mind with nature sounds and illustrations 1.0 Device: iOS Universal Category: Healthcare & Fitness Price: $1.99, Version: 1.0 (iTunes) Description: Spending time in nature helps you to... | Read more »
Dr. Panda Racers (Education)
Dr. Panda Racers 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: STEP ON THE GAS, RACE AND WIN!Fasten your seat belts and get ready to race! Speed your way to the finish line while doing... | Read more »
ROMANCING SAGA 2 (Games)
ROMANCING SAGA 2 1.0.0 Device: iOS Universal Category: Games Price: $17.99, Version: 1.0.0 (iTunes) Description: Romancing SaGa 2, originally released only in Japan in 1993, has been completely remastered and now receives its first... | Read more »
WRIO Keyboard (Utilities)
WRIO Keyboard 1.0 Device: iOS iPhone Category: Utilities Price: $2.99, Version: 1.0 (iTunes) Description: 40% OFF DURING LIMITED INTRODUCTORY OFFER | Read more »
Hatoful Boyfriend (Games)
Hatoful Boyfriend 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The hit PC game that everybirdie loves has now migrated to your mobile device! Now you are free to explore the wonders of St... | Read more »
Warp Shift (Games)
Warp Shift 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: [ CHECK YOUR HARDWARE: Warp Shift does NOT run on iPhone 4, iPad 1 and iPod touch 4G or older devices! It requires at least iOS8... | Read more »
Lifeline: Whiteout (Games)
Lifeline: Whiteout 1.0.2 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.2 (iTunes) Description: Alone in a frozen wasteland with no memory of how he got there, a lost adventurer’s only hope is his last line of... | Read more »
Castles of Mad King Ludwig (Games)
Castles of Mad King Ludwig 1.0.1 Device: iOS Universal Category: Games Price: $6.99, Version: 1.0.1 (iTunes) Description: | Read more »
How to command and conquer in Raid HQ
Raid HQ is a satisfyingly deep base building game with over-the-top macho action and explosions. This little free to play bundle gives you a lot to do from managing a squad to building the most powerful base you possibly can. [Read more] | Read more »

Price Scanner via MacPrices.net

15-inch Retina MacBook Pros on sale for up to...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 3.1GHz iMac 4K: $1379.99 $120 off MSRP - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1... Read more
Kanex Introduces GoPower USB-C Rechargeable B...
Kanex has announced its GoPower USB-C portable battery for the USB-C MacBook, featuring the new industry standard connector and cable used for connectivity and power. Providing users with a new... Read more
Convertible and Detachable Devices Winning Ov...
According to the latest figures published by International Data Corporation (IDC), Western European shipments of ultraslim convertibles and detachables posted positive growth (44.7%) to account for... Read more
New MacBook Pros And Will MacBook Air Be Upgr...
With my mid-2013 13-inch MacBook Air closing on its third anniversary come November, I’m in system upgrade mode. Actually the Haswell CPU equipped Air is still doing a fine job, but my good wife is... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more

Jobs Board

Editor, *Apple* News - APPLE (United States...
Job Summary The Apple News team is looking for a passionate and knowledgeable editor with experience covering entertainment/pop culture and experience running social Read more
*Apple* Nissan Service Technicians - Apple A...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive , Read more
ISCS *Apple* ID Site Support Engineer - APP...
…position, we are looking for an individual who has experience supporting customers with Apple ID issues and enjoys this area of support. This person should be Read more
Automotive Sales Consultant - Apple Ford Linc...
…you. The best candidates are smart, technologically savvy and are customer focused. Apple Ford Lincoln Apple Valley is different, because: $30,000 annual salary Read more
*Apple* Support Technician II - Worldventure...
…global, fast growing member based travel company, is currently sourcing for an Apple Support Technician II to be based in our Plano headquarters. WorldVentures is Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.