Menu
▾
▴
SF.net SVN: frontierkernel: [1208] Frontier/trunk/Common/source
|
From: <kar...@us...> - 2006-04-05 23:52:11
|
Revision: 1208 Author: karstenw Date: 2006-04-05 16:51:45 -0700 (Wed, 05 Apr 2006) ViewCVS: http://svn.sourceforge.net/frontierkernel/?rev=1208&view=rev Log Message: ----------- parameter unused & name conflict fixes Modified Paths: -------------- Frontier/trunk/Common/source/OpenTransportNetEvents.c Frontier/trunk/Common/source/claybrowservalidate.c Frontier/trunk/Common/source/claylinelayout.c Frontier/trunk/Common/source/filepath.c Frontier/trunk/Common/source/kb.c Frontier/trunk/Common/source/langcard.c Frontier/trunk/Common/source/langipcmenus.c Frontier/trunk/Common/source/langvalue.c Frontier/trunk/Common/source/memory.c Frontier/trunk/Common/source/menueditor.c Frontier/trunk/Common/source/menupack.c Frontier/trunk/Common/source/opdisplay.c Frontier/trunk/Common/source/opexpand.c Frontier/trunk/Common/source/opxml.c Frontier/trunk/Common/source/process.c Frontier/trunk/Common/source/tableexternal.c Frontier/trunk/Common/source/tablepack.c Frontier/trunk/Common/source/threads.c Frontier/trunk/Common/source/zoom.c Modified: Frontier/trunk/Common/source/OpenTransportNetEvents.c =================================================================== --- Frontier/trunk/Common/source/OpenTransportNetEvents.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/OpenTransportNetEvents.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -2458,13 +2458,14 @@ return (fl); }/*fwsbackgroundtask*/ -static boolean fwsNetEventLaunch (int * dummy) { +static boolean fwsNetEventLaunch (struct hostData *data) { +#pragma unused (data) + /* Initialize the NetEvents system */ - - + if (!frontierWinSockLoaded) { //Code change by Timothy Paustian Monday, June 26, 2000 3:55:47 PM @@ -3231,7 +3232,7 @@ }/*fwslaunchacceptingthread*/ -boolean fwsNetEventListenStream (unsigned long port, long depth, bigstring callback, unsigned long refcon, unsigned long * stream, unsigned long ipaddr, long hdatabase) { +boolean fwsNetEventListenStream (unsigned long port, long depth, bigstring pCallback, unsigned long refcon, unsigned long * stream, unsigned long ipaddr, long hdatabase) { /* Set up a listner on a port */ @@ -3245,8 +3246,8 @@ TOption opt; long i; - nullterminate (callback); - TCPprintf(wsprintf(TCPmsg, "Entering fwsNetEventListenStream at line %d. Port = %ld, Depth = %ld, Refcon = %ld, Callback = %s.", __LINE__, port, depth, refcon, stringbaseaddress(callback))); + nullterminate (pCallback); + TCPprintf(wsprintf(TCPmsg, "Entering fwsNetEventListenStream at line %d. Port = %ld, Depth = %ld, Refcon = %ld, Callback = %s.", __LINE__, port, depth, refcon, stringbaseaddress(pCallback))); TCPWRITEMSG (); /* Initialize Open Transport and static data structures */ @@ -3256,7 +3257,7 @@ /* Compile and pack a code tree for the address of the daemon script */ - if (!fwsgetcallbackcodetree (callback, &hcallbacktree)) + if (!fwsgetcallbackcodetree (pCallback, &hcallbacktree)) return (false); /* Allocate and clear memory for the listener */ @@ -3271,7 +3272,7 @@ OTMemzero (listenref, sizeof (tylistenrecord)); /* Initialize further status fields */ - copystring (callback, listenref->callback); + copystring (pCallback, listenref->callback); listenref->maxdepth = depth; Modified: Frontier/trunk/Common/source/claybrowservalidate.c =================================================================== --- Frontier/trunk/Common/source/claybrowservalidate.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/claybrowservalidate.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -109,7 +109,8 @@ boolean browservalidatedrag (hdlheadrecord hsource, hdlheadrecord hdest, tydirection dir) { - +#pragma unused (hsource) + /* 5.0a5 dmb: same level, resort check is bogus; headlink lefts can be the same for a summit and its child, and two summits have different headlinklefts. but we don't @@ -150,8 +151,8 @@ } /*browservalidatedrag*/ -static boolean browsercompareforcollision (hdlheadrecord hnode, long dragmodified, bigstring bs1, bigstring bs2, ptrdraginfo draginfo) { - +static boolean browsercompareforcollision (hdlheadrecord hnode, long pdragmodified, bigstring bs1, bigstring bs2, ptrdraginfo draginfo) { +// 2006-04-03 - kw --- renamed dragmodified /* 5.0.2b18 dmb: set tmpbit of subs too, so we can detect illegal moves */ @@ -172,7 +173,7 @@ browsergetrefcon (hnode, &info); - switch (sgn (dragmodified - info.timemodified)) { + switch (sgn (pdragmodified - info.timemodified)) { case +1: (*draginfo).collisiontype |= collidewitholder; break; @@ -211,6 +212,7 @@ static boolean browsercollisiondialog (hdlheadrecord hdest, ptrdraginfo draginfo) { +#pragma unused (hdest) /* 2005-09-26 creedon: changed default order of buttons, default is Duplicate which is the safe option, checks user.prefs.flReplaceDialogExpertMode and if true Replace is the default option @@ -492,7 +494,8 @@ static boolean validatecopyvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + tydraginfo draginfo; draginfo.hcompare = hnode; Modified: Frontier/trunk/Common/source/claylinelayout.c =================================================================== --- Frontier/trunk/Common/source/claylinelayout.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/claylinelayout.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -160,6 +160,7 @@ void claysmashoutlinefields (hdlwindowinfo appwindow, hdltableformats hf) { +#pragma unused (appwindow) /* bind the outline's font and size to the font/size from the @@ -489,7 +490,8 @@ boolean claygetlineheight (hdlheadrecord hnode, short *lh) { - +#pragma unused (hnode) + *lh = getframeheight (); if (hasframe ()) @@ -582,7 +584,8 @@ boolean claypredrawline (hdlheadrecord hnode, const Rect *linerect, boolean flselected, boolean flinverted) { - +#pragma unused(flinverted) + hdltableformats hf = tableformatsdata; Rect r; @@ -750,18 +753,18 @@ /*special tweaked-up code for drawing the selected line*/ { - Rect rframe = *rtext; + Rect lrframe = *rtext; // 2006-04-03 - kw --- renamed rframe - rframe.right = rframe.left + stringpixels (bshead); + lrframe.right = lrframe.left + stringpixels (bshead); - if (rframe.right > (*rtext).right) - rframe.right = (*rtext).right; + if (lrframe.right > (*rtext).right) + lrframe.right = (*rtext).right; - rframe.bottom = rframe.top + globalfontinfo.ascent + globalfontinfo.descent; + lrframe.bottom = lrframe.top + globalfontinfo.ascent + globalfontinfo.descent; if (flinverted) { - Rect r = rframe; + Rect r = lrframe; insetrect (&r, -1, -1); @@ -782,9 +785,9 @@ /*frame the cursor*/ { - insetrect (&rframe, -texthorizinset, -textvertinset); + insetrect (&lrframe, -texthorizinset, -textvertinset); - grayframerect (rframe); + grayframerect (lrframe); } } @@ -812,7 +815,8 @@ boolean claypostdrawline (hdlheadrecord hnode, const Rect *linerect, boolean flselected, boolean flinverted) { - +#pragma unused(flselected, flinverted) + /* we draw everything but the icon and the filename, if we're in fatview mode. @@ -915,7 +919,8 @@ boolean claydrawnodeicon (hdlheadrecord hnode, const Rect *iconrect, boolean flselected, boolean flinverted) { - +#pragma unused(flinverted) + short iconnum; short transform = 0; Modified: Frontier/trunk/Common/source/filepath.c =================================================================== --- Frontier/trunk/Common/source/filepath.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/filepath.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -407,12 +407,13 @@ return (PBHGetVInfoSync ((HParmBlkPtr) &pb) == noErr); #endif - } /*getfsfile*/ + } /*getfsvolume*/ + void initfsdefault (void) { #ifdef MACVERSION /* 2005-07-18 creedon, karstenw */ getapplicationfilespec (nil, &fsdefault); #endif } /* initfsdefault */ - \ No newline at end of file + Modified: Frontier/trunk/Common/source/kb.c =================================================================== --- Frontier/trunk/Common/source/kb.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/kb.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -99,6 +99,7 @@ */ #ifdef MACVERSION +# pragma unused (flasync) KeyMap keys; GetKeys (keys); Modified: Frontier/trunk/Common/source/langcard.c =================================================================== --- Frontier/trunk/Common/source/langcard.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/langcard.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -72,7 +72,7 @@ typedef void (*tycardeventcallback)(EventRecord *); typedef long hdlcard; -extern boolean runCard (Handle hpackedcard, boolean flscriptedcard, short top, short left, void * callback); +extern boolean runCard (Handle hpackedcard, boolean flscriptedcard, short top, short pleft, void * pcallback); extern boolean runModalCard (Handle, boolean, short, short, tycardeventcallback); extern boolean runModelessCard (Handle, boolean, short, short, tycardeventcallback); extern boolean cardIsModal (Handle hpackedcard); @@ -356,7 +356,8 @@ boolean langruncard (hdltreenode hparam1, boolean flmodal, tyvaluerecord *vreturned) { - +#pragma unused(flmodal) + /* 4.0b7 dmb: use new embedded birdruncard */ Modified: Frontier/trunk/Common/source/langipcmenus.c =================================================================== --- Frontier/trunk/Common/source/langipcmenus.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/langipcmenus.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -212,15 +212,15 @@ get the menurecord for the application with the indicated id. */ - hdlhashtable menubartable; + hdlhashtable lmenubartable; bigstring bs; - if (!getmenubartable (&menubartable)) + if (!getmenubartable (&lmenubartable)) return (false); ostypetostring (id, bs); - return (menugetmenubar (menubartable, bs, false, hrecord)); + return (menugetmenubar (lmenubartable, bs, false, hrecord)); } /*getappmenurecord*/ @@ -692,7 +692,8 @@ static boolean notifyappvisit (hdlhashnode hnode, ptrvoid refcon) { - +#pragma unused (refcon) + /* if hnode is a menubar that may belong to an application, send the updatemenustoken message to that application. @@ -731,12 +732,12 @@ to let them know their menus are available */ - hdlhashtable menubartable; + hdlhashtable lmenubartable; - if (!getmenubartable (&menubartable)) + if (!getmenubartable (&lmenubartable)) return (false); - hashtablevisit (menubartable, ¬ifyappvisit, nil); + hashtablevisit (lmenubartable, ¬ifyappvisit, nil); return (true); } /*langipcmenustartup*/ @@ -754,16 +755,16 @@ new set of menus from being built */ - hdlhashtable menubartable; + hdlhashtable lmenubartable; disposeallmenulists (); - if (!getmenubartable (&menubartable)) + if (!getmenubartable (&lmenubartable)) return (false); flshuttingmenusdown = true; - hashtablevisit (menubartable, ¬ifyappvisit, nil); + hashtablevisit (lmenubartable, ¬ifyappvisit, nil); flshuttingmenusdown = false; @@ -773,12 +774,12 @@ static boolean getmenubarid (hdlhashtable htable, const bigstring bs, tyapplicationid *id) { - hdlhashtable menubartable; + hdlhashtable lmenubartable; - if (!getmenubartable (&menubartable)) + if (!getmenubartable (&lmenubartable)) return (false); - if (htable != menubartable) + if (htable != lmenubartable) return (false); return (stringtoostype ((ptrstring) bs, id)); /*false if name is longer than 4 characters*/ @@ -786,7 +787,8 @@ boolean langipcsymbolchanged (hdlhashtable htable, const bigstring bs, boolean flvalue) { - +#pragma unused(flvalue) + tyapplicationid id; if (getmenubarid (htable, bs, &id)) { Modified: Frontier/trunk/Common/source/langvalue.c =================================================================== --- Frontier/trunk/Common/source/langvalue.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/langvalue.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -2430,18 +2430,18 @@ case stringvaluetype: { bigstring bs; - unsigned long time; + unsigned long ltime; pullstringvalue (v, bs); - if (!stringtotime (bs, &time)) { + if (!stringtotime (bs, <ime)) { langerror (datecoerceerror); return (false); } - x = time; + x = ltime; break; } @@ -2893,37 +2893,33 @@ break; case binaryvaluetype: - - #if noextended - { - long double x; - extended80 x80; - - /*first do type & length checking, resulting in x80 value in v*/ - +#if noextended + { + long double lx; + extended80 x80; + + /*first do type & length checking, resulting in x80 value in v*/ + if (!coercebinaryval (v, doublevaluetype, sizeof (extended80), novaluetype)) - return (false); - - /*now convert to actual double value*/ - - - #ifdef WIN95VERSION - memmove (&x80, *((*v).data.doublevalue), sizeof (x80)); + return (false); - convertFromMacExtended (&x, &x80); - #else - x80 = (**(extended80 **) (*v).data.doublevalue); + /*now convert to actual double value*/ - safex80told (&x80, &x); - #endif - - return (setdoublevalue (x, v)); - } - - #else - - return (coercebinaryval (v, doublevaluetype, sizeof (double), novaluetype)); - +#ifdef WIN95VERSION + memmove (&x80, *((*v).data.doublevalue), sizeof (x80)); + + convertFromMacExtended (&lx, &x80); +#else + x80 = (**(extended80 **) (*v).data.doublevalue); + + safex80told (&x80, &lx); +#endif + return (setdoublevalue (lx, v)); + } +#else + + return (coercebinaryval (v, doublevaluetype, sizeof (double), novaluetype)); + #endif case listvaluetype: @@ -5503,7 +5499,7 @@ } /*dereferencevalue*/ -static boolean getvalidstringindex (tyvaluerecord *vstring, bigstring bsname, tyvaluerecord *vindex, long *index) { +static boolean getvalidstringindex (tyvaluerecord *vstring, bigstring bsname, tyvaluerecord *vindex, long *idx) { /* 2.1b3 dmb: if string is a binary, account for binary subtype @@ -5532,7 +5528,7 @@ if ((*vstring).valuetype == binaryvaluetype) /*skip binary subtype*/ ix += sizeof (OSType); - *index = ix; + *idx = ix; return (true); } /*getvalidstringindex*/ Modified: Frontier/trunk/Common/source/memory.c =================================================================== --- Frontier/trunk/Common/source/memory.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/memory.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -849,6 +849,7 @@ boolean prepareforgrowing (Handle h) { +#pragma unused (h) /* like newgrowinghandle, but for an already-existing handle. the Modified: Frontier/trunk/Common/source/menueditor.c =================================================================== --- Frontier/trunk/Common/source/menueditor.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/menueditor.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -126,7 +126,8 @@ static void megetcursornode (hdlmenurecord hm, hdlheadrecord *hcursor) { - +#pragma unused (hm) + assert (menudata != nil); *hcursor = (**(**menudata).menuoutline).hbarcursor; @@ -315,7 +316,8 @@ static boolean meclearhandlevisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + tymenuiteminfo item; if (megetmenuiteminfo (hnode, &item)) { @@ -342,6 +344,7 @@ static boolean mesomethingdirtyvisit (hdlheadrecord hnode, ptrvoid refcon) { +#pragma unused (refcon) register hdlheadrecord h = hnode; register hdloutlinerecord ho; @@ -1153,7 +1156,8 @@ static boolean mebuildcmdkeypopupvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + register hdlheadrecord h = hnode; register unsigned char ch; @@ -1560,7 +1564,8 @@ static boolean metextchangedroutine (hdlheadrecord hnode, bigstring bsorig) { - +#pragma unused (bsorig) + /* a callback routine, linked into the outlinerecord -- it gets called when the user has changed the text of one of the headlines. @@ -1742,7 +1747,7 @@ register hdlmenurecord hm; hdloutlinerecord houtline = nil; register hdloutlinerecord ho = nil; - tyconfigrecord config; + tyconfigrecord lconfig; if (!newclearhandle (longsizeof (tymenurecord), (Handle *) hmenurecord)) return (false); @@ -1768,20 +1773,20 @@ bundle { /*set the default font for the menubar outline*/ - shellgetconfig (idmenueditorconfig, &config); + shellgetconfig (idmenueditorconfig, &lconfig); - (**ho).fontnum = config.defaultfont; + (**ho).fontnum = lconfig.defaultfont; - (**ho).fontsize = config.defaultsize; + (**ho).fontsize = lconfig.defaultsize; } bundle { /*set the default font for menubar scripts*/ - langexternalgetconfig (scriptvaluetype, idscriptconfig, &config); + langexternalgetconfig (scriptvaluetype, idscriptconfig, &lconfig); - (**hm).defaultscriptfontnum = config.defaultfont; + (**hm).defaultscriptfontnum = lconfig.defaultfont; - (**hm).defaultscriptfontsize = config.defaultsize; + (**hm).defaultscriptfontsize = lconfig.defaultsize; } return (true); Modified: Frontier/trunk/Common/source/menupack.c =================================================================== --- Frontier/trunk/Common/source/menupack.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/menupack.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -208,7 +208,8 @@ static boolean mesavescriptvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + register hdlheadrecord h = hnode; //ptrpackinfo packinfo = (ptrpackinfo) refcon; register hdloutlinerecord ho; @@ -251,7 +252,8 @@ static boolean mesaveasscriptvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + /* for save as, we need to write a packed version of every script to the new file. db.c takes care of redirecting reads & writes as @@ -569,7 +571,7 @@ 4/22/91 dmb: menu outline now points to menu variable */ - register tysavedmenuinfo *pi = info; + register tysavedmenuinfo *lpi = info; register hdlmenurecord hm; register hdloutlinerecord ho; short fontnum; @@ -587,19 +589,19 @@ (**ho).outlinerefcon = (long) hm; /*pointing is mutual*/ - (**hm).adroutline = conditionallongswap((*pi).adroutline); /*keep address around for save*/ + (**hm).adroutline = conditionallongswap((*lpi).adroutline); /*keep address around for save*/ - diskrecttorect (&(*pi).scriptwindowrect, &(**hm).scriptwindowrect); + diskrecttorect (&(*lpi).scriptwindowrect, &(**hm).scriptwindowrect); - (**hm).flautosmash = ((*pi).flags & flautosmash_mask) != 0; + (**hm).flautosmash = ((*lpi).flags & flautosmash_mask) != 0; - diskrecttorect (&(*pi).menuwindowrect, &(**hm).menuwindowrect); + diskrecttorect (&(*lpi).menuwindowrect, &(**hm).menuwindowrect); - diskgetfontnum ((*pi).defaultscriptfontname, &fontnum); + diskgetfontnum ((*lpi).defaultscriptfontname, &fontnum); (**hm).defaultscriptfontnum = fontnum; - (**hm).defaultscriptfontsize = conditionalshortswap((*pi).defaultscriptfontsize); + (**hm).defaultscriptfontsize = conditionalshortswap((*lpi).defaultscriptfontsize); (**hm).menuactiveitem = menuoutlineitem; Modified: Frontier/trunk/Common/source/opdisplay.c =================================================================== --- Frontier/trunk/Common/source/opdisplay.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/opdisplay.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -596,7 +596,8 @@ static boolean opinvalnodevisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + /* 1/6/97 dmb: don't inval if getting line returns false */ @@ -673,7 +674,8 @@ static boolean opdirtymeasurementsvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + (**hnode).hpixels = (**hnode).vpixels = opdirtymeasurevalue; return (true); @@ -775,7 +777,8 @@ boolean opdefaultpredrawline (hdlheadrecord hnode, const Rect *rline, boolean flselected, boolean flinverted) { - +#pragma unused(hnode, flselected, flinverted) + pushbackcolor (&(**outlinedata).backcolor); eraserect (*rline); @@ -855,14 +858,21 @@ return (true); } /*opdefaultdrawtext*/ - -boolean opdefaultpostdrawline (hdlheadrecord hnode, const Rect * linerect, boolean flselected, boolean flinverted) { +boolean +opdefaultpostdrawline ( + hdlheadrecord hnode, + const Rect *linerect, + boolean flselected, + boolean flinverted) +{ +#pragma unused(hnode, linerect, flselected, flinverted) + return (true); } /*opdefaultpostdrawline*/ - + void opgetlineselected (hdlheadrecord hnode, boolean *flinverted, boolean *flselected) { /* Modified: Frontier/trunk/Common/source/opexpand.c =================================================================== --- Frontier/trunk/Common/source/opexpand.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/opexpand.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -52,7 +52,8 @@ static boolean opcollapsevisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + register hdlheadrecord h = hnode; if ((**h).flexpanded) { @@ -156,7 +157,8 @@ static boolean opexpandvisit (hdlheadrecord hnode, ptrvoid refcon) { - +#pragma unused (refcon) + short lh = opgetlineheight (hnode); if ((**hnode).flexpanded) { Modified: Frontier/trunk/Common/source/opxml.c =================================================================== --- Frontier/trunk/Common/source/opxml.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/opxml.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -739,7 +739,8 @@ static boolean opxmlpushattributes (hdlheadrecord hnode, Handle htext, short indentlevel) { - +#pragma unused(indentlevel) + /* 7.0b21 PBS: push the attributes onto the current <outline> item. */ @@ -1369,8 +1370,6 @@ } /*opxmlgetoneshortvalue*/ - - static boolean opxmlsetwindowpositionandsize (hdlhashtable ht, hdlwindowinfo hinfo) { /* @@ -1898,7 +1897,8 @@ extern boolean opsetheadtext (hdlheadrecord hnode, Handle hstring); static boolean opxmltooutlinevisit (hdlhashtable ht, short ixlevel, bigstring bsname, boolean flfirstline) { - +#pragma unused (bsname) + /* 7.0b21 PBS -- recursive routine for converting an XML outlineDocument structure to an outline structure. */ Modified: Frontier/trunk/Common/source/process.c =================================================================== --- Frontier/trunk/Common/source/process.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/process.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -2037,7 +2037,8 @@ static hdlthreadglobals hlatest1shot; static pascal boolean findlatest1shotvisit (hdlthreadglobals hthread, long refcon) { - +#pragma unused (refcon) + /* if this thread contains a 1-shot process, kill it and stop the visit */ @@ -2129,7 +2130,8 @@ */ static boolean findthreadvisit (bigstring bs, hdlhashnode hnode, tyvaluerecord val, ptrvoid refcon) { - +#pragma unused (bs, hnode, refcon) + return (val.data.longvalue == (long) (**hthreadglobals).idthread); } /*findvaluevisit*/ @@ -3150,7 +3152,8 @@ static pascal void *agentthreadmain (void *ignore) { - +#pragma unused (ignore) + /* 4.0.1b1 dmb: pass name of thread to initprocessthread; call exitprocessthread Modified: Frontier/trunk/Common/source/tableexternal.c =================================================================== --- Frontier/trunk/Common/source/tableexternal.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/tableexternal.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -401,15 +401,15 @@ if ((**ht).fllocaltable || ht == runtimestacktable) { /*use default script font/size for locals tables*/ - tyconfigrecord config; + tyconfigrecord lconfig; - shellgetconfig (idscriptconfig, &config); + shellgetconfig (idscriptconfig, &lconfig); - (**hf).fontnum = config.defaultfont; + (**hf).fontnum = lconfig.defaultfont; - (**hf).fontsize = config.defaultsize; + (**hf).fontsize = lconfig.defaultsize; - (**hf).fontstyle = config.defaultstyle; + (**hf).fontstyle = lconfig.defaultstyle; } } @@ -1297,7 +1297,8 @@ boolean tablesymbolchanged (hdlhashtable htable, const bigstring bsname, hdlhashnode hn, boolean flvalue) { - +#pragma unused (hn) + /* used as a callback routine. the value of the indicated variable has changed. if the cell is being displayed, update the display of it. if the name changed, Modified: Frontier/trunk/Common/source/tablepack.c =================================================================== --- Frontier/trunk/Common/source/tablepack.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/tablepack.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -377,7 +377,8 @@ static boolean tablepacktotextvisit (bigstring bsname, hdlhashnode hnode, tyvaluerecord val, ptrvoid refcon) { - +#pragma unused (hnode) + /* 4.0.2b1 dmb: handle fldiskvals. see comment in hashsortedinversesearch */ Modified: Frontier/trunk/Common/source/threads.c =================================================================== --- Frontier/trunk/Common/source/threads.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/threads.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -88,7 +88,8 @@ #ifdef MACVERSION static pascal void copythreadcontext (ThreadID hthread, void * hglobals) { - +#pragma unused (hthread) + #if TARGET_API_MAC_OS8 long curA5 = SetUpAppA5 (); #endif @@ -102,7 +103,8 @@ static pascal void swapinthreadcontext (ThreadID hthread, void * hglobals) { - +#pragma unused (hthread) + #if TARGET_API_MAC_OS8 long curA5 = SetUpAppA5 (); #endif @@ -116,7 +118,8 @@ static pascal void disposethreadcontext (ThreadID hthread, void * hglobals) { - +#pragma unused (hthread) + #if TARGET_API_MAC_OS8 long curA5 = SetUpAppA5 (); #endif @@ -255,12 +258,15 @@ boolean attachtomainthread (long idthread) { +#ifdef MACVERSION +# pragma unused (idthread) +#endif - #ifdef WIN95VERSION - return (AttachThreadInput (idthread, idmainthread, true)); - #else - return (true); /*it's a no-op*/ - #endif +#ifdef WIN95VERSION + return (AttachThreadInput (idthread, idmainthread, true)); +#else + return (true); /*it's a no-op*/ +#endif }/*attachtomainthread*/ @@ -431,7 +437,8 @@ boolean threadyield (boolean flresting) { - +#pragma unused(flresting) + /* 5.0a19 dmb: added flresting parameter */ Modified: Frontier/trunk/Common/source/zoom.c =================================================================== --- Frontier/trunk/Common/source/zoom.c 2006-04-05 23:27:47 UTC (rev 1207) +++ Frontier/trunk/Common/source/zoom.c 2006-04-05 23:51:45 UTC (rev 1208) @@ -224,6 +224,11 @@ */ void zoomport (Rect rsource, WindowPtr w, boolean flzoomup) { +#if TARGET_API_MAC_CARBON == 1 +# pragma unused(rsource) +# pragma unused(w) +# pragma unused(flzoomup) +#endif /* zooms the window from an invisible state to a visible @@ -532,7 +537,3 @@ zoomratio.v = 21; } } /*zoominit*/ - - - - This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
