Commit faceb62f authored by Jeffrey Lee's avatar Jeffrey Lee
Browse files

Escape some dollars

Detail:
  s/Errors, s/Fonts01, s/ListFonts - Escape some dollars contained in strings to avoid warnings from objasm
Admin:
  Resulting binary unchanged


Version 3.76. Retagged as 'Manager-3_76'
parent a7df091a
......@@ -42,7 +42,7 @@
AddError FontBadCtrlChar, "ErrBadCtrlChar:Illegal control character in font string"
AddError FontsInUse, "ErrsInUse:Font manager in use"
AddError FontBadSegment, "ErrBadSegment:Illegal line segment in outline font"
AddError FontBadPrefix, "ErrBadPrefix:%1 (while scanning Font$Path)"
AddError FontBadPrefix, "ErrBadPrefix:%1 (while scanning Font$$Path)"
AddError FontReserved, "ErrReserved:Reserved fields must be zero"
AddError FontBadCharCode, "ErrBadCharCode:Character code out of range"
AddError FontNoBitmaps, "ErrNoBitmaps:ROM font directory cannot contain bitmaps"
......
......@@ -3524,9 +3524,9 @@ errnoroomforcache
MakeErrorBlock FontNoRoom ; "Not enough room for Font cache"
fontpathcom
DCB "IF ""<Font$Path>""="""" THEN SetMacro Font$Path <Font$Prefix>.", 0
DCB "IF ""<Font$$Path>""="""" THEN SetMacro Font$$Path <Font$$Prefix>.", 0
fontcache_com1 DCB "Set File$Type_FCF $FileType_FontCache_Name", 0
fontcache_com1 DCB "Set File$$Type_FCF $FileType_FontCache_Name", 0
fontcache_com2 DCB "Set Alias$@RunType_FCF LoadFontCache ", 0
fontcache_com3 DCB "Set Alias$@LoadType_FCF LoadFontCache ", 0
......
......@@ -113,8 +113,8 @@ FontLibrary_Code Entry "R0,R1,R12"
STRVS R0,[sp]
EXIT
str_fontprefix DCB "Font$Prefix", 0
str_fontprefix_ref DCB "<Font$Prefix>.", 0
str_fontprefix DCB "Font$$Prefix", 0
str_fontprefix_ref DCB "<Font$$Prefix>.", 0
ALIGN
;...........................................................................
......@@ -217,7 +217,7 @@ addelement Entry "R4"
ADR R2,wrchblk ; R2 = output pointer
ADD R3,R1,#?wrchblk ; R3 > R2 => R4 not encountered yet
DebugS path2,"New Font$Path with duplicates =",R1
DebugS path2,"New Font$$Path with duplicates =",R1
25 TEQ R1,R4 ; if input ptr = start of Font$Path
MOVEQ R3,R2 ; set R3 = start of output Font$Path
......@@ -267,7 +267,7 @@ addelement Entry "R4"
MOVHI R3,R2
Debug path2,"addelement exit: R1,R2,R3 =",R1,R2,R3
DebugS path,"New font$path =",R1
DebugS path,"New font$$path =",R1
EXIT
......@@ -287,7 +287,7 @@ setfontpath Entry "R2-R4"
EXIT
str_fontpath DCB "Font$Path", 0
str_fontpath DCB "Font$$Path", 0
ALIGN
;................................................................................
......@@ -1145,7 +1145,7 @@ go_listfonts_recache
; Out R2 -> linked list of prefix blocks representing this path
; R2 = [lf_prefixhead] => path was the same
fontpathname DCB "<Font$Path>",0
fontpathname DCB "<Font$$Path>",0
ALIGN
decodefontpath Entry "R1,R3-R7"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment